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

Theorem hdmapfval 41356
Description: Map from vectors to functionals in the closed kernel dual space. (Contributed by NM, 15-May-2015.)
Hypotheses
Ref Expression
hdmapval.h 𝐻 = (LHyp‘𝐾)
hdmapfval.e 𝐸 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩
hdmapfval.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
hdmapfval.v 𝑉 = (Base‘𝑈)
hdmapfval.n 𝑁 = (LSpan‘𝑈)
hdmapfval.c 𝐶 = ((LCDual‘𝐾)‘𝑊)
hdmapfval.d 𝐷 = (Base‘𝐶)
hdmapfval.j 𝐽 = ((HVMap‘𝐾)‘𝑊)
hdmapfval.i 𝐼 = ((HDMap1‘𝐾)‘𝑊)
hdmapfval.s 𝑆 = ((HDMap‘𝐾)‘𝑊)
hdmapfval.k (𝜑 → (𝐾𝐴𝑊𝐻))
Assertion
Ref Expression
hdmapfval (𝜑𝑆 = (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
Distinct variable groups:   𝑦,𝑡,𝑧,𝐾   𝑦,𝐷   𝑡,𝐸,𝑦,𝑧   𝑡,𝐼,𝑦,𝑧   𝑡,𝑈,𝑦,𝑧   𝑡,𝑉,𝑦,𝑧   𝑡,𝑊,𝑦,𝑧
Allowed substitution hints:   𝜑(𝑦,𝑧,𝑡)   𝐴(𝑦,𝑧,𝑡)   𝐶(𝑦,𝑧,𝑡)   𝐷(𝑧,𝑡)   𝑆(𝑦,𝑧,𝑡)   𝐻(𝑦,𝑧,𝑡)   𝐽(𝑦,𝑧,𝑡)   𝑁(𝑦,𝑧,𝑡)

Proof of Theorem hdmapfval
Dummy variables 𝑤 𝑒 𝑎 𝑖 𝑢 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hdmapfval.k . 2 (𝜑 → (𝐾𝐴𝑊𝐻))
2 hdmapfval.s . . . 4 𝑆 = ((HDMap‘𝐾)‘𝑊)
3 hdmapval.h . . . . . 6 𝐻 = (LHyp‘𝐾)
43hdmapffval 41355 . . . . 5 (𝐾𝐴 → (HDMap‘𝐾) = (𝑤𝐻 ↦ {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))}))
54fveq1d 6894 . . . 4 (𝐾𝐴 → ((HDMap‘𝐾)‘𝑊) = ((𝑤𝐻 ↦ {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))})‘𝑊))
62, 5eqtrid 2777 . . 3 (𝐾𝐴𝑆 = ((𝑤𝐻 ↦ {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))})‘𝑊))
7 fveq2 6892 . . . . . . . . 9 (𝑤 = 𝑊 → ((LTrn‘𝐾)‘𝑤) = ((LTrn‘𝐾)‘𝑊))
87reseq2d 5979 . . . . . . . 8 (𝑤 = 𝑊 → ( I ↾ ((LTrn‘𝐾)‘𝑤)) = ( I ↾ ((LTrn‘𝐾)‘𝑊)))
98opeq2d 4876 . . . . . . 7 (𝑤 = 𝑊 → ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩)
10 fveq2 6892 . . . . . . . 8 (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = ((DVecH‘𝐾)‘𝑊))
11 fveq2 6892 . . . . . . . . . 10 (𝑤 = 𝑊 → ((HDMap1‘𝐾)‘𝑤) = ((HDMap1‘𝐾)‘𝑊))
12 2fveq3 6897 . . . . . . . . . . . . 13 (𝑤 = 𝑊 → (Base‘((LCDual‘𝐾)‘𝑤)) = (Base‘((LCDual‘𝐾)‘𝑊)))
13 fveq2 6892 . . . . . . . . . . . . . . . . . . . . 21 (𝑤 = 𝑊 → ((HVMap‘𝐾)‘𝑤) = ((HVMap‘𝐾)‘𝑊))
1413fveq1d 6894 . . . . . . . . . . . . . . . . . . . 20 (𝑤 = 𝑊 → (((HVMap‘𝐾)‘𝑤)‘𝑒) = (((HVMap‘𝐾)‘𝑊)‘𝑒))
1514oteq2d 4882 . . . . . . . . . . . . . . . . . . 19 (𝑤 = 𝑊 → ⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩ = ⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩)
1615fveq2d 6896 . . . . . . . . . . . . . . . . . 18 (𝑤 = 𝑊 → (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩) = (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩))
1716oteq2d 4882 . . . . . . . . . . . . . . . . 17 (𝑤 = 𝑊 → ⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩ = ⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)
1817fveq2d 6896 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑊 → (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩) = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))
1918eqeq2d 2736 . . . . . . . . . . . . . . 15 (𝑤 = 𝑊 → (𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩) ↔ 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))
2019imbi2d 339 . . . . . . . . . . . . . 14 (𝑤 = 𝑊 → ((¬ 𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)) ↔ (¬ 𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))
2120ralbidv 3168 . . . . . . . . . . . . 13 (𝑤 = 𝑊 → (∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)) ↔ ∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))
2212, 21riotaeqbidv 7375 . . . . . . . . . . . 12 (𝑤 = 𝑊 → (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))) = (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))
2322mpteq2dv 5245 . . . . . . . . . . 11 (𝑤 = 𝑊 → (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) = (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))))
2423eleq2d 2811 . . . . . . . . . 10 (𝑤 = 𝑊 → (𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
2511, 24sbceqbid 3775 . . . . . . . . 9 (𝑤 = 𝑊 → ([((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ [((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
2625sbcbidv 3828 . . . . . . . 8 (𝑤 = 𝑊 → ([(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ [(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
2710, 26sbceqbid 3775 . . . . . . 7 (𝑤 = 𝑊 → ([((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ [((DVecH‘𝐾)‘𝑊) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
289, 27sbceqbid 3775 . . . . . 6 (𝑤 = 𝑊 → ([⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ [⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ / 𝑒][((DVecH‘𝐾)‘𝑊) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
29 opex 5460 . . . . . . 7 ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∈ V
30 fvex 6905 . . . . . . 7 ((DVecH‘𝐾)‘𝑊) ∈ V
31 fvex 6905 . . . . . . 7 (Base‘𝑢) ∈ V
32 simp1 1133 . . . . . . . . 9 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩)
33 hdmapfval.e . . . . . . . . 9 𝐸 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩
3432, 33eqtr4di 2783 . . . . . . . 8 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑒 = 𝐸)
35 simp2 1134 . . . . . . . . 9 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑢 = ((DVecH‘𝐾)‘𝑊))
36 hdmapfval.u . . . . . . . . 9 𝑈 = ((DVecH‘𝐾)‘𝑊)
3735, 36eqtr4di 2783 . . . . . . . 8 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑢 = 𝑈)
38 simp3 1135 . . . . . . . . . 10 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑣 = (Base‘𝑢))
3937fveq2d 6896 . . . . . . . . . 10 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → (Base‘𝑢) = (Base‘𝑈))
4038, 39eqtrd 2765 . . . . . . . . 9 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑣 = (Base‘𝑈))
41 hdmapfval.v . . . . . . . . 9 𝑉 = (Base‘𝑈)
4240, 41eqtr4di 2783 . . . . . . . 8 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → 𝑣 = 𝑉)
43 fvex 6905 . . . . . . . . . 10 ((HDMap1‘𝐾)‘𝑊) ∈ V
44 id 22 . . . . . . . . . . . 12 (𝑖 = ((HDMap1‘𝐾)‘𝑊) → 𝑖 = ((HDMap1‘𝐾)‘𝑊))
45 hdmapfval.i . . . . . . . . . . . 12 𝐼 = ((HDMap1‘𝐾)‘𝑊)
4644, 45eqtr4di 2783 . . . . . . . . . . 11 (𝑖 = ((HDMap1‘𝐾)‘𝑊) → 𝑖 = 𝐼)
47 fveq1 6891 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝐼 → (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩) = (𝐼‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))
48 fveq1 6891 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝐼 → (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩) = (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩))
4948oteq2d 4882 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝐼 → ⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩ = ⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)
5049fveq2d 6896 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝐼 → (𝐼‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩) = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))
5147, 50eqtrd 2765 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝐼 → (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩) = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))
5251eqeq2d 2736 . . . . . . . . . . . . . . . 16 (𝑖 = 𝐼 → (𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩) ↔ 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))
5352imbi2d 339 . . . . . . . . . . . . . . 15 (𝑖 = 𝐼 → ((¬ 𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)) ↔ (¬ 𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))
5453ralbidv 3168 . . . . . . . . . . . . . 14 (𝑖 = 𝐼 → (∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)) ↔ ∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))
5554riotabidv 7374 . . . . . . . . . . . . 13 (𝑖 = 𝐼 → (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))) = (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))
5655mpteq2dv 5245 . . . . . . . . . . . 12 (𝑖 = 𝐼 → (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) = (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))))
5756eleq2d 2811 . . . . . . . . . . 11 (𝑖 = 𝐼 → (𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
5846, 57syl 17 . . . . . . . . . 10 (𝑖 = ((HDMap1‘𝐾)‘𝑊) → (𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))))))
5943, 58sbcie 3812 . . . . . . . . 9 ([((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))))
60 simp3 1135 . . . . . . . . . . 11 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → 𝑣 = 𝑉)
61 hdmapfval.d . . . . . . . . . . . . . 14 𝐷 = (Base‘𝐶)
62 hdmapfval.c . . . . . . . . . . . . . . 15 𝐶 = ((LCDual‘𝐾)‘𝑊)
6362fveq2i 6895 . . . . . . . . . . . . . 14 (Base‘𝐶) = (Base‘((LCDual‘𝐾)‘𝑊))
6461, 63eqtr2i 2754 . . . . . . . . . . . . 13 (Base‘((LCDual‘𝐾)‘𝑊)) = 𝐷
6564a1i 11 . . . . . . . . . . . 12 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (Base‘((LCDual‘𝐾)‘𝑊)) = 𝐷)
66 simp2 1134 . . . . . . . . . . . . . . . . . . . 20 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → 𝑢 = 𝑈)
6766fveq2d 6896 . . . . . . . . . . . . . . . . . . 19 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (LSpan‘𝑢) = (LSpan‘𝑈))
68 hdmapfval.n . . . . . . . . . . . . . . . . . . 19 𝑁 = (LSpan‘𝑈)
6967, 68eqtr4di 2783 . . . . . . . . . . . . . . . . . 18 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (LSpan‘𝑢) = 𝑁)
70 simp1 1133 . . . . . . . . . . . . . . . . . . 19 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → 𝑒 = 𝐸)
7170sneqd 4636 . . . . . . . . . . . . . . . . . 18 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → {𝑒} = {𝐸})
7269, 71fveq12d 6899 . . . . . . . . . . . . . . . . 17 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ((LSpan‘𝑢)‘{𝑒}) = (𝑁‘{𝐸}))
7369fveq1d 6894 . . . . . . . . . . . . . . . . 17 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ((LSpan‘𝑢)‘{𝑡}) = (𝑁‘{𝑡}))
7472, 73uneq12d 4157 . . . . . . . . . . . . . . . 16 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) = ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})))
7574eleq2d 2811 . . . . . . . . . . . . . . 15 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) ↔ 𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡}))))
7675notbid 317 . . . . . . . . . . . . . 14 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (¬ 𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) ↔ ¬ 𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡}))))
7770oteq1d 4881 . . . . . . . . . . . . . . . . . . 19 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩ = ⟨𝐸, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩)
7870fveq2d 6896 . . . . . . . . . . . . . . . . . . . . 21 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (((HVMap‘𝐾)‘𝑊)‘𝑒) = (((HVMap‘𝐾)‘𝑊)‘𝐸))
79 hdmapfval.j . . . . . . . . . . . . . . . . . . . . . 22 𝐽 = ((HVMap‘𝐾)‘𝑊)
8079fveq1i 6893 . . . . . . . . . . . . . . . . . . . . 21 (𝐽𝐸) = (((HVMap‘𝐾)‘𝑊)‘𝐸)
8178, 80eqtr4di 2783 . . . . . . . . . . . . . . . . . . . 20 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (((HVMap‘𝐾)‘𝑊)‘𝑒) = (𝐽𝐸))
8281oteq2d 4882 . . . . . . . . . . . . . . . . . . 19 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ⟨𝐸, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩ = ⟨𝐸, (𝐽𝐸), 𝑧⟩)
8377, 82eqtrd 2765 . . . . . . . . . . . . . . . . . 18 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩ = ⟨𝐸, (𝐽𝐸), 𝑧⟩)
8483fveq2d 6896 . . . . . . . . . . . . . . . . 17 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩) = (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩))
8584oteq2d 4882 . . . . . . . . . . . . . . . 16 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩ = ⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)
8685fveq2d 6896 . . . . . . . . . . . . . . 15 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩) = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))
8786eqeq2d 2736 . . . . . . . . . . . . . 14 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩) ↔ 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))
8876, 87imbi12d 343 . . . . . . . . . . . . 13 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ((¬ 𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)) ↔ (¬ 𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))
8960, 88raleqbidv 3330 . . . . . . . . . . . 12 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)) ↔ ∀𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))
9065, 89riotaeqbidv 7375 . . . . . . . . . . 11 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩))) = (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))
9160, 90mpteq12dv 5234 . . . . . . . . . 10 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) = (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
9291eleq2d 2811 . . . . . . . . 9 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → (𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))))
9359, 92bitrid 282 . . . . . . . 8 ((𝑒 = 𝐸𝑢 = 𝑈𝑣 = 𝑉) → ([((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))))
9434, 37, 42, 93syl3anc 1368 . . . . . . 7 ((𝑒 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ ∧ 𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢)) → ([((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))))
9529, 30, 31, 94sbc3ie 3854 . . . . . 6 ([⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩ / 𝑒][((DVecH‘𝐾)‘𝑊) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑊) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑊))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑊)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
9628, 95bitrdi 286 . . . . 5 (𝑤 = 𝑊 → ([⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩)))) ↔ 𝑎 ∈ (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩))))))
9796eqabcdv 2860 . . . 4 (𝑤 = 𝑊 → {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))} = (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
98 eqid 2725 . . . 4 (𝑤𝐻 ↦ {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))}) = (𝑤𝐻 ↦ {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))})
9997, 98, 41mptfvmpt 7236 . . 3 (𝑊𝐻 → ((𝑤𝐻 ↦ {𝑎[⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑤))⟩ / 𝑒][((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][((HDMap1‘𝐾)‘𝑤) / 𝑖]𝑎 ∈ (𝑡𝑣 ↦ (𝑦 ∈ (Base‘((LCDual‘𝐾)‘𝑤))∀𝑧𝑣𝑧 ∈ (((LSpan‘𝑢)‘{𝑒}) ∪ ((LSpan‘𝑢)‘{𝑡})) → 𝑦 = (𝑖‘⟨𝑧, (𝑖‘⟨𝑒, (((HVMap‘𝐾)‘𝑤)‘𝑒), 𝑧⟩), 𝑡⟩))))})‘𝑊) = (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
1006, 99sylan9eq 2785 . 2 ((𝐾𝐴𝑊𝐻) → 𝑆 = (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
1011, 100syl 17 1 (𝜑𝑆 = (𝑡𝑉 ↦ (𝑦𝐷𝑧𝑉𝑧 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑡})) → 𝑦 = (𝐼‘⟨𝑧, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑧⟩), 𝑡⟩)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 394  w3a 1084   = wceq 1533  wcel 2098  {cab 2702  wral 3051  [wsbc 3768  cun 3937  {csn 4624  cop 4630  cotp 4632  cmpt 5226   I cid 5569  cres 5674  cfv 6543  crio 7371  Basecbs 17179  LSpanclspn 20859  LHypclh 39513  LTrncltrn 39630  DVecHcdvh 40607  LCDualclcd 41115  HVMapchvm 41285  HDMap1chdma1 41320  HDMapchdma 41321
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pr 5423
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-ral 3052  df-rex 3061  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3769  df-csb 3885  df-dif 3942  df-un 3944  df-in 3946  df-ss 3956  df-nul 4319  df-if 4525  df-sn 4625  df-pr 4627  df-op 4631  df-ot 4633  df-uni 4904  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5227  df-id 5570  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7372  df-hdmap 41323
This theorem is referenced by:  hdmapval  41357  hdmapfnN  41358
  Copyright terms: Public domain W3C validator