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

Theorem hdmap1fval 41180
Description: Preliminary map from vectors to functionals in the closed kernel dual space. TODO: change span 𝐽 to the convention 𝐿 for this section. (Contributed by NM, 15-May-2015.)
Hypotheses
Ref Expression
hdmap1val.h 𝐻 = (LHypβ€˜πΎ)
hdmap1fval.u π‘ˆ = ((DVecHβ€˜πΎ)β€˜π‘Š)
hdmap1fval.v 𝑉 = (Baseβ€˜π‘ˆ)
hdmap1fval.s βˆ’ = (-gβ€˜π‘ˆ)
hdmap1fval.o 0 = (0gβ€˜π‘ˆ)
hdmap1fval.n 𝑁 = (LSpanβ€˜π‘ˆ)
hdmap1fval.c 𝐢 = ((LCDualβ€˜πΎ)β€˜π‘Š)
hdmap1fval.d 𝐷 = (Baseβ€˜πΆ)
hdmap1fval.r 𝑅 = (-gβ€˜πΆ)
hdmap1fval.q 𝑄 = (0gβ€˜πΆ)
hdmap1fval.j 𝐽 = (LSpanβ€˜πΆ)
hdmap1fval.m 𝑀 = ((mapdβ€˜πΎ)β€˜π‘Š)
hdmap1fval.i 𝐼 = ((HDMap1β€˜πΎ)β€˜π‘Š)
hdmap1fval.k (πœ‘ β†’ (𝐾 ∈ 𝐴 ∧ π‘Š ∈ 𝐻))
Assertion
Ref Expression
hdmap1fval (πœ‘ β†’ 𝐼 = (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
Distinct variable groups:   π‘₯,β„Ž,𝐢   𝐷,β„Ž,π‘₯   β„Ž,𝐽,π‘₯   β„Ž,𝑀,π‘₯   β„Ž,𝑁,π‘₯   π‘ˆ,β„Ž,π‘₯   β„Ž,𝑉,π‘₯
Allowed substitution hints:   πœ‘(π‘₯,β„Ž)   𝐴(π‘₯,β„Ž)   𝑄(π‘₯,β„Ž)   𝑅(π‘₯,β„Ž)   𝐻(π‘₯,β„Ž)   𝐼(π‘₯,β„Ž)   𝐾(π‘₯,β„Ž)   βˆ’ (π‘₯,β„Ž)   π‘Š(π‘₯,β„Ž)   0 (π‘₯,β„Ž)

Proof of Theorem hdmap1fval
Dummy variables 𝑀 π‘Ž 𝑐 𝑑 𝑗 π‘š 𝑛 𝑒 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hdmap1fval.k . 2 (πœ‘ β†’ (𝐾 ∈ 𝐴 ∧ π‘Š ∈ 𝐻))
2 hdmap1fval.i . . . 4 𝐼 = ((HDMap1β€˜πΎ)β€˜π‘Š)
3 hdmap1val.h . . . . . 6 𝐻 = (LHypβ€˜πΎ)
43hdmap1ffval 41179 . . . . 5 (𝐾 ∈ 𝐴 β†’ (HDMap1β€˜πΎ) = (𝑀 ∈ 𝐻 ↦ {π‘Ž ∣ [((DVecHβ€˜πΎ)β€˜π‘€) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘€) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘€) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))}))
54fveq1d 6887 . . . 4 (𝐾 ∈ 𝐴 β†’ ((HDMap1β€˜πΎ)β€˜π‘Š) = ((𝑀 ∈ 𝐻 ↦ {π‘Ž ∣ [((DVecHβ€˜πΎ)β€˜π‘€) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘€) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘€) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))})β€˜π‘Š))
62, 5eqtrid 2778 . . 3 (𝐾 ∈ 𝐴 β†’ 𝐼 = ((𝑀 ∈ 𝐻 ↦ {π‘Ž ∣ [((DVecHβ€˜πΎ)β€˜π‘€) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘€) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘€) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))})β€˜π‘Š))
7 fveq2 6885 . . . . . . 7 (𝑀 = π‘Š β†’ ((DVecHβ€˜πΎ)β€˜π‘€) = ((DVecHβ€˜πΎ)β€˜π‘Š))
8 fveq2 6885 . . . . . . . . . 10 (𝑀 = π‘Š β†’ ((LCDualβ€˜πΎ)β€˜π‘€) = ((LCDualβ€˜πΎ)β€˜π‘Š))
9 fveq2 6885 . . . . . . . . . . . . 13 (𝑀 = π‘Š β†’ ((mapdβ€˜πΎ)β€˜π‘€) = ((mapdβ€˜πΎ)β€˜π‘Š))
109sbceq1d 3777 . . . . . . . . . . . 12 (𝑀 = π‘Š β†’ ([((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β€˜π‘)β„Ž)})))))))
1110sbcbidv 3831 . . . . . . . . . . 11 (𝑀 = π‘Š β†’ ([(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β€˜π‘)β„Ž)})))))))
1211sbcbidv 3831 . . . . . . . . . 10 (𝑀 = π‘Š β†’ ([(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β€˜π‘)β„Ž)})))))))
138, 12sbceqbid 3779 . . . . . . . . 9 (𝑀 = π‘Š β†’ ([((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β€˜π‘)β„Ž)})))))))
1413sbcbidv 3831 . . . . . . . 8 (𝑀 = π‘Š β†’ ([(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β€˜π‘)β„Ž)})))))))
1514sbcbidv 3831 . . . . . . 7 (𝑀 = π‘Š β†’ ([(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β€˜π‘)β„Ž)})))))))
167, 15sbceqbid 3779 . . . . . 6 (𝑀 = π‘Š β†’ ([((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β€˜π‘)β„Ž)})))))))
17 fvex 6898 . . . . . . 7 ((DVecHβ€˜πΎ)β€˜π‘Š) ∈ V
18 fvex 6898 . . . . . . 7 (Baseβ€˜π‘’) ∈ V
19 fvex 6898 . . . . . . 7 (LSpanβ€˜π‘’) ∈ V
20 hdmap1fval.u . . . . . . . . . . 11 π‘ˆ = ((DVecHβ€˜πΎ)β€˜π‘Š)
2120eqeq2i 2739 . . . . . . . . . 10 (𝑒 = π‘ˆ ↔ 𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š))
2221biimpri 227 . . . . . . . . 9 (𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) β†’ 𝑒 = π‘ˆ)
23223ad2ant1 1130 . . . . . . . 8 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑒 = π‘ˆ)
24 simp2 1134 . . . . . . . . . 10 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑣 = (Baseβ€˜π‘’))
2522fveq2d 6889 . . . . . . . . . . 11 (𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) β†’ (Baseβ€˜π‘’) = (Baseβ€˜π‘ˆ))
26253ad2ant1 1130 . . . . . . . . . 10 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ (Baseβ€˜π‘’) = (Baseβ€˜π‘ˆ))
2724, 26eqtrd 2766 . . . . . . . . 9 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑣 = (Baseβ€˜π‘ˆ))
28 hdmap1fval.v . . . . . . . . 9 𝑉 = (Baseβ€˜π‘ˆ)
2927, 28eqtr4di 2784 . . . . . . . 8 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑣 = 𝑉)
30 simp3 1135 . . . . . . . . . 10 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑛 = (LSpanβ€˜π‘’))
3123fveq2d 6889 . . . . . . . . . 10 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ (LSpanβ€˜π‘’) = (LSpanβ€˜π‘ˆ))
3230, 31eqtrd 2766 . . . . . . . . 9 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑛 = (LSpanβ€˜π‘ˆ))
33 hdmap1fval.n . . . . . . . . 9 𝑁 = (LSpanβ€˜π‘ˆ)
3432, 33eqtr4di 2784 . . . . . . . 8 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ 𝑛 = 𝑁)
35 fvex 6898 . . . . . . . . . 10 ((LCDualβ€˜πΎ)β€˜π‘Š) ∈ V
36 fvex 6898 . . . . . . . . . 10 (Baseβ€˜π‘) ∈ V
37 fvex 6898 . . . . . . . . . 10 (LSpanβ€˜π‘) ∈ V
38 id 22 . . . . . . . . . . . . 13 (𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) β†’ 𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š))
39 hdmap1fval.c . . . . . . . . . . . . 13 𝐢 = ((LCDualβ€˜πΎ)β€˜π‘Š)
4038, 39eqtr4di 2784 . . . . . . . . . . . 12 (𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) β†’ 𝑐 = 𝐢)
41403ad2ant1 1130 . . . . . . . . . . 11 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ 𝑐 = 𝐢)
42 simp2 1134 . . . . . . . . . . . 12 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ 𝑑 = (Baseβ€˜π‘))
4341fveq2d 6889 . . . . . . . . . . . . 13 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ (Baseβ€˜π‘) = (Baseβ€˜πΆ))
44 hdmap1fval.d . . . . . . . . . . . . 13 𝐷 = (Baseβ€˜πΆ)
4543, 44eqtr4di 2784 . . . . . . . . . . . 12 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ (Baseβ€˜π‘) = 𝐷)
4642, 45eqtrd 2766 . . . . . . . . . . 11 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ 𝑑 = 𝐷)
47 simp3 1135 . . . . . . . . . . . 12 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ 𝑗 = (LSpanβ€˜π‘))
4841fveq2d 6889 . . . . . . . . . . . . 13 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ (LSpanβ€˜π‘) = (LSpanβ€˜πΆ))
49 hdmap1fval.j . . . . . . . . . . . . 13 𝐽 = (LSpanβ€˜πΆ)
5048, 49eqtr4di 2784 . . . . . . . . . . . 12 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ (LSpanβ€˜π‘) = 𝐽)
5147, 50eqtrd 2766 . . . . . . . . . . 11 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ 𝑗 = 𝐽)
52 fvex 6898 . . . . . . . . . . . . 13 ((mapdβ€˜πΎ)β€˜π‘Š) ∈ V
53 id 22 . . . . . . . . . . . . . . 15 (π‘š = ((mapdβ€˜πΎ)β€˜π‘Š) β†’ π‘š = ((mapdβ€˜πΎ)β€˜π‘Š))
54 hdmap1fval.m . . . . . . . . . . . . . . 15 𝑀 = ((mapdβ€˜πΎ)β€˜π‘Š)
5553, 54eqtr4di 2784 . . . . . . . . . . . . . 14 (π‘š = ((mapdβ€˜πΎ)β€˜π‘Š) β†’ π‘š = 𝑀)
56 fveq1 6884 . . . . . . . . . . . . . . . . . . . 20 (π‘š = 𝑀 β†’ (π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})))
5756eqeq1d 2728 . . . . . . . . . . . . . . . . . . 19 (π‘š = 𝑀 β†’ ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ↔ (π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž})))
58 fveq1 6884 . . . . . . . . . . . . . . . . . . . 20 (π‘š = 𝑀 β†’ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})))
5958eqeq1d 2728 . . . . . . . . . . . . . . . . . . 19 (π‘š = 𝑀 β†’ ((π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}) ↔ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))
6057, 59anbi12d 630 . . . . . . . . . . . . . . . . . 18 (π‘š = 𝑀 β†’ (((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})) ↔ ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))
6160riotabidv 7363 . . . . . . . . . . . . . . . . 17 (π‘š = 𝑀 β†’ (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))) = (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))
6261ifeq2d 4543 . . . . . . . . . . . . . . . 16 (π‘š = 𝑀 β†’ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))) = if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))
6362mpteq2dv 5243 . . . . . . . . . . . . . . 15 (π‘š = 𝑀 β†’ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) = (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))))
6463eleq2d 2813 . . . . . . . . . . . . . 14 (π‘š = 𝑀 β†’ (π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))))
6555, 64syl 17 . . . . . . . . . . . . 13 (π‘š = ((mapdβ€˜πΎ)β€˜π‘Š) β†’ (π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))))
6652, 65sbcie 3815 . . . . . . . . . . . 12 ([((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))))
67 simp2 1134 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ 𝑑 = 𝐷)
68 xpeq2 5690 . . . . . . . . . . . . . . . 16 (𝑑 = 𝐷 β†’ (𝑣 Γ— 𝑑) = (𝑣 Γ— 𝐷))
6968xpeq1d 5698 . . . . . . . . . . . . . . 15 (𝑑 = 𝐷 β†’ ((𝑣 Γ— 𝑑) Γ— 𝑣) = ((𝑣 Γ— 𝐷) Γ— 𝑣))
7067, 69syl 17 . . . . . . . . . . . . . 14 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ ((𝑣 Γ— 𝑑) Γ— 𝑣) = ((𝑣 Γ— 𝐷) Γ— 𝑣))
71 simp1 1133 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ 𝑐 = 𝐢)
7271fveq2d 6889 . . . . . . . . . . . . . . . 16 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (0gβ€˜π‘) = (0gβ€˜πΆ))
73 hdmap1fval.q . . . . . . . . . . . . . . . 16 𝑄 = (0gβ€˜πΆ)
7472, 73eqtr4di 2784 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (0gβ€˜π‘) = 𝑄)
75 simp3 1135 . . . . . . . . . . . . . . . . . . 19 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ 𝑗 = 𝐽)
7675fveq1d 6887 . . . . . . . . . . . . . . . . . 18 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (π‘—β€˜{β„Ž}) = (π½β€˜{β„Ž}))
7776eqeq2d 2737 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ↔ (π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž})))
7871fveq2d 6889 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (-gβ€˜π‘) = (-gβ€˜πΆ))
79 hdmap1fval.r . . . . . . . . . . . . . . . . . . . . . 22 𝑅 = (-gβ€˜πΆ)
8078, 79eqtr4di 2784 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (-gβ€˜π‘) = 𝑅)
8180oveqd 7422 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ ((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž) = ((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž))
8281sneqd 4635 . . . . . . . . . . . . . . . . . . 19 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ {((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)} = {((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})
8375, 82fveq12d 6892 . . . . . . . . . . . . . . . . . 18 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))
8483eqeq2d 2737 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ ((π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}) ↔ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))
8577, 84anbi12d 630 . . . . . . . . . . . . . . . 16 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})) ↔ ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))
8667, 85riotaeqbidv 7364 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))) = (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))
8774, 86ifeq12d 4544 . . . . . . . . . . . . . 14 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))) = if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))
8870, 87mpteq12dv 5232 . . . . . . . . . . . . 13 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) = (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
8988eleq2d 2813 . . . . . . . . . . . 12 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ (π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
9066, 89bitrid 283 . . . . . . . . . . 11 ((𝑐 = 𝐢 ∧ 𝑑 = 𝐷 ∧ 𝑗 = 𝐽) β†’ ([((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
9141, 46, 51, 90syl3anc 1368 . . . . . . . . . 10 ((𝑐 = ((LCDualβ€˜πΎ)β€˜π‘Š) ∧ 𝑑 = (Baseβ€˜π‘) ∧ 𝑗 = (LSpanβ€˜π‘)) β†’ ([((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
9235, 36, 37, 91sbc3ie 3858 . . . . . . . . 9 ([((LCDualβ€˜πΎ)β€˜π‘Š) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
93 simp2 1134 . . . . . . . . . . . . 13 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ 𝑣 = 𝑉)
9493xpeq1d 5698 . . . . . . . . . . . 12 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (𝑣 Γ— 𝐷) = (𝑉 Γ— 𝐷))
9594, 93xpeq12d 5700 . . . . . . . . . . 11 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ ((𝑣 Γ— 𝐷) Γ— 𝑣) = ((𝑉 Γ— 𝐷) Γ— 𝑉))
96 simp1 1133 . . . . . . . . . . . . . . 15 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ 𝑒 = π‘ˆ)
9796fveq2d 6889 . . . . . . . . . . . . . 14 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (0gβ€˜π‘’) = (0gβ€˜π‘ˆ))
98 hdmap1fval.o . . . . . . . . . . . . . 14 0 = (0gβ€˜π‘ˆ)
9997, 98eqtr4di 2784 . . . . . . . . . . . . 13 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (0gβ€˜π‘’) = 0 )
10099eqeq2d 2737 . . . . . . . . . . . 12 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ ((2nd β€˜π‘₯) = (0gβ€˜π‘’) ↔ (2nd β€˜π‘₯) = 0 ))
101 simp3 1135 . . . . . . . . . . . . . . . 16 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ 𝑛 = 𝑁)
102101fveq1d 6887 . . . . . . . . . . . . . . 15 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (π‘›β€˜{(2nd β€˜π‘₯)}) = (π‘β€˜{(2nd β€˜π‘₯)}))
103102fveqeq2d 6893 . . . . . . . . . . . . . 14 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ↔ (π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž})))
10496fveq2d 6889 . . . . . . . . . . . . . . . . . . 19 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (-gβ€˜π‘’) = (-gβ€˜π‘ˆ))
105 hdmap1fval.s . . . . . . . . . . . . . . . . . . 19 βˆ’ = (-gβ€˜π‘ˆ)
106104, 105eqtr4di 2784 . . . . . . . . . . . . . . . . . 18 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (-gβ€˜π‘’) = βˆ’ )
107106oveqd 7422 . . . . . . . . . . . . . . . . 17 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ ((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯)) = ((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯)))
108107sneqd 4635 . . . . . . . . . . . . . . . 16 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ {((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))} = {((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})
109101, 108fveq12d 6892 . . . . . . . . . . . . . . 15 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))}) = (π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))}))
110109fveqeq2d 6893 . . . . . . . . . . . . . 14 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ ((π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}) ↔ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))
111103, 110anbi12d 630 . . . . . . . . . . . . 13 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})) ↔ ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))
112111riotabidv 7363 . . . . . . . . . . . 12 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))) = (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))
113100, 112ifbieq2d 4549 . . . . . . . . . . 11 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))) = if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))
11495, 113mpteq12dv 5232 . . . . . . . . . 10 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))) = (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
115114eleq2d 2813 . . . . . . . . 9 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ (π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝐷) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
11692, 115bitrid 283 . . . . . . . 8 ((𝑒 = π‘ˆ ∧ 𝑣 = 𝑉 ∧ 𝑛 = 𝑁) β†’ ([((LCDualβ€˜πΎ)β€˜π‘Š) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
11723, 29, 34, 116syl3anc 1368 . . . . . . 7 ((𝑒 = ((DVecHβ€˜πΎ)β€˜π‘Š) ∧ 𝑣 = (Baseβ€˜π‘’) ∧ 𝑛 = (LSpanβ€˜π‘’)) β†’ ([((LCDualβ€˜πΎ)β€˜π‘Š) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
11817, 18, 19, 117sbc3ie 3858 . . . . . 6 ([((DVecHβ€˜πΎ)β€˜π‘Š) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘Š) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘Š) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
11916, 118bitrdi 287 . . . . 5 (𝑀 = π‘Š β†’ ([((DVecHβ€˜πΎ)β€˜π‘€) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘€) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘€) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)}))))) ↔ π‘Ž ∈ (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)})))))))
120119eqabcdv 2862 . . . 4 (𝑀 = π‘Š β†’ {π‘Ž ∣ [((DVecHβ€˜πΎ)β€˜π‘€) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘€) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘€) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))} = (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
121 eqid 2726 . . . 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β€˜π‘)β„Ž)})))))})
12228fvexi 6899 . . . . . . 7 𝑉 ∈ V
12344fvexi 6899 . . . . . . 7 𝐷 ∈ V
124122, 123xpex 7737 . . . . . 6 (𝑉 Γ— 𝐷) ∈ V
125124, 122xpex 7737 . . . . 5 ((𝑉 Γ— 𝐷) Γ— 𝑉) ∈ V
126125mptex 7220 . . . 4 (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))) ∈ V
127120, 121, 126fvmpt 6992 . . 3 (π‘Š ∈ 𝐻 β†’ ((𝑀 ∈ 𝐻 ↦ {π‘Ž ∣ [((DVecHβ€˜πΎ)β€˜π‘€) / 𝑒][(Baseβ€˜π‘’) / 𝑣][(LSpanβ€˜π‘’) / 𝑛][((LCDualβ€˜πΎ)β€˜π‘€) / 𝑐][(Baseβ€˜π‘) / 𝑑][(LSpanβ€˜π‘) / 𝑗][((mapdβ€˜πΎ)β€˜π‘€) / π‘š]π‘Ž ∈ (π‘₯ ∈ ((𝑣 Γ— 𝑑) Γ— 𝑣) ↦ if((2nd β€˜π‘₯) = (0gβ€˜π‘’), (0gβ€˜π‘), (β„©β„Ž ∈ 𝑑 ((π‘šβ€˜(π‘›β€˜{(2nd β€˜π‘₯)})) = (π‘—β€˜{β„Ž}) ∧ (π‘šβ€˜(π‘›β€˜{((1st β€˜(1st β€˜π‘₯))(-gβ€˜π‘’)(2nd β€˜π‘₯))})) = (π‘—β€˜{((2nd β€˜(1st β€˜π‘₯))(-gβ€˜π‘)β„Ž)})))))})β€˜π‘Š) = (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
1286, 127sylan9eq 2786 . 2 ((𝐾 ∈ 𝐴 ∧ π‘Š ∈ 𝐻) β†’ 𝐼 = (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
1291, 128syl 17 1 (πœ‘ β†’ 𝐼 = (π‘₯ ∈ ((𝑉 Γ— 𝐷) Γ— 𝑉) ↦ if((2nd β€˜π‘₯) = 0 , 𝑄, (β„©β„Ž ∈ 𝐷 ((π‘€β€˜(π‘β€˜{(2nd β€˜π‘₯)})) = (π½β€˜{β„Ž}) ∧ (π‘€β€˜(π‘β€˜{((1st β€˜(1st β€˜π‘₯)) βˆ’ (2nd β€˜π‘₯))})) = (π½β€˜{((2nd β€˜(1st β€˜π‘₯))π‘…β„Ž)}))))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  {cab 2703  [wsbc 3772  ifcif 4523  {csn 4623   ↦ cmpt 5224   Γ— cxp 5667  β€˜cfv 6537  β„©crio 7360  (class class class)co 7405  1st c1st 7972  2nd c2nd 7973  Basecbs 17153  0gc0g 17394  -gcsg 18865  LSpanclspn 20818  LHypclh 39368  DVecHcdvh 40462  LCDualclcd 40970  mapdcmpd 41008  HDMap1chdma1 41175
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 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7722
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  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 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-ral 3056  df-rex 3065  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-iun 4992  df-br 5142  df-opab 5204  df-mpt 5225  df-id 5567  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-iota 6489  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7361  df-ov 7408  df-hdmap1 41177
This theorem is referenced by:  hdmap1vallem  41181
  Copyright terms: Public domain W3C validator