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

Theorem ldualset 37554
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 to reuse our existing collection of left vector space theorems. Note the operation reversal in the scalar product to allow to use the original scalar ring instead of the oppr ring, for convenience. (Contributed by NM, 18-Oct-2014.)
Hypotheses
Ref Expression
ldualset.v 𝑉 = (Base‘𝑊)
ldualset.a + = (+g𝑅)
ldualset.p = ( ∘f + ↾ (𝐹 × 𝐹))
ldualset.f 𝐹 = (LFnl‘𝑊)
ldualset.d 𝐷 = (LDual‘𝑊)
ldualset.r 𝑅 = (Scalar‘𝑊)
ldualset.k 𝐾 = (Base‘𝑅)
ldualset.t · = (.r𝑅)
ldualset.o 𝑂 = (oppr𝑅)
ldualset.s = (𝑘𝐾, 𝑓𝐹 ↦ (𝑓f · (𝑉 × {𝑘})))
ldualset.w (𝜑𝑊𝑋)
Assertion
Ref Expression
ldualset (𝜑𝐷 = ({⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∪ {⟨( ·𝑠 ‘ndx), ⟩}))
Distinct variable group:   𝑓,𝑘,𝑊
Allowed substitution hints:   𝜑(𝑓,𝑘)   𝐷(𝑓,𝑘)   + (𝑓,𝑘)   (𝑓,𝑘)   𝑅(𝑓,𝑘)   (𝑓,𝑘)   · (𝑓,𝑘)   𝐹(𝑓,𝑘)   𝐾(𝑓,𝑘)   𝑂(𝑓,𝑘)   𝑉(𝑓,𝑘)   𝑋(𝑓,𝑘)

Proof of Theorem ldualset
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 ldualset.w . 2 (𝜑𝑊𝑋)
2 elex 3461 . 2 (𝑊𝑋𝑊 ∈ V)
3 ldualset.d . . 3 𝐷 = (LDual‘𝑊)
4 fveq2 6839 . . . . . . . 8 (𝑤 = 𝑊 → (LFnl‘𝑤) = (LFnl‘𝑊))
5 ldualset.f . . . . . . . 8 𝐹 = (LFnl‘𝑊)
64, 5eqtr4di 2794 . . . . . . 7 (𝑤 = 𝑊 → (LFnl‘𝑤) = 𝐹)
76opeq2d 4835 . . . . . 6 (𝑤 = 𝑊 → ⟨(Base‘ndx), (LFnl‘𝑤)⟩ = ⟨(Base‘ndx), 𝐹⟩)
8 fveq2 6839 . . . . . . . . . . . . 13 (𝑤 = 𝑊 → (Scalar‘𝑤) = (Scalar‘𝑊))
9 ldualset.r . . . . . . . . . . . . 13 𝑅 = (Scalar‘𝑊)
108, 9eqtr4di 2794 . . . . . . . . . . . 12 (𝑤 = 𝑊 → (Scalar‘𝑤) = 𝑅)
1110fveq2d 6843 . . . . . . . . . . 11 (𝑤 = 𝑊 → (+g‘(Scalar‘𝑤)) = (+g𝑅))
12 ldualset.a . . . . . . . . . . 11 + = (+g𝑅)
1311, 12eqtr4di 2794 . . . . . . . . . 10 (𝑤 = 𝑊 → (+g‘(Scalar‘𝑤)) = + )
1413ofeqd 7615 . . . . . . . . 9 (𝑤 = 𝑊 → ∘f (+g‘(Scalar‘𝑤)) = ∘f + )
156sqxpeqd 5663 . . . . . . . . 9 (𝑤 = 𝑊 → ((LFnl‘𝑤) × (LFnl‘𝑤)) = (𝐹 × 𝐹))
1614, 15reseq12d 5936 . . . . . . . 8 (𝑤 = 𝑊 → ( ∘f (+g‘(Scalar‘𝑤)) ↾ ((LFnl‘𝑤) × (LFnl‘𝑤))) = ( ∘f + ↾ (𝐹 × 𝐹)))
17 ldualset.p . . . . . . . 8 = ( ∘f + ↾ (𝐹 × 𝐹))
1816, 17eqtr4di 2794 . . . . . . 7 (𝑤 = 𝑊 → ( ∘f (+g‘(Scalar‘𝑤)) ↾ ((LFnl‘𝑤) × (LFnl‘𝑤))) = )
1918opeq2d 4835 . . . . . 6 (𝑤 = 𝑊 → ⟨(+g‘ndx), ( ∘f (+g‘(Scalar‘𝑤)) ↾ ((LFnl‘𝑤) × (LFnl‘𝑤)))⟩ = ⟨(+g‘ndx), ⟩)
2010fveq2d 6843 . . . . . . . 8 (𝑤 = 𝑊 → (oppr‘(Scalar‘𝑤)) = (oppr𝑅))
21 ldualset.o . . . . . . . 8 𝑂 = (oppr𝑅)
2220, 21eqtr4di 2794 . . . . . . 7 (𝑤 = 𝑊 → (oppr‘(Scalar‘𝑤)) = 𝑂)
2322opeq2d 4835 . . . . . 6 (𝑤 = 𝑊 → ⟨(Scalar‘ndx), (oppr‘(Scalar‘𝑤))⟩ = ⟨(Scalar‘ndx), 𝑂⟩)
247, 19, 23tpeq123d 4707 . . . . 5 (𝑤 = 𝑊 → {⟨(Base‘ndx), (LFnl‘𝑤)⟩, ⟨(+g‘ndx), ( ∘f (+g‘(Scalar‘𝑤)) ↾ ((LFnl‘𝑤) × (LFnl‘𝑤)))⟩, ⟨(Scalar‘ndx), (oppr‘(Scalar‘𝑤))⟩} = {⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩})
2510fveq2d 6843 . . . . . . . . . 10 (𝑤 = 𝑊 → (Base‘(Scalar‘𝑤)) = (Base‘𝑅))
26 ldualset.k . . . . . . . . . 10 𝐾 = (Base‘𝑅)
2725, 26eqtr4di 2794 . . . . . . . . 9 (𝑤 = 𝑊 → (Base‘(Scalar‘𝑤)) = 𝐾)
2810fveq2d 6843 . . . . . . . . . . . 12 (𝑤 = 𝑊 → (.r‘(Scalar‘𝑤)) = (.r𝑅))
29 ldualset.t . . . . . . . . . . . 12 · = (.r𝑅)
3028, 29eqtr4di 2794 . . . . . . . . . . 11 (𝑤 = 𝑊 → (.r‘(Scalar‘𝑤)) = · )
3130ofeqd 7615 . . . . . . . . . 10 (𝑤 = 𝑊 → ∘f (.r‘(Scalar‘𝑤)) = ∘f · )
32 eqidd 2737 . . . . . . . . . 10 (𝑤 = 𝑊𝑓 = 𝑓)
33 fveq2 6839 . . . . . . . . . . . 12 (𝑤 = 𝑊 → (Base‘𝑤) = (Base‘𝑊))
34 ldualset.v . . . . . . . . . . . 12 𝑉 = (Base‘𝑊)
3533, 34eqtr4di 2794 . . . . . . . . . . 11 (𝑤 = 𝑊 → (Base‘𝑤) = 𝑉)
3635xpeq1d 5660 . . . . . . . . . 10 (𝑤 = 𝑊 → ((Base‘𝑤) × {𝑘}) = (𝑉 × {𝑘}))
3731, 32, 36oveq123d 7374 . . . . . . . . 9 (𝑤 = 𝑊 → (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘})) = (𝑓f · (𝑉 × {𝑘})))
3827, 6, 37mpoeq123dv 7428 . . . . . . . 8 (𝑤 = 𝑊 → (𝑘 ∈ (Base‘(Scalar‘𝑤)), 𝑓 ∈ (LFnl‘𝑤) ↦ (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘}))) = (𝑘𝐾, 𝑓𝐹 ↦ (𝑓f · (𝑉 × {𝑘}))))
39 ldualset.s . . . . . . . 8 = (𝑘𝐾, 𝑓𝐹 ↦ (𝑓f · (𝑉 × {𝑘})))
4038, 39eqtr4di 2794 . . . . . . 7 (𝑤 = 𝑊 → (𝑘 ∈ (Base‘(Scalar‘𝑤)), 𝑓 ∈ (LFnl‘𝑤) ↦ (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘}))) = )
4140opeq2d 4835 . . . . . 6 (𝑤 = 𝑊 → ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑤)), 𝑓 ∈ (LFnl‘𝑤) ↦ (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘})))⟩ = ⟨( ·𝑠 ‘ndx), ⟩)
4241sneqd 4596 . . . . 5 (𝑤 = 𝑊 → {⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑤)), 𝑓 ∈ (LFnl‘𝑤) ↦ (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘})))⟩} = {⟨( ·𝑠 ‘ndx), ⟩})
4324, 42uneq12d 4122 . . . 4 (𝑤 = 𝑊 → ({⟨(Base‘ndx), (LFnl‘𝑤)⟩, ⟨(+g‘ndx), ( ∘f (+g‘(Scalar‘𝑤)) ↾ ((LFnl‘𝑤) × (LFnl‘𝑤)))⟩, ⟨(Scalar‘ndx), (oppr‘(Scalar‘𝑤))⟩} ∪ {⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑤)), 𝑓 ∈ (LFnl‘𝑤) ↦ (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘})))⟩}) = ({⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∪ {⟨( ·𝑠 ‘ndx), ⟩}))
44 df-ldual 37553 . . . 4 LDual = (𝑤 ∈ V ↦ ({⟨(Base‘ndx), (LFnl‘𝑤)⟩, ⟨(+g‘ndx), ( ∘f (+g‘(Scalar‘𝑤)) ↾ ((LFnl‘𝑤) × (LFnl‘𝑤)))⟩, ⟨(Scalar‘ndx), (oppr‘(Scalar‘𝑤))⟩} ∪ {⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑤)), 𝑓 ∈ (LFnl‘𝑤) ↦ (𝑓f (.r‘(Scalar‘𝑤))((Base‘𝑤) × {𝑘})))⟩}))
45 tpex 7677 . . . . 5 {⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∈ V
46 snex 5386 . . . . 5 {⟨( ·𝑠 ‘ndx), ⟩} ∈ V
4745, 46unex 7676 . . . 4 ({⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∪ {⟨( ·𝑠 ‘ndx), ⟩}) ∈ V
4843, 44, 47fvmpt 6945 . . 3 (𝑊 ∈ V → (LDual‘𝑊) = ({⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∪ {⟨( ·𝑠 ‘ndx), ⟩}))
493, 48eqtrid 2788 . 2 (𝑊 ∈ V → 𝐷 = ({⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∪ {⟨( ·𝑠 ‘ndx), ⟩}))
501, 2, 493syl 18 1 (𝜑𝐷 = ({⟨(Base‘ndx), 𝐹⟩, ⟨(+g‘ndx), ⟩, ⟨(Scalar‘ndx), 𝑂⟩} ∪ {⟨( ·𝑠 ‘ndx), ⟩}))
Colors of variables: wff setvar class
Syntax hints:  wi 4   = wceq 1541  wcel 2106  Vcvv 3443  cun 3906  {csn 4584  {ctp 4588  cop 4590   × cxp 5629  cres 5633  cfv 6493  (class class class)co 7353  cmpo 7355  f cof 7611  ndxcnx 17057  Basecbs 17075  +gcplusg 17125  .rcmulr 17126  Scalarcsca 17128   ·𝑠 cvsca 17129  opprcoppr 20033  LFnlclfn 37486  LDualcld 37552
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5254  ax-nul 5261  ax-pr 5382  ax-un 7668
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2887  df-ral 3063  df-rex 3072  df-rab 3406  df-v 3445  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4281  df-if 4485  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4864  df-br 5104  df-opab 5166  df-mpt 5187  df-id 5529  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-res 5643  df-iota 6445  df-fun 6495  df-fv 6501  df-ov 7356  df-oprab 7357  df-mpo 7358  df-of 7613  df-ldual 37553
This theorem is referenced by:  ldualvbase  37555  ldualfvadd  37557  ldualsca  37561  ldualfvs  37565
  Copyright terms: Public domain W3C validator