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

Theorem hdmap1ffval 42610
Description: Preliminary map from vectors to functionals in the closed kernel dual space. (Contributed by NM, 14-May-2015.)
Hypothesis
Ref Expression
hdmap1val.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
hdmap1ffval (𝐾𝑋 → (HDMap1‘𝐾) = (𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
Distinct variable groups:   𝑤,𝐻   𝑎,𝑐,𝑑,𝑗,𝑚,𝑛,𝑢,𝑣,𝑤,𝐾   ,𝑎,𝑥,𝑐,𝑑,𝑗,𝑚,𝑛,𝑢,𝑣,𝑤
Allowed substitution hints:   𝐻(𝑥, 𝑣, 𝑢, , 𝑗, 𝑚, 𝑛, 𝑎, 𝑐, 𝑑)   𝐾(𝑥, )   𝑋(𝑥, 𝑤, 𝑣, 𝑢, , 𝑗, 𝑚, 𝑛, 𝑎, 𝑐, 𝑑)

Proof of Theorem hdmap1ffval
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 elex 3479 . 2 (𝐾𝑋𝐾 ∈ V)
2 fveq2 6888 . . . . 5 (𝑘 = 𝐾 → (LHyp‘𝑘) = (LHyp‘𝐾))
3 hdmap1val.h . . . . 5 𝐻 = (LHyp‘𝐾)
42, 3eqtr4di 2819 . . . 4 (𝑘 = 𝐾 → (LHyp‘𝑘) = 𝐻)
5 fveq2 6888 . . . . . . 7 (𝑘 = 𝐾 → (DVecH‘𝑘) = (DVecH‘𝐾))
65fveq1d 6890 . . . . . 6 (𝑘 = 𝐾 → ((DVecH‘𝑘)‘𝑤) = ((DVecH‘𝐾)‘𝑤))
7 fveq2 6888 . . . . . . . . . 10 (𝑘 = 𝐾 → (LCDual‘𝑘) = (LCDual‘𝐾))
87fveq1d 6890 . . . . . . . . 9 (𝑘 = 𝐾 → ((LCDual‘𝑘)‘𝑤) = ((LCDual‘𝐾)‘𝑤))
9 fveq2 6888 . . . . . . . . . . . . 13 (𝑘 = 𝐾 → (mapd‘𝑘) = (mapd‘𝐾))
109fveq1d 6890 . . . . . . . . . . . 12 (𝑘 = 𝐾 → ((mapd‘𝑘)‘𝑤) = ((mapd‘𝐾)‘𝑤))
1110sbceq1d 3752 . . . . . . . . . . 11 (𝑘 = 𝐾 → ([((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
1211sbcbidv 3802 . . . . . . . . . 10 (𝑘 = 𝐾 → ([(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
1312sbcbidv 3802 . . . . . . . . 9 (𝑘 = 𝐾 → ([(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
148, 13sbceqbid 3754 . . . . . . . 8 (𝑘 = 𝐾 → ([((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
1514sbcbidv 3802 . . . . . . 7 (𝑘 = 𝐾 → ([(LSpan‘𝑢) / 𝑛][((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
1615sbcbidv 3802 . . . . . 6 (𝑘 = 𝐾 → ([(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
176, 16sbceqbid 3754 . . . . 5 (𝑘 = 𝐾 → ([((DVecH‘𝑘)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ [((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))))
1817abbidv 2832 . . . 4 (𝑘 = 𝐾 → {𝑎[((DVecH‘𝑘)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))} = {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))})
194, 18mpteq12dv 5203 . . 3 (𝑘 = 𝐾 → (𝑤 ∈ (LHyp‘𝑘) ↦ {𝑎[((DVecH‘𝑘)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}) = (𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
20 df-hdmap1 42608 . . 3 HDMap1 = (𝑘 ∈ V ↦ (𝑤 ∈ (LHyp‘𝑘) ↦ {𝑎[((DVecH‘𝑘)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝑘)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝑘)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
2119, 20, 3mptfvmpt 7233 . 2 (𝐾 ∈ V → (HDMap1‘𝐾) = (𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
221, 21syl 18 1 (𝐾𝑋 → (HDMap1‘𝐾) = (𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401   = wceq 1570  wcel 2146  {cab 2744  Vcvv 3458  [wsbc 3747  ifcif 4492  {csn 4594  cmpt 5197   × cxp 5664  cfv 6543  crio 7379  (class class class)co 7423  1st c1st 7993  2nd c2nd 7994  Basecbs 17294  0gc0g 17517  -gcsg 19033  LSpanclspn 21129  LHypclh 40799  DVecHcdvh 41893  LCDualclcd 42401  mapdcmpd 42439  HDMap1chdma1 42606
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pr 5409
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-hdmap1 42608
This theorem is used by:  hdmap1fval  42611
  Copyright terms: Public domain W3C validator