Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ldualset Unicode version

Theorem ldualset 28116
Description: Define the (left) dual of a left vector space (or module) in which the vectors are functionals. In many texts, this is defined as a right vector space, but by reversing the multiplication we achieve a left vector space, as is done in definition of dual vector space in [Holland95] p. 218. This allows us to reuse our existing collection of left vector space theorems. Note the operation reversal in the scalar product to allow us to use the original scalar ring instead of the oppr ring, for convenience. (Contributed by NM, 18-Oct-2014.)
Hypotheses
Ref Expression
ldualset.v  |-  V  =  ( Base `  W
)
ldualset.a  |-  .+  =  ( +g  `  R )
ldualset.p  |-  .+b  =  (  o F  .+  |`  ( F  X.  F ) )
ldualset.f  |-  F  =  (LFnl `  W )
ldualset.d  |-  D  =  (LDual `  W )
ldualset.r  |-  R  =  (Scalar `  W )
ldualset.k  |-  K  =  ( Base `  R
)
ldualset.t  |-  .x.  =  ( .r `  R )
ldualset.o  |-  O  =  (oppr
`  R )
ldualset.s  |-  .xb  =  ( k  e.  K ,  f  e.  F  |->  ( f  o F 
.x.  ( V  X.  { k } ) ) )
ldualset.w  |-  ( ph  ->  W  e.  X )
Assertion
Ref Expression
ldualset  |-  ( ph  ->  D  =  ( {
<. ( Base `  ndx ) ,  F >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. (Scalar `  ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
Distinct variable group:    f, k, W
Allowed substitution hints:    ph( f, k)    D( f, k)    .+ ( f, k)    .+b ( f, k)    R( f, k)    .xb ( f, k)    .x. ( f,
k)    F( f, k)    K( f, k)    O( f, k)    V( f, k)    X( f, k)

Proof of Theorem ldualset
StepHypRef Expression
1 ldualset.w . 2  |-  ( ph  ->  W  e.  X )
2 elex 2735 . 2  |-  ( W  e.  X  ->  W  e.  _V )
3 ldualset.d . . 3  |-  D  =  (LDual `  W )
4 fveq2 5377 . . . . . . . 8  |-  ( w  =  W  ->  (LFnl `  w )  =  (LFnl `  W ) )
5 ldualset.f . . . . . . . 8  |-  F  =  (LFnl `  W )
64, 5syl6eqr 2303 . . . . . . 7  |-  ( w  =  W  ->  (LFnl `  w )  =  F )
76opeq2d 3703 . . . . . 6  |-  ( w  =  W  ->  <. ( Base `  ndx ) ,  (LFnl `  w ) >.  =  <. ( Base `  ndx ) ,  F >. )
8 fveq2 5377 . . . . . . . . . . . . 13  |-  ( w  =  W  ->  (Scalar `  w )  =  (Scalar `  W ) )
9 ldualset.r . . . . . . . . . . . . 13  |-  R  =  (Scalar `  W )
108, 9syl6eqr 2303 . . . . . . . . . . . 12  |-  ( w  =  W  ->  (Scalar `  w )  =  R )
1110fveq2d 5381 . . . . . . . . . . 11  |-  ( w  =  W  ->  ( +g  `  (Scalar `  w
) )  =  ( +g  `  R ) )
12 ldualset.a . . . . . . . . . . 11  |-  .+  =  ( +g  `  R )
1311, 12syl6eqr 2303 . . . . . . . . . 10  |-  ( w  =  W  ->  ( +g  `  (Scalar `  w
) )  =  .+  )
14 ofeq 5932 . . . . . . . . . 10  |-  ( ( +g  `  (Scalar `  w ) )  = 
.+  ->  o F ( +g  `  (Scalar `  w ) )  =  o F  .+  )
1513, 14syl 17 . . . . . . . . 9  |-  ( w  =  W  ->  o F ( +g  `  (Scalar `  w ) )  =  o F  .+  )
166, 6xpeq12d 4621 . . . . . . . . 9  |-  ( w  =  W  ->  (
(LFnl `  w )  X.  (LFnl `  w )
)  =  ( F  X.  F ) )
1715, 16reseq12d 4863 . . . . . . . 8  |-  ( w  =  W  ->  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) )  =  (  o F  .+  |`  ( F  X.  F ) ) )
18 ldualset.p . . . . . . . 8  |-  .+b  =  (  o F  .+  |`  ( F  X.  F ) )
1917, 18syl6eqr 2303 . . . . . . 7  |-  ( w  =  W  ->  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) )  =  .+b  )
2019opeq2d 3703 . . . . . 6  |-  ( w  =  W  ->  <. ( +g  `  ndx ) ,  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) ) >.  =  <. ( +g  `  ndx ) ,  .+b  >. )
2110fveq2d 5381 . . . . . . . 8  |-  ( w  =  W  ->  (oppr `  (Scalar `  w ) )  =  (oppr
`  R ) )
22 ldualset.o . . . . . . . 8  |-  O  =  (oppr
`  R )
2321, 22syl6eqr 2303 . . . . . . 7  |-  ( w  =  W  ->  (oppr `  (Scalar `  w ) )  =  O )
2423opeq2d 3703 . . . . . 6  |-  ( w  =  W  ->  <. (Scalar ` 
ndx ) ,  (oppr `  (Scalar `  w ) )
>.  =  <. (Scalar `  ndx ) ,  O >. )
257, 20, 24tpeq123d 3625 . . . . 5  |-  ( w  =  W  ->  { <. (
Base `  ndx ) ,  (LFnl `  w ) >. ,  <. ( +g  `  ndx ) ,  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) ) >. ,  <. (Scalar `  ndx ) ,  (oppr `  (Scalar `  w ) )
>. }  =  { <. (
Base `  ndx ) ,  F >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. (Scalar ` 
ndx ) ,  O >. } )
2610fveq2d 5381 . . . . . . . . . 10  |-  ( w  =  W  ->  ( Base `  (Scalar `  w
) )  =  (
Base `  R )
)
27 ldualset.k . . . . . . . . . 10  |-  K  =  ( Base `  R
)
2826, 27syl6eqr 2303 . . . . . . . . 9  |-  ( w  =  W  ->  ( Base `  (Scalar `  w
) )  =  K )
2910fveq2d 5381 . . . . . . . . . . . 12  |-  ( w  =  W  ->  ( .r `  (Scalar `  w
) )  =  ( .r `  R ) )
30 ldualset.t . . . . . . . . . . . 12  |-  .x.  =  ( .r `  R )
3129, 30syl6eqr 2303 . . . . . . . . . . 11  |-  ( w  =  W  ->  ( .r `  (Scalar `  w
) )  =  .x.  )
32 ofeq 5932 . . . . . . . . . . 11  |-  ( ( .r `  (Scalar `  w ) )  = 
.x.  ->  o F ( .r `  (Scalar `  w ) )  =  o F  .x.  )
3331, 32syl 17 . . . . . . . . . 10  |-  ( w  =  W  ->  o F ( .r `  (Scalar `  w ) )  =  o F  .x.  )
34 eqidd 2254 . . . . . . . . . 10  |-  ( w  =  W  ->  f  =  f )
35 fveq2 5377 . . . . . . . . . . . 12  |-  ( w  =  W  ->  ( Base `  w )  =  ( Base `  W
) )
36 ldualset.v . . . . . . . . . . . 12  |-  V  =  ( Base `  W
)
3735, 36syl6eqr 2303 . . . . . . . . . . 11  |-  ( w  =  W  ->  ( Base `  w )  =  V )
3837xpeq1d 4619 . . . . . . . . . 10  |-  ( w  =  W  ->  (
( Base `  w )  X.  { k } )  =  ( V  X.  { k } ) )
3933, 34, 38oveq123d 5731 . . . . . . . . 9  |-  ( w  =  W  ->  (
f  o F ( .r `  (Scalar `  w ) ) ( ( Base `  w
)  X.  { k } ) )  =  ( f  o F 
.x.  ( V  X.  { k } ) ) )
4028, 6, 39mpt2eq123dv 5762 . . . . . . . 8  |-  ( w  =  W  ->  (
k  e.  ( Base `  (Scalar `  w )
) ,  f  e.  (LFnl `  w )  |->  ( f  o F ( .r `  (Scalar `  w ) ) ( ( Base `  w
)  X.  { k } ) ) )  =  ( k  e.  K ,  f  e.  F  |->  ( f  o F  .x.  ( V  X.  { k } ) ) ) )
41 ldualset.s . . . . . . . 8  |-  .xb  =  ( k  e.  K ,  f  e.  F  |->  ( f  o F 
.x.  ( V  X.  { k } ) ) )
4240, 41syl6eqr 2303 . . . . . . 7  |-  ( w  =  W  ->  (
k  e.  ( Base `  (Scalar `  w )
) ,  f  e.  (LFnl `  w )  |->  ( f  o F ( .r `  (Scalar `  w ) ) ( ( Base `  w
)  X.  { k } ) ) )  =  .xb  )
4342opeq2d 3703 . . . . . 6  |-  ( w  =  W  ->  <. ( .s `  ndx ) ,  ( k  e.  (
Base `  (Scalar `  w
) ) ,  f  e.  (LFnl `  w
)  |->  ( f  o F ( .r `  (Scalar `  w ) ) ( ( Base `  w
)  X.  { k } ) ) )
>.  =  <. ( .s
`  ndx ) ,  .xb  >.
)
4443sneqd 3557 . . . . 5  |-  ( w  =  W  ->  { <. ( .s `  ndx ) ,  ( k  e.  ( Base `  (Scalar `  w ) ) ,  f  e.  (LFnl `  w )  |->  ( f  o F ( .r
`  (Scalar `  w )
) ( ( Base `  w )  X.  {
k } ) ) ) >. }  =  { <. ( .s `  ndx ) ,  .xb  >. } )
4525, 44uneq12d 3240 . . . 4  |-  ( w  =  W  ->  ( { <. ( Base `  ndx ) ,  (LFnl `  w
) >. ,  <. ( +g  `  ndx ) ,  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) ) >. ,  <. (Scalar `  ndx ) ,  (oppr `  (Scalar `  w ) )
>. }  u.  { <. ( .s `  ndx ) ,  ( k  e.  ( Base `  (Scalar `  w ) ) ,  f  e.  (LFnl `  w )  |->  ( f  o F ( .r
`  (Scalar `  w )
) ( ( Base `  w )  X.  {
k } ) ) ) >. } )  =  ( { <. ( Base `  ndx ) ,  F >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. (Scalar ` 
ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
46 df-ldual 28115 . . . 4  |- LDual  =  ( w  e.  _V  |->  ( { <. ( Base `  ndx ) ,  (LFnl `  w
) >. ,  <. ( +g  `  ndx ) ,  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) ) >. ,  <. (Scalar `  ndx ) ,  (oppr `  (Scalar `  w ) )
>. }  u.  { <. ( .s `  ndx ) ,  ( k  e.  ( Base `  (Scalar `  w ) ) ,  f  e.  (LFnl `  w )  |->  ( f  o F ( .r
`  (Scalar `  w )
) ( ( Base `  w )  X.  {
k } ) ) ) >. } ) )
47 tpex 4410 . . . . 5  |-  { <. (
Base `  ndx ) ,  F >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. (Scalar ` 
ndx ) ,  O >. }  e.  _V
48 snex 4110 . . . . 5  |-  { <. ( .s `  ndx ) ,  .xb  >. }  e.  _V
4947, 48unex 4409 . . . 4  |-  ( {
<. ( Base `  ndx ) ,  F >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. (Scalar `  ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } )  e. 
_V
5045, 46, 49fvmpt 5454 . . 3  |-  ( W  e.  _V  ->  (LDual `  W )  =  ( { <. ( Base `  ndx ) ,  F >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. (Scalar `  ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
513, 50syl5eq 2297 . 2  |-  ( W  e.  _V  ->  D  =  ( { <. (
Base `  ndx ) ,  F >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. (Scalar ` 
ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
521, 2, 513syl 20 1  |-  ( ph  ->  D  =  ( {
<. ( Base `  ndx ) ,  F >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. (Scalar `  ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
Colors of variables: wff set class
Syntax hints:    -> wi 6    = wceq 1619    e. wcel 1621   _Vcvv 2727    u. cun 3076   {csn 3544   {ctp 3546   <.cop 3547    X. cxp 4578    |` cres 4582   ` cfv 4592  (class class class)co 5710    e. cmpt2 5712    o Fcof 5928   ndxcnx 13019   Basecbs 13022   +g cplusg 13082   .rcmulr 13083  Scalarcsca 13085   .scvsca 13086  opprcoppr 15239  LFnlclfn 28048  LDualcld 28114
This theorem is referenced by:  ldualvbase  28117  ldualfvadd  28119  ldualsca  28123  ldualfvs  28127
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1926  ax-ext 2234  ax-sep 4038  ax-nul 4046  ax-pr 4108  ax-un 4403
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1883  df-eu 2118  df-mo 2119  df-clab 2240  df-cleq 2246  df-clel 2249  df-nfc 2374  df-ne 2414  df-ral 2513  df-rex 2514  df-rab 2516  df-v 2729  df-sbc 2922  df-dif 3081  df-un 3083  df-in 3085  df-ss 3089  df-nul 3363  df-if 3471  df-sn 3550  df-pr 3551  df-tp 3552  df-op 3553  df-uni 3728  df-br 3921  df-opab 3975  df-mpt 3976  df-id 4202  df-xp 4594  df-rel 4595  df-cnv 4596  df-co 4597  df-dm 4598  df-rn 4599  df-res 4600  df-ima 4601  df-fun 4602  df-fv 4608  df-ov 5713  df-oprab 5714  df-mpt2 5715  df-of 5930  df-ldual 28115
  Copyright terms: Public domain W3C validator