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

Theorem hdmap10lem 42713
Description: Lemma for hdmap10 42714. (Contributed by NM, 17-May-2015.)
Hypotheses
Ref Expression
hdmap10.h 𝐻 = (LHyp‘𝐾)
hdmap10.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
hdmap10.v 𝑉 = (Base‘𝑈)
hdmap10.n 𝑁 = (LSpan‘𝑈)
hdmap10.c 𝐶 = ((LCDual‘𝐾)‘𝑊)
hdmap10.l 𝐿 = (LSpan‘𝐶)
hdmap10.m 𝑀 = ((mapd‘𝐾)‘𝑊)
hdmap10.s 𝑆 = ((HDMap‘𝐾)‘𝑊)
hdmap10.k (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
hdmap10.e 𝐸 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩
hdmap10.o 0 = (0g𝑈)
hdmap10.d 𝐷 = (Base‘𝐶)
hdmap10.j 𝐽 = ((HVMap‘𝐾)‘𝑊)
hdmap10.i 𝐼 = ((HDMap1‘𝐾)‘𝑊)
hdmap10lem.t (𝜑𝑇 ∈ (𝑉 ∖ { 0 }))
Assertion
Ref Expression
hdmap10lem (𝜑 → (𝑀‘(𝑁‘{𝑇})) = (𝐿‘{(𝑆𝑇)}))

Proof of Theorem hdmap10lem
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 hdmap10.h . . 3 𝐻 = (LHyp‘𝐾)
2 hdmap10.u . . 3 𝑈 = ((DVecH‘𝐾)‘𝑊)
3 hdmap10.v . . 3 𝑉 = (Base‘𝑈)
4 hdmap10.n . . 3 𝑁 = (LSpan‘𝑈)
5 hdmap10.k . . 3 (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
6 eqid 2760 . . . . 5 (Base‘𝐾) = (Base‘𝐾)
7 eqid 2760 . . . . 5 ((LTrn‘𝐾)‘𝑊) = ((LTrn‘𝐾)‘𝑊)
8 hdmap10.o . . . . 5 0 = (0g𝑈)
9 hdmap10.e . . . . 5 𝐸 = ⟨( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))⟩
101, 6, 7, 2, 3, 8, 9, 5dvheveccl 41986 . . . 4 (𝜑𝐸 ∈ (𝑉 ∖ { 0 }))
1110eldifad 3911 . . 3 (𝜑𝐸𝑉)
12 hdmap10lem.t . . . 4 (𝜑𝑇 ∈ (𝑉 ∖ { 0 }))
1312eldifad 3911 . . 3 (𝜑𝑇𝑉)
141, 2, 3, 4, 5, 11, 13dvh3dim 42320 . 2 (𝜑 → ∃𝑥𝑉 ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇}))
15 hdmap10.c . . . . . . 7 𝐶 = ((LCDual‘𝐾)‘𝑊)
16 hdmap10.d . . . . . . 7 𝐷 = (Base‘𝐶)
17 hdmap10.j . . . . . . 7 𝐽 = ((HVMap‘𝐾)‘𝑊)
18 hdmap10.i . . . . . . 7 𝐼 = ((HDMap1‘𝐾)‘𝑊)
19 hdmap10.s . . . . . . 7 𝑆 = ((HDMap‘𝐾)‘𝑊)
2053ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝐾 ∈ HL ∧ 𝑊𝐻))
21133ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝑇𝑉)
22 simp2 1155 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝑥𝑉)
23 eqid 2760 . . . . . . . . . . . 12 (LSubSp‘𝑈) = (LSubSp‘𝑈)
241, 2, 5dvhlmod 41984 . . . . . . . . . . . 12 (𝜑𝑈 ∈ LMod)
253, 23, 4, 24, 11, 13lspprcl 21163 . . . . . . . . . . . 12 (𝜑 → (𝑁‘{𝐸, 𝑇}) ∈ (LSubSp‘𝑈))
263, 4, 24, 11, 13lspprid1 21182 . . . . . . . . . . . 12 (𝜑𝐸 ∈ (𝑁‘{𝐸, 𝑇}))
2723, 4, 24, 25, 26ellspsn5 21181 . . . . . . . . . . 11 (𝜑 → (𝑁‘{𝐸}) ⊆ (𝑁‘{𝐸, 𝑇}))
283, 4, 24, 11, 13lspprid2 21183 . . . . . . . . . . . 12 (𝜑𝑇 ∈ (𝑁‘{𝐸, 𝑇}))
2923, 4, 24, 25, 28ellspsn5 21181 . . . . . . . . . . 11 (𝜑 → (𝑁‘{𝑇}) ⊆ (𝑁‘{𝐸, 𝑇}))
3027, 29unssd 4138 . . . . . . . . . 10 (𝜑 → ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑇})) ⊆ (𝑁‘{𝐸, 𝑇}))
3130sseld 3930 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑇})) → 𝑥 ∈ (𝑁‘{𝐸, 𝑇})))
3231con3dimp 414 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ¬ 𝑥 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑇})))
33323adant2 1149 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ¬ 𝑥 ∈ ((𝑁‘{𝐸}) ∪ (𝑁‘{𝑇})))
341, 9, 2, 3, 4, 15, 16, 17, 18, 19, 20, 21, 22, 33hdmapval2 42706 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑆𝑇) = (𝐼‘⟨𝑥, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩), 𝑇⟩))
3534eqcomd 2766 . . . . 5 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝐼‘⟨𝑥, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩), 𝑇⟩) = (𝑆𝑇))
36 eqid 2760 . . . . . 6 (-g𝑈) = (-g𝑈)
37 eqid 2760 . . . . . 6 (-g𝐶) = (-g𝐶)
38 hdmap10.l . . . . . 6 𝐿 = (LSpan‘𝐶)
39 hdmap10.m . . . . . 6 𝑀 = ((mapd‘𝐾)‘𝑊)
40243ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝑈 ∈ LMod)
41253ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑁‘{𝐸, 𝑇}) ∈ (LSubSp‘𝑈))
42 simp3 1156 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇}))
438, 23, 40, 41, 22, 42lssneln0 21138 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝑥 ∈ (𝑉 ∖ { 0 }))
44 eqid 2760 . . . . . . . . . 10 (0g𝐶) = (0g𝐶)
451, 2, 3, 8, 15, 16, 44, 17, 5, 10hvmapcl2 42640 . . . . . . . . 9 (𝜑 → (𝐽𝐸) ∈ (𝐷 ∖ {(0g𝐶)}))
4645eldifad 3911 . . . . . . . 8 (𝜑 → (𝐽𝐸) ∈ 𝐷)
47463ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝐽𝐸) ∈ 𝐷)
481, 2, 3, 8, 4, 15, 38, 39, 17, 5, 10mapdhvmap 42643 . . . . . . . 8 (𝜑 → (𝑀‘(𝑁‘{𝐸})) = (𝐿‘{(𝐽𝐸)}))
49483ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑀‘(𝑁‘{𝐸})) = (𝐿‘{(𝐽𝐸)}))
501, 2, 5dvhlvec 41983 . . . . . . . . . . 11 (𝜑𝑈 ∈ LVec)
51503ad2ant1 1151 . . . . . . . . . 10 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝑈 ∈ LVec)
52113ad2ant1 1151 . . . . . . . . . 10 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝐸𝑉)
533, 4, 51, 22, 52, 21, 42lspindpi 21320 . . . . . . . . 9 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ((𝑁‘{𝑥}) ≠ (𝑁‘{𝐸}) ∧ (𝑁‘{𝑥}) ≠ (𝑁‘{𝑇})))
5453simpld 500 . . . . . . . 8 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑁‘{𝑥}) ≠ (𝑁‘{𝐸}))
5554necomd 3010 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑁‘{𝐸}) ≠ (𝑁‘{𝑥}))
56103ad2ant1 1151 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝐸 ∈ (𝑉 ∖ { 0 }))
571, 2, 3, 8, 4, 15, 16, 38, 39, 18, 20, 47, 49, 55, 56, 22hdmap1cl 42678 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩) ∈ 𝐷)
58123ad2ant1 1151 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → 𝑇 ∈ (𝑉 ∖ { 0 }))
591, 2, 3, 15, 16, 19, 5, 13hdmapcl 42704 . . . . . . 7 (𝜑 → (𝑆𝑇) ∈ 𝐷)
60593ad2ant1 1151 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑆𝑇) ∈ 𝐷)
6153simprd 501 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑁‘{𝑥}) ≠ (𝑁‘{𝑇}))
62 eqid 2760 . . . . . . . 8 (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩) = (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩)
631, 2, 3, 36, 8, 4, 15, 16, 37, 38, 39, 18, 20, 56, 47, 43, 57, 55, 49hdmap1eq 42675 . . . . . . . 8 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ((𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩) = (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩) ↔ ((𝑀‘(𝑁‘{𝑥})) = (𝐿‘{(𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩)}) ∧ (𝑀‘(𝑁‘{(𝐸(-g𝑈)𝑥)})) = (𝐿‘{((𝐽𝐸)(-g𝐶)(𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩))}))))
6462, 63mpbii 236 . . . . . . 7 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ((𝑀‘(𝑁‘{𝑥})) = (𝐿‘{(𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩)}) ∧ (𝑀‘(𝑁‘{(𝐸(-g𝑈)𝑥)})) = (𝐿‘{((𝐽𝐸)(-g𝐶)(𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩))})))
6564simpld 500 . . . . . 6 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑀‘(𝑁‘{𝑥})) = (𝐿‘{(𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩)}))
661, 2, 3, 36, 8, 4, 15, 16, 37, 38, 39, 18, 20, 43, 57, 58, 60, 61, 65hdmap1eq 42675 . . . . 5 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ((𝐼‘⟨𝑥, (𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩), 𝑇⟩) = (𝑆𝑇) ↔ ((𝑀‘(𝑁‘{𝑇})) = (𝐿‘{(𝑆𝑇)}) ∧ (𝑀‘(𝑁‘{(𝑥(-g𝑈)𝑇)})) = (𝐿‘{((𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩)(-g𝐶)(𝑆𝑇))}))))
6735, 66mpbid 235 . . . 4 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → ((𝑀‘(𝑁‘{𝑇})) = (𝐿‘{(𝑆𝑇)}) ∧ (𝑀‘(𝑁‘{(𝑥(-g𝑈)𝑇)})) = (𝐿‘{((𝐼‘⟨𝐸, (𝐽𝐸), 𝑥⟩)(-g𝐶)(𝑆𝑇))})))
6867simpld 500 . . 3 ((𝜑𝑥𝑉 ∧ ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇})) → (𝑀‘(𝑁‘{𝑇})) = (𝐿‘{(𝑆𝑇)}))
6968rexlimdv3a 3167 . 2 (𝜑 → (∃𝑥𝑉 ¬ 𝑥 ∈ (𝑁‘{𝐸, 𝑇}) → (𝑀‘(𝑁‘{𝑇})) = (𝐿‘{(𝑆𝑇)})))
7014, 69mpd 16 1 (𝜑 → (𝑀‘(𝑁‘{𝑇})) = (𝐿‘{(𝑆𝑇)}))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wa 401  w3a 1103   = wceq 1570  wcel 2145  wne 2955  wrex 3086  cdif 3896  cun 3897  {csn 4584  {cpr 4586  cop 4590  cotp 4592   I cid 5549  cres 5657  cfv 6533  (class class class)co 7414  Basecbs 17302  0gc0g 17525  -gcsg 19060  LModclmod 21045  LSubSpclss 21116  LSpanclspn 21156  LVecclvec 21287  HLchlt 40224  LHypclh 40858  LTrncltrn 40975  DVecHcdvh 41952  LCDualclcd 42460  mapdcmpd 42498  HVMapchvm 42630  HDMap1chdma1 42665  HDMapchdma 42666
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202  ax-riotaBAD 39827
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-ot 4593  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-om 7864  df-1st 7987  df-2nd 7988  df-tpos 8225  df-undef 8272  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8456  df-2o 8457  df-er 8697  df-map 8829  df-en 8954  df-dom 8955  df-sdom 8956  df-fin 8957  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-nn 12259  df-2 12328  df-3 12329  df-4 12330  df-5 12331  df-6 12332  df-n0 12530  df-z 12617  df-uz 12889  df-fz 13563  df-struct 17240  df-sets 17257  df-slot 17275  df-ndx 17287  df-base 17303  df-ress 17324  df-plusg 17356  df-mulr 17357  df-sca 17359  df-vsca 17360  df-0g 17527  df-mre 17671  df-mrc 17672  df-acs 17674  df-proset 18383  df-poset 18402  df-plt 18417  df-lub 18433  df-glb 18434  df-join 18435  df-meet 18436  df-p0 18512  df-p1 18513  df-lat 18521  df-clat 18588  df-mgm 18731  df-sgrp 18822  df-mnd 18838  df-submnd 18893  df-grp 19061  df-minusg 19062  df-sbg 19063  df-subg 19247  df-cntz 19445  df-oppg 19474  df-lsm 19764  df-cmn 19910  df-abl 19911  df-mgp 20275  df-rng 20289  df-ur 20322  df-ring 20375  df-oppr 20479  df-dvdsr 20499  df-unit 20500  df-invr 20530  df-dvr 20543  df-nzr 20674  df-rlreg 20857  df-domn 20858  df-drng 20893  df-lmod 21047  df-lss 21117  df-lsp 21157  df-lvec 21288  df-lsatoms 39850  df-lshyp 39851  df-lcv 39893  df-lfl 39932  df-lkr 39960  df-ldual 39998  df-oposet 40050  df-ol 40052  df-oml 40053  df-covers 40140  df-ats 40141  df-atl 40172  df-cvlat 40196  df-hlat 40225  df-llines 40372  df-lplanes 40373  df-lvols 40374  df-lines 40375  df-psubsp 40377  df-pmap 40378  df-padd 40670  df-lhyp 40862  df-laut 40863  df-ldil 40978  df-ltrn 40979  df-trl 41033  df-tgrp 41617  df-tendo 41629  df-edring 41631  df-dveca 41877  df-disoa 41903  df-dvech 41953  df-dib 42013  df-dic 42047  df-dih 42103  df-doch 42222  df-djh 42269  df-lcdual 42461  df-mapd 42499  df-hvmap 42631  df-hdmap1 42667  df-hdmap 42668
This theorem is used by:  hdmap10  42714
  Copyright terms: Public domain W3C validator