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

Theorem ldualset 29860
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
Dummy variable  w is distinct from all other variables.
StepHypRef Expression
1 ldualset.w . 2  |-  ( ph  ->  W  e.  X )
2 elex 2956 . 2  |-  ( W  e.  X  ->  W  e.  _V )
3 ldualset.d . . 3  |-  D  =  (LDual `  W )
4 fveq2 5720 . . . . . . . 8  |-  ( w  =  W  ->  (LFnl `  w )  =  (LFnl `  W ) )
5 ldualset.f . . . . . . . 8  |-  F  =  (LFnl `  W )
64, 5syl6eqr 2485 . . . . . . 7  |-  ( w  =  W  ->  (LFnl `  w )  =  F )
76opeq2d 3983 . . . . . 6  |-  ( w  =  W  ->  <. ( Base `  ndx ) ,  (LFnl `  w ) >.  =  <. ( Base `  ndx ) ,  F >. )
8 fveq2 5720 . . . . . . . . . . . . 13  |-  ( w  =  W  ->  (Scalar `  w )  =  (Scalar `  W ) )
9 ldualset.r . . . . . . . . . . . . 13  |-  R  =  (Scalar `  W )
108, 9syl6eqr 2485 . . . . . . . . . . . 12  |-  ( w  =  W  ->  (Scalar `  w )  =  R )
1110fveq2d 5724 . . . . . . . . . . 11  |-  ( w  =  W  ->  ( +g  `  (Scalar `  w
) )  =  ( +g  `  R ) )
12 ldualset.a . . . . . . . . . . 11  |-  .+  =  ( +g  `  R )
1311, 12syl6eqr 2485 . . . . . . . . . 10  |-  ( w  =  W  ->  ( +g  `  (Scalar `  w
) )  =  .+  )
14 ofeq 6299 . . . . . . . . . 10  |-  ( ( +g  `  (Scalar `  w ) )  = 
.+  ->  o F ( +g  `  (Scalar `  w ) )  =  o F  .+  )
1513, 14syl 16 . . . . . . . . 9  |-  ( w  =  W  ->  o F ( +g  `  (Scalar `  w ) )  =  o F  .+  )
166, 6xpeq12d 4895 . . . . . . . . 9  |-  ( w  =  W  ->  (
(LFnl `  w )  X.  (LFnl `  w )
)  =  ( F  X.  F ) )
1715, 16reseq12d 5139 . . . . . . . 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 2485 . . . . . . 7  |-  ( w  =  W  ->  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) )  =  .+b  )
2019opeq2d 3983 . . . . . 6  |-  ( w  =  W  ->  <. ( +g  `  ndx ) ,  (  o F ( +g  `  (Scalar `  w ) )  |`  ( (LFnl `  w )  X.  (LFnl `  w )
) ) >.  =  <. ( +g  `  ndx ) ,  .+b  >. )
2110fveq2d 5724 . . . . . . . 8  |-  ( w  =  W  ->  (oppr `  (Scalar `  w ) )  =  (oppr
`  R ) )
22 ldualset.o . . . . . . . 8  |-  O  =  (oppr
`  R )
2321, 22syl6eqr 2485 . . . . . . 7  |-  ( w  =  W  ->  (oppr `  (Scalar `  w ) )  =  O )
2423opeq2d 3983 . . . . . 6  |-  ( w  =  W  ->  <. (Scalar ` 
ndx ) ,  (oppr `  (Scalar `  w ) )
>.  =  <. (Scalar `  ndx ) ,  O >. )
257, 20, 24tpeq123d 3890 . . . . 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 5724 . . . . . . . . . 10  |-  ( w  =  W  ->  ( Base `  (Scalar `  w
) )  =  (
Base `  R )
)
27 ldualset.k . . . . . . . . . 10  |-  K  =  ( Base `  R
)
2826, 27syl6eqr 2485 . . . . . . . . 9  |-  ( w  =  W  ->  ( Base `  (Scalar `  w
) )  =  K )
2910fveq2d 5724 . . . . . . . . . . . 12  |-  ( w  =  W  ->  ( .r `  (Scalar `  w
) )  =  ( .r `  R ) )
30 ldualset.t . . . . . . . . . . . 12  |-  .x.  =  ( .r `  R )
3129, 30syl6eqr 2485 . . . . . . . . . . 11  |-  ( w  =  W  ->  ( .r `  (Scalar `  w
) )  =  .x.  )
32 ofeq 6299 . . . . . . . . . . 11  |-  ( ( .r `  (Scalar `  w ) )  = 
.x.  ->  o F ( .r `  (Scalar `  w ) )  =  o F  .x.  )
3331, 32syl 16 . . . . . . . . . 10  |-  ( w  =  W  ->  o F ( .r `  (Scalar `  w ) )  =  o F  .x.  )
34 eqidd 2436 . . . . . . . . . 10  |-  ( w  =  W  ->  f  =  f )
35 fveq2 5720 . . . . . . . . . . . 12  |-  ( w  =  W  ->  ( Base `  w )  =  ( Base `  W
) )
36 ldualset.v . . . . . . . . . . . 12  |-  V  =  ( Base `  W
)
3735, 36syl6eqr 2485 . . . . . . . . . . 11  |-  ( w  =  W  ->  ( Base `  w )  =  V )
3837xpeq1d 4893 . . . . . . . . . 10  |-  ( w  =  W  ->  (
( Base `  w )  X.  { k } )  =  ( V  X.  { k } ) )
3933, 34, 38oveq123d 6094 . . . . . . . . 9  |-  ( w  =  W  ->  (
f  o F ( .r `  (Scalar `  w ) ) ( ( Base `  w
)  X.  { k } ) )  =  ( f  o F 
.x.  ( V  X.  { k } ) ) )
4028, 6, 39mpt2eq123dv 6128 . . . . . . . 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 2485 . . . . . . 7  |-  ( w  =  W  ->  (
k  e.  ( Base `  (Scalar `  w )
) ,  f  e.  (LFnl `  w )  |->  ( f  o F ( .r `  (Scalar `  w ) ) ( ( Base `  w
)  X.  { k } ) ) )  =  .xb  )
4342opeq2d 3983 . . . . . 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 3819 . . . . 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 3494 . . . 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 29859 . . . 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 4700 . . . . 5  |-  { <. (
Base `  ndx ) ,  F >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. (Scalar ` 
ndx ) ,  O >. }  e.  _V
48 snex 4397 . . . . 5  |-  { <. ( .s `  ndx ) ,  .xb  >. }  e.  _V
4947, 48unex 4699 . . . 4  |-  ( {
<. ( Base `  ndx ) ,  F >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. (Scalar `  ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } )  e. 
_V
5045, 46, 49fvmpt 5798 . . 3  |-  ( W  e.  _V  ->  (LDual `  W )  =  ( { <. ( Base `  ndx ) ,  F >. , 
<. ( +g  `  ndx ) ,  .+b  >. ,  <. (Scalar `  ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
513, 50syl5eq 2479 . 2  |-  ( W  e.  _V  ->  D  =  ( { <. (
Base `  ndx ) ,  F >. ,  <. ( +g  `  ndx ) , 
.+b  >. ,  <. (Scalar ` 
ndx ) ,  O >. }  u.  { <. ( .s `  ndx ) ,  .xb  >. } ) )
521, 2, 513syl 19 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 4    = wceq 1652    e. wcel 1725   _Vcvv 2948    u. cun 3310   {csn 3806   {ctp 3808   <.cop 3809    X. cxp 4868    |` cres 4872   ` cfv 5446  (class class class)co 6073    e. cmpt2 6075    o Fcof 6295   ndxcnx 13458   Basecbs 13461   +g cplusg 13521   .rcmulr 13522  Scalarcsca 13524   .scvsca 13525  opprcoppr 15719  LFnlclfn 29792  LDualcld 29858
This theorem is referenced by:  ldualvbase  29861  ldualfvadd  29863  ldualsca  29867  ldualfvs  29871
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1555  ax-5 1566  ax-17 1626  ax-9 1666  ax-8 1687  ax-13 1727  ax-14 1729  ax-6 1744  ax-7 1749  ax-11 1761  ax-12 1950  ax-ext 2416  ax-sep 4322  ax-nul 4330  ax-pr 4395  ax-un 4693
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3an 938  df-tru 1328  df-ex 1551  df-nf 1554  df-sb 1659  df-eu 2284  df-mo 2285  df-clab 2422  df-cleq 2428  df-clel 2431  df-nfc 2560  df-ne 2600  df-ral 2702  df-rex 2703  df-rab 2706  df-v 2950  df-sbc 3154  df-dif 3315  df-un 3317  df-in 3319  df-ss 3326  df-nul 3621  df-if 3732  df-sn 3812  df-pr 3813  df-tp 3814  df-op 3815  df-uni 4008  df-br 4205  df-opab 4259  df-mpt 4260  df-id 4490  df-xp 4876  df-rel 4877  df-cnv 4878  df-co 4879  df-dm 4880  df-res 4882  df-iota 5410  df-fun 5448  df-fv 5454  df-ov 6076  df-oprab 6077  df-mpt2 6078  df-of 6297  df-ldual 29859
  Copyright terms: Public domain W3C validator