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 40259
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 40258 . . . . 5 (𝐾𝐴 → (HDMap1‘𝐾) = (𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
54fveq1d 6844 . . . 4 (𝐾𝐴 → ((HDMap1‘𝐾)‘𝑊) = ((𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))})‘𝑊))
62, 5eqtrid 2788 . . 3 (𝐾𝐴𝐼 = ((𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))})‘𝑊))
7 fveq2 6842 . . . . . . 7 (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = ((DVecH‘𝐾)‘𝑊))
8 fveq2 6842 . . . . . . . . . 10 (𝑤 = 𝑊 → ((LCDual‘𝐾)‘𝑤) = ((LCDual‘𝐾)‘𝑊))
9 fveq2 6842 . . . . . . . . . . . . 13 (𝑤 = 𝑊 → ((mapd‘𝐾)‘𝑤) = ((mapd‘𝐾)‘𝑊))
109sbceq1d 3744 . . . . . . . . . . . 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 3798 . . . . . . . . . . 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 3798 . . . . . . . . . 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 3746 . . . . . . . . 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 3798 . . . . . . . 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 3798 . . . . . . 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 3746 . . . . . 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 6855 . . . . . . 7 ((DVecH‘𝐾)‘𝑊) ∈ V
18 fvex 6855 . . . . . . 7 (Base‘𝑢) ∈ V
19 fvex 6855 . . . . . . 7 (LSpan‘𝑢) ∈ V
20 hdmap1fval.u . . . . . . . . . . 11 𝑈 = ((DVecH‘𝐾)‘𝑊)
2120eqeq2i 2749 . . . . . . . . . 10 (𝑢 = 𝑈𝑢 = ((DVecH‘𝐾)‘𝑊))
2221biimpri 227 . . . . . . . . 9 (𝑢 = ((DVecH‘𝐾)‘𝑊) → 𝑢 = 𝑈)
23223ad2ant1 1133 . . . . . . . 8 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑢 = 𝑈)
24 simp2 1137 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑣 = (Base‘𝑢))
2522fveq2d 6846 . . . . . . . . . . 11 (𝑢 = ((DVecH‘𝐾)‘𝑊) → (Base‘𝑢) = (Base‘𝑈))
26253ad2ant1 1133 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → (Base‘𝑢) = (Base‘𝑈))
2724, 26eqtrd 2776 . . . . . . . . 9 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑣 = (Base‘𝑈))
28 hdmap1fval.v . . . . . . . . 9 𝑉 = (Base‘𝑈)
2927, 28eqtr4di 2794 . . . . . . . 8 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑣 = 𝑉)
30 simp3 1138 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑛 = (LSpan‘𝑢))
3123fveq2d 6846 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → (LSpan‘𝑢) = (LSpan‘𝑈))
3230, 31eqtrd 2776 . . . . . . . . 9 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑛 = (LSpan‘𝑈))
33 hdmap1fval.n . . . . . . . . 9 𝑁 = (LSpan‘𝑈)
3432, 33eqtr4di 2794 . . . . . . . 8 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑛 = 𝑁)
35 fvex 6855 . . . . . . . . . 10 ((LCDual‘𝐾)‘𝑊) ∈ V
36 fvex 6855 . . . . . . . . . 10 (Base‘𝑐) ∈ V
37 fvex 6855 . . . . . . . . . 10 (LSpan‘𝑐) ∈ V
38 id 22 . . . . . . . . . . . . 13 (𝑐 = ((LCDual‘𝐾)‘𝑊) → 𝑐 = ((LCDual‘𝐾)‘𝑊))
39 hdmap1fval.c . . . . . . . . . . . . 13 𝐶 = ((LCDual‘𝐾)‘𝑊)
4038, 39eqtr4di 2794 . . . . . . . . . . . 12 (𝑐 = ((LCDual‘𝐾)‘𝑊) → 𝑐 = 𝐶)
41403ad2ant1 1133 . . . . . . . . . . 11 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑐 = 𝐶)
42 simp2 1137 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑑 = (Base‘𝑐))
4341fveq2d 6846 . . . . . . . . . . . . 13 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (Base‘𝑐) = (Base‘𝐶))
44 hdmap1fval.d . . . . . . . . . . . . 13 𝐷 = (Base‘𝐶)
4543, 44eqtr4di 2794 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (Base‘𝑐) = 𝐷)
4642, 45eqtrd 2776 . . . . . . . . . . 11 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑑 = 𝐷)
47 simp3 1138 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑗 = (LSpan‘𝑐))
4841fveq2d 6846 . . . . . . . . . . . . 13 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (LSpan‘𝑐) = (LSpan‘𝐶))
49 hdmap1fval.j . . . . . . . . . . . . 13 𝐽 = (LSpan‘𝐶)
5048, 49eqtr4di 2794 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (LSpan‘𝑐) = 𝐽)
5147, 50eqtrd 2776 . . . . . . . . . . 11 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑗 = 𝐽)
52 fvex 6855 . . . . . . . . . . . . 13 ((mapd‘𝐾)‘𝑊) ∈ V
53 id 22 . . . . . . . . . . . . . . 15 (𝑚 = ((mapd‘𝐾)‘𝑊) → 𝑚 = ((mapd‘𝐾)‘𝑊))
54 hdmap1fval.m . . . . . . . . . . . . . . 15 𝑀 = ((mapd‘𝐾)‘𝑊)
5553, 54eqtr4di 2794 . . . . . . . . . . . . . 14 (𝑚 = ((mapd‘𝐾)‘𝑊) → 𝑚 = 𝑀)
56 fveq1 6841 . . . . . . . . . . . . . . . . . . . 20 (𝑚 = 𝑀 → (𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑀‘(𝑛‘{(2nd𝑥)})))
5756eqeq1d 2738 . . . . . . . . . . . . . . . . . . 19 (𝑚 = 𝑀 → ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ↔ (𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{})))
58 fveq1 6841 . . . . . . . . . . . . . . . . . . . 20 (𝑚 = 𝑀 → (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})))
5958eqeq1d 2738 . . . . . . . . . . . . . . . . . . 19 (𝑚 = 𝑀 → ((𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}) ↔ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))
6057, 59anbi12d 631 . . . . . . . . . . . . . . . . . 18 (𝑚 = 𝑀 → (((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})) ↔ ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))
6160riotabidv 7315 . . . . . . . . . . . . . . . . 17 (𝑚 = 𝑀 → (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))) = (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))
6261ifeq2d 4506 . . . . . . . . . . . . . . . 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 5207 . . . . . . . . . . . . . . 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 2823 . . . . . . . . . . . . . 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 3782 . . . . . . . . . . . 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 1137 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → 𝑑 = 𝐷)
68 xpeq2 5654 . . . . . . . . . . . . . . . 16 (𝑑 = 𝐷 → (𝑣 × 𝑑) = (𝑣 × 𝐷))
6968xpeq1d 5662 . . . . . . . . . . . . . . 15 (𝑑 = 𝐷 → ((𝑣 × 𝑑) × 𝑣) = ((𝑣 × 𝐷) × 𝑣))
7067, 69syl 17 . . . . . . . . . . . . . 14 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((𝑣 × 𝑑) × 𝑣) = ((𝑣 × 𝐷) × 𝑣))
71 simp1 1136 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → 𝑐 = 𝐶)
7271fveq2d 6846 . . . . . . . . . . . . . . . 16 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (0g𝑐) = (0g𝐶))
73 hdmap1fval.q . . . . . . . . . . . . . . . 16 𝑄 = (0g𝐶)
7472, 73eqtr4di 2794 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (0g𝑐) = 𝑄)
75 simp3 1138 . . . . . . . . . . . . . . . . . . 19 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → 𝑗 = 𝐽)
7675fveq1d 6844 . . . . . . . . . . . . . . . . . 18 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑗‘{}) = (𝐽‘{}))
7776eqeq2d 2747 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ↔ (𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{})))
7871fveq2d 6846 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (-g𝑐) = (-g𝐶))
79 hdmap1fval.r . . . . . . . . . . . . . . . . . . . . . 22 𝑅 = (-g𝐶)
8078, 79eqtr4di 2794 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (-g𝑐) = 𝑅)
8180oveqd 7374 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((2nd ‘(1st𝑥))(-g𝑐)) = ((2nd ‘(1st𝑥))𝑅))
8281sneqd 4598 . . . . . . . . . . . . . . . . . . 19 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → {((2nd ‘(1st𝑥))(-g𝑐))} = {((2nd ‘(1st𝑥))𝑅)})
8375, 82fveq12d 6849 . . . . . . . . . . . . . . . . . 18 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))
8483eqeq2d 2747 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}) ↔ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))
8577, 84anbi12d 631 . . . . . . . . . . . . . . . 16 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})) ↔ ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
8667, 85riotaeqbidv 7316 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))) = (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
8774, 86ifeq12d 4507 . . . . . . . . . . . . . 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 5196 . . . . . . . . . . . . 13 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) = (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))))
8988eleq2d 2823 . . . . . . . . . . . 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 282 . . . . . . . . . . 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 1371 . . . . . . . . . 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 3825 . . . . . . . . 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 1137 . . . . . . . . . . . . 13 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → 𝑣 = 𝑉)
9493xpeq1d 5662 . . . . . . . . . . . 12 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑣 × 𝐷) = (𝑉 × 𝐷))
9594, 93xpeq12d 5664 . . . . . . . . . . 11 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((𝑣 × 𝐷) × 𝑣) = ((𝑉 × 𝐷) × 𝑉))
96 simp1 1136 . . . . . . . . . . . . . . 15 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → 𝑢 = 𝑈)
9796fveq2d 6846 . . . . . . . . . . . . . 14 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (0g𝑢) = (0g𝑈))
98 hdmap1fval.o . . . . . . . . . . . . . 14 0 = (0g𝑈)
9997, 98eqtr4di 2794 . . . . . . . . . . . . 13 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (0g𝑢) = 0 )
10099eqeq2d 2747 . . . . . . . . . . . 12 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((2nd𝑥) = (0g𝑢) ↔ (2nd𝑥) = 0 ))
101 simp3 1138 . . . . . . . . . . . . . . . 16 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → 𝑛 = 𝑁)
102101fveq1d 6844 . . . . . . . . . . . . . . 15 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑛‘{(2nd𝑥)}) = (𝑁‘{(2nd𝑥)}))
103102fveqeq2d 6850 . . . . . . . . . . . . . 14 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ↔ (𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{})))
10496fveq2d 6846 . . . . . . . . . . . . . . . . . . 19 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (-g𝑢) = (-g𝑈))
105 hdmap1fval.s . . . . . . . . . . . . . . . . . . 19 = (-g𝑈)
106104, 105eqtr4di 2794 . . . . . . . . . . . . . . . . . 18 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (-g𝑢) = )
107106oveqd 7374 . . . . . . . . . . . . . . . . 17 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥)) = ((1st ‘(1st𝑥)) (2nd𝑥)))
108107sneqd 4598 . . . . . . . . . . . . . . . 16 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → {((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))} = {((1st ‘(1st𝑥)) (2nd𝑥))})
109101, 108fveq12d 6849 . . . . . . . . . . . . . . 15 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))}) = (𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))}))
110109fveqeq2d 6850 . . . . . . . . . . . . . 14 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}) ↔ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))
111103, 110anbi12d 631 . . . . . . . . . . . . 13 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})) ↔ ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
112111riotabidv 7315 . . . . . . . . . . . 12 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))) = (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
113100, 112ifbieq2d 4512 . . . . . . . . . . 11 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))) = if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))))
11495, 113mpteq12dv 5196 . . . . . . . . . 10 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))) = (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))))
115114eleq2d 2823 . . . . . . . . 9 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))) ↔ 𝑎 ∈ (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))))))
11692, 115bitrid 282 . . . . . . . 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 1371 . . . . . . 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 3825 . . . . . 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 286 . . . . 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𝑥))𝑅)})))))))
120119abbi1dv 2872 . . . 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 2736 . . . 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 6856 . . . . . . 7 𝑉 ∈ V
12344fvexi 6856 . . . . . . 7 𝐷 ∈ V
124122, 123xpex 7687 . . . . . 6 (𝑉 × 𝐷) ∈ V
125124, 122xpex 7687 . . . . 5 ((𝑉 × 𝐷) × 𝑉) ∈ V
126125mptex 7173 . . . 4 (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))) ∈ V
127120, 121, 126fvmpt 6948 . . 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 2796 . 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 396  w3a 1087   = wceq 1541  wcel 2106  {cab 2713  [wsbc 3739  ifcif 4486  {csn 4586  cmpt 5188   × cxp 5631  cfv 6496  crio 7312  (class class class)co 7357  1st c1st 7919  2nd c2nd 7920  Basecbs 17083  0gc0g 17321  -gcsg 18750  LSpanclspn 20432  LHypclh 38447  DVecHcdvh 39541  LCDualclcd 40049  mapdcmpd 40087  HDMap1chdma1 40254
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-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672
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 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-hdmap1 40256
This theorem is referenced by:  hdmap1vallem  40260
  Copyright terms: Public domain W3C validator