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

Theorem hdmap1fval 36104
 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 36103 . . . . 5 (𝐾𝐴 → (HDMap1‘𝐾) = (𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))}))
54fveq1d 6105 . . . 4 (𝐾𝐴 → ((HDMap1‘𝐾)‘𝑊) = ((𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))})‘𝑊))
62, 5syl5eq 2656 . . 3 (𝐾𝐴𝐼 = ((𝑤𝐻 ↦ {𝑎[((DVecH‘𝐾)‘𝑤) / 𝑢][(Base‘𝑢) / 𝑣][(LSpan‘𝑢) / 𝑛][((LCDual‘𝐾)‘𝑤) / 𝑐][(Base‘𝑐) / 𝑑][(LSpan‘𝑐) / 𝑗][((mapd‘𝐾)‘𝑤) / 𝑚]𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))))})‘𝑊))
7 fveq2 6103 . . . . . . 7 (𝑤 = 𝑊 → ((DVecH‘𝐾)‘𝑤) = ((DVecH‘𝐾)‘𝑊))
8 fveq2 6103 . . . . . . . . . 10 (𝑤 = 𝑊 → ((LCDual‘𝐾)‘𝑤) = ((LCDual‘𝐾)‘𝑊))
9 fveq2 6103 . . . . . . . . . . . . 13 (𝑤 = 𝑊 → ((mapd‘𝐾)‘𝑤) = ((mapd‘𝐾)‘𝑊))
109sbceq1d 3407 . . . . . . . . . . . 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 3457 . . . . . . . . . . 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 3457 . . . . . . . . . 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 3409 . . . . . . . . 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 3457 . . . . . . . 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 3457 . . . . . . 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 3409 . . . . . 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 6113 . . . . . . 7 ((DVecH‘𝐾)‘𝑊) ∈ V
18 fvex 6113 . . . . . . 7 (Base‘𝑢) ∈ V
19 fvex 6113 . . . . . . 7 (LSpan‘𝑢) ∈ V
20 hdmap1fval.u . . . . . . . . . . 11 𝑈 = ((DVecH‘𝐾)‘𝑊)
2120eqeq2i 2622 . . . . . . . . . 10 (𝑢 = 𝑈𝑢 = ((DVecH‘𝐾)‘𝑊))
2221biimpri 217 . . . . . . . . 9 (𝑢 = ((DVecH‘𝐾)‘𝑊) → 𝑢 = 𝑈)
23223ad2ant1 1075 . . . . . . . 8 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑢 = 𝑈)
24 simp2 1055 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑣 = (Base‘𝑢))
2522fveq2d 6107 . . . . . . . . . . 11 (𝑢 = ((DVecH‘𝐾)‘𝑊) → (Base‘𝑢) = (Base‘𝑈))
26253ad2ant1 1075 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → (Base‘𝑢) = (Base‘𝑈))
2724, 26eqtrd 2644 . . . . . . . . 9 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑣 = (Base‘𝑈))
28 hdmap1fval.v . . . . . . . . 9 𝑉 = (Base‘𝑈)
2927, 28syl6eqr 2662 . . . . . . . 8 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑣 = 𝑉)
30 simp3 1056 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑛 = (LSpan‘𝑢))
3123fveq2d 6107 . . . . . . . . . 10 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → (LSpan‘𝑢) = (LSpan‘𝑈))
3230, 31eqtrd 2644 . . . . . . . . 9 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑛 = (LSpan‘𝑈))
33 hdmap1fval.n . . . . . . . . 9 𝑁 = (LSpan‘𝑈)
3432, 33syl6eqr 2662 . . . . . . . 8 ((𝑢 = ((DVecH‘𝐾)‘𝑊) ∧ 𝑣 = (Base‘𝑢) ∧ 𝑛 = (LSpan‘𝑢)) → 𝑛 = 𝑁)
35 fvex 6113 . . . . . . . . . 10 ((LCDual‘𝐾)‘𝑊) ∈ V
36 fvex 6113 . . . . . . . . . 10 (Base‘𝑐) ∈ V
37 fvex 6113 . . . . . . . . . 10 (LSpan‘𝑐) ∈ V
38 id 22 . . . . . . . . . . . . 13 (𝑐 = ((LCDual‘𝐾)‘𝑊) → 𝑐 = ((LCDual‘𝐾)‘𝑊))
39 hdmap1fval.c . . . . . . . . . . . . 13 𝐶 = ((LCDual‘𝐾)‘𝑊)
4038, 39syl6eqr 2662 . . . . . . . . . . . 12 (𝑐 = ((LCDual‘𝐾)‘𝑊) → 𝑐 = 𝐶)
41403ad2ant1 1075 . . . . . . . . . . 11 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑐 = 𝐶)
42 simp2 1055 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑑 = (Base‘𝑐))
4341fveq2d 6107 . . . . . . . . . . . . 13 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (Base‘𝑐) = (Base‘𝐶))
44 hdmap1fval.d . . . . . . . . . . . . 13 𝐷 = (Base‘𝐶)
4543, 44syl6eqr 2662 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (Base‘𝑐) = 𝐷)
4642, 45eqtrd 2644 . . . . . . . . . . 11 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑑 = 𝐷)
47 simp3 1056 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑗 = (LSpan‘𝑐))
4841fveq2d 6107 . . . . . . . . . . . . 13 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (LSpan‘𝑐) = (LSpan‘𝐶))
49 hdmap1fval.j . . . . . . . . . . . . 13 𝐽 = (LSpan‘𝐶)
5048, 49syl6eqr 2662 . . . . . . . . . . . 12 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → (LSpan‘𝑐) = 𝐽)
5147, 50eqtrd 2644 . . . . . . . . . . 11 ((𝑐 = ((LCDual‘𝐾)‘𝑊) ∧ 𝑑 = (Base‘𝑐) ∧ 𝑗 = (LSpan‘𝑐)) → 𝑗 = 𝐽)
52 fvex 6113 . . . . . . . . . . . . 13 ((mapd‘𝐾)‘𝑊) ∈ V
53 id 22 . . . . . . . . . . . . . . 15 (𝑚 = ((mapd‘𝐾)‘𝑊) → 𝑚 = ((mapd‘𝐾)‘𝑊))
54 hdmap1fval.m . . . . . . . . . . . . . . 15 𝑀 = ((mapd‘𝐾)‘𝑊)
5553, 54syl6eqr 2662 . . . . . . . . . . . . . 14 (𝑚 = ((mapd‘𝐾)‘𝑊) → 𝑚 = 𝑀)
56 fveq1 6102 . . . . . . . . . . . . . . . . . . . 20 (𝑚 = 𝑀 → (𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑀‘(𝑛‘{(2nd𝑥)})))
5756eqeq1d 2612 . . . . . . . . . . . . . . . . . . 19 (𝑚 = 𝑀 → ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ↔ (𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{})))
58 fveq1 6102 . . . . . . . . . . . . . . . . . . . 20 (𝑚 = 𝑀 → (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})))
5958eqeq1d 2612 . . . . . . . . . . . . . . . . . . 19 (𝑚 = 𝑀 → ((𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}) ↔ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})))
6057, 59anbi12d 743 . . . . . . . . . . . . . . . . . 18 (𝑚 = 𝑀 → (((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})) ↔ ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))
6160riotabidv 6513 . . . . . . . . . . . . . . . . 17 (𝑚 = 𝑀 → (𝑑 ((𝑚‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑚‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))) = (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))
6261ifeq2d 4055 . . . . . . . . . . . . . . . 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 4673 . . . . . . . . . . . . . . 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 2673 . . . . . . . . . . . . . 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 3437 . . . . . . . . . . . 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 1055 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → 𝑑 = 𝐷)
68 xpeq2 5053 . . . . . . . . . . . . . . . 16 (𝑑 = 𝐷 → (𝑣 × 𝑑) = (𝑣 × 𝐷))
6968xpeq1d 5062 . . . . . . . . . . . . . . 15 (𝑑 = 𝐷 → ((𝑣 × 𝑑) × 𝑣) = ((𝑣 × 𝐷) × 𝑣))
7067, 69syl 17 . . . . . . . . . . . . . 14 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((𝑣 × 𝑑) × 𝑣) = ((𝑣 × 𝐷) × 𝑣))
71 simp1 1054 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → 𝑐 = 𝐶)
7271fveq2d 6107 . . . . . . . . . . . . . . . 16 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (0g𝑐) = (0g𝐶))
73 hdmap1fval.q . . . . . . . . . . . . . . . 16 𝑄 = (0g𝐶)
7472, 73syl6eqr 2662 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (0g𝑐) = 𝑄)
75 simp3 1056 . . . . . . . . . . . . . . . . . . 19 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → 𝑗 = 𝐽)
7675fveq1d 6105 . . . . . . . . . . . . . . . . . 18 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑗‘{}) = (𝐽‘{}))
7776eqeq2d 2620 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ↔ (𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{})))
7871fveq2d 6107 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (-g𝑐) = (-g𝐶))
79 hdmap1fval.r . . . . . . . . . . . . . . . . . . . . . 22 𝑅 = (-g𝐶)
8078, 79syl6eqr 2662 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (-g𝑐) = 𝑅)
8180oveqd 6566 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((2nd ‘(1st𝑥))(-g𝑐)) = ((2nd ‘(1st𝑥))𝑅))
8281sneqd 4137 . . . . . . . . . . . . . . . . . . 19 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → {((2nd ‘(1st𝑥))(-g𝑐))} = {((2nd ‘(1st𝑥))𝑅)})
8375, 82fveq12d 6109 . . . . . . . . . . . . . . . . . 18 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))
8483eqeq2d 2620 . . . . . . . . . . . . . . . . 17 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → ((𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}) ↔ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))
8577, 84anbi12d 743 . . . . . . . . . . . . . . . 16 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))})) ↔ ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
8667, 85riotaeqbidv 6514 . . . . . . . . . . . . . . 15 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))) = (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
8774, 86ifeq12d 4056 . . . . . . . . . . . . . 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 4663 . . . . . . . . . . . . 13 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) = (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))))
8988eleq2d 2673 . . . . . . . . . . . 12 ((𝑐 = 𝐶𝑑 = 𝐷𝑗 = 𝐽) → (𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝑑) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), (0g𝑐), (𝑑 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑗‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑗‘{((2nd ‘(1st𝑥))(-g𝑐))}))))) ↔ 𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))))))
9066, 89syl5bb 271 . . . . . . . . . . 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 1318 . . . . . . . . . 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 3474 . . . . . . . . 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 1055 . . . . . . . . . . . . 13 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → 𝑣 = 𝑉)
9493xpeq1d 5062 . . . . . . . . . . . 12 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑣 × 𝐷) = (𝑉 × 𝐷))
9594, 93xpeq12d 5064 . . . . . . . . . . 11 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((𝑣 × 𝐷) × 𝑣) = ((𝑉 × 𝐷) × 𝑉))
96 simp1 1054 . . . . . . . . . . . . . . 15 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → 𝑢 = 𝑈)
9796fveq2d 6107 . . . . . . . . . . . . . 14 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (0g𝑢) = (0g𝑈))
98 hdmap1fval.o . . . . . . . . . . . . . 14 0 = (0g𝑈)
9997, 98syl6eqr 2662 . . . . . . . . . . . . 13 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (0g𝑢) = 0 )
10099eqeq2d 2620 . . . . . . . . . . . 12 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((2nd𝑥) = (0g𝑢) ↔ (2nd𝑥) = 0 ))
101 simp3 1056 . . . . . . . . . . . . . . . . 17 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → 𝑛 = 𝑁)
102101fveq1d 6105 . . . . . . . . . . . . . . . 16 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑛‘{(2nd𝑥)}) = (𝑁‘{(2nd𝑥)}))
103102fveq2d 6107 . . . . . . . . . . . . . . 15 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑀‘(𝑛‘{(2nd𝑥)})) = (𝑀‘(𝑁‘{(2nd𝑥)})))
104103eqeq1d 2612 . . . . . . . . . . . . . 14 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ↔ (𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{})))
10596fveq2d 6107 . . . . . . . . . . . . . . . . . . . 20 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (-g𝑢) = (-g𝑈))
106 hdmap1fval.s . . . . . . . . . . . . . . . . . . . 20 = (-g𝑈)
107105, 106syl6eqr 2662 . . . . . . . . . . . . . . . . . . 19 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (-g𝑢) = )
108107oveqd 6566 . . . . . . . . . . . . . . . . . 18 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥)) = ((1st ‘(1st𝑥)) (2nd𝑥)))
109108sneqd 4137 . . . . . . . . . . . . . . . . 17 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → {((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))} = {((1st ‘(1st𝑥)) (2nd𝑥))})
110101, 109fveq12d 6109 . . . . . . . . . . . . . . . 16 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))}) = (𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))}))
111110fveq2d 6107 . . . . . . . . . . . . . . 15 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})))
112111eqeq1d 2612 . . . . . . . . . . . . . 14 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → ((𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}) ↔ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))
113104, 112anbi12d 743 . . . . . . . . . . . . 13 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})) ↔ ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
114113riotabidv 6513 . . . . . . . . . . . 12 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))) = (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))
115100, 114ifbieq2d 4061 . . . . . . . . . . 11 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))) = if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))))
11695, 115mpteq12dv 4663 . . . . . . . . . 10 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))) = (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))))
117116eleq2d 2673 . . . . . . . . 9 ((𝑢 = 𝑈𝑣 = 𝑉𝑛 = 𝑁) → (𝑎 ∈ (𝑥 ∈ ((𝑣 × 𝐷) × 𝑣) ↦ if((2nd𝑥) = (0g𝑢), 𝑄, (𝐷 ((𝑀‘(𝑛‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑛‘{((1st ‘(1st𝑥))(-g𝑢)(2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))) ↔ 𝑎 ∈ (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)})))))))
11892, 117syl5bb 271 . . . . . . . 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𝑥))𝑅)})))))))
11923, 29, 34, 118syl3anc 1318 . . . . . . 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𝑥))𝑅)})))))))
12017, 18, 19, 119sbc3ie 3474 . . . . . 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𝑥))𝑅)}))))))
12116, 120syl6bb 275 . . . . 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𝑥))𝑅)})))))))
122121abbi1dv 2730 . . . 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𝑥))𝑅)}))))))
123 eqid 2610 . . . 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𝑐))})))))})
124 fvex 6113 . . . . . . . 8 (Base‘𝑈) ∈ V
12528, 124eqeltri 2684 . . . . . . 7 𝑉 ∈ V
126 fvex 6113 . . . . . . . 8 (Base‘𝐶) ∈ V
12744, 126eqeltri 2684 . . . . . . 7 𝐷 ∈ V
128125, 127xpex 6860 . . . . . 6 (𝑉 × 𝐷) ∈ V
129128, 125xpex 6860 . . . . 5 ((𝑉 × 𝐷) × 𝑉) ∈ V
130129mptex 6390 . . . 4 (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))) ∈ V
131122, 123, 130fvmpt 6191 . . 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𝑥))𝑅)}))))))
1326, 131sylan9eq 2664 . 2 ((𝐾𝐴𝑊𝐻) → 𝐼 = (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))))
1331, 132syl 17 1 (𝜑𝐼 = (𝑥 ∈ ((𝑉 × 𝐷) × 𝑉) ↦ if((2nd𝑥) = 0 , 𝑄, (𝐷 ((𝑀‘(𝑁‘{(2nd𝑥)})) = (𝐽‘{}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st𝑥)) (2nd𝑥))})) = (𝐽‘{((2nd ‘(1st𝑥))𝑅)}))))))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  {cab 2596  Vcvv 3173  [wsbc 3402  ifcif 4036  {csn 4125   ↦ cmpt 4643   × cxp 5036  ‘cfv 5804  ℩crio 6510  (class class class)co 6549  1st c1st 7057  2nd c2nd 7058  Basecbs 15695  0gc0g 15923  -gcsg 17247  LSpanclspn 18792  LHypclh 34288  DVecHcdvh 35385  LCDualclcd 35893  mapdcmpd 35931  HDMap1chdma1 36099 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847 This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-hdmap1 36101 This theorem is referenced by:  hdmap1vallem  36105
 Copyright terms: Public domain W3C validator