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

Theorem dochsatshp 42035
Description: The orthocomplement of a subspace atom is a hyperplane. (Contributed by NM, 27-Jul-2014.) (Revised by Mario Carneiro, 1-Oct-2014.)
Hypotheses
Ref Expression
dochsatshp.h 𝐻 = (LHyp‘𝐾)
dochsatshp.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dochsatshp.o = ((ocH‘𝐾)‘𝑊)
dochsatshp.a 𝐴 = (LSAtoms‘𝑈)
dochsatshp.y 𝑌 = (LSHyp‘𝑈)
dochsatshp.k (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
dochsatshp.q (𝜑𝑄𝐴)
Assertion
Ref Expression
dochsatshp (𝜑 → ( 𝑄) ∈ 𝑌)

Proof of Theorem dochsatshp
Dummy variable 𝑣 is distinct from all other variables.
StepHypRef Expression
1 dochsatshp.k . . 3 (𝜑 → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 eqid 2761 . . . 4 (Base‘𝑈) = (Base‘𝑈)
3 dochsatshp.a . . . 4 𝐴 = (LSAtoms‘𝑈)
4 dochsatshp.h . . . . 5 𝐻 = (LHyp‘𝐾)
5 dochsatshp.u . . . . 5 𝑈 = ((DVecH‘𝐾)‘𝑊)
64, 5, 1dvhlmod 41694 . . . 4 (𝜑𝑈 ∈ LMod)
7 dochsatshp.q . . . 4 (𝜑𝑄𝐴)
82, 3, 6, 7lsatssv 39582 . . 3 (𝜑𝑄 ⊆ (Base‘𝑈))
9 eqid 2761 . . . 4 (LSubSp‘𝑈) = (LSubSp‘𝑈)
10 dochsatshp.o . . . 4 = ((ocH‘𝐾)‘𝑊)
114, 5, 2, 9, 10dochlss 41938 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑄 ⊆ (Base‘𝑈)) → ( 𝑄) ∈ (LSubSp‘𝑈))
121, 8, 11syl2anc 593 . 2 (𝜑 → ( 𝑄) ∈ (LSubSp‘𝑈))
13 eqid 2761 . . . 4 (0g𝑈) = (0g𝑈)
1413, 3, 6, 7lsatn0 39583 . . 3 (𝜑𝑄 ≠ {(0g𝑈)})
154, 5, 10, 2, 13doch0 41942 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( ‘{(0g𝑈)}) = (Base‘𝑈))
161, 15syl 17 . . . . . 6 (𝜑 → ( ‘{(0g𝑈)}) = (Base‘𝑈))
1716eqeq2d 2772 . . . . 5 (𝜑 → (( 𝑄) = ( ‘{(0g𝑈)}) ↔ ( 𝑄) = (Base‘𝑈)))
18 eqid 2761 . . . . . 6 ((DIsoH‘𝐾)‘𝑊) = ((DIsoH‘𝐾)‘𝑊)
194, 5, 18, 3dih1dimat 41914 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑄𝐴) → 𝑄 ∈ ran ((DIsoH‘𝐾)‘𝑊))
201, 7, 19syl2anc 593 . . . . . 6 (𝜑𝑄 ∈ ran ((DIsoH‘𝐾)‘𝑊))
214, 18, 5, 13dih0rn 41868 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → {(0g𝑈)} ∈ ran ((DIsoH‘𝐾)‘𝑊))
221, 21syl 17 . . . . . 6 (𝜑 → {(0g𝑈)} ∈ ran ((DIsoH‘𝐾)‘𝑊))
234, 18, 10, 1, 20, 22doch11 41957 . . . . 5 (𝜑 → (( 𝑄) = ( ‘{(0g𝑈)}) ↔ 𝑄 = {(0g𝑈)}))
2417, 23bitr3d 283 . . . 4 (𝜑 → (( 𝑄) = (Base‘𝑈) ↔ 𝑄 = {(0g𝑈)}))
2524necon3bid 3000 . . 3 (𝜑 → (( 𝑄) ≠ (Base‘𝑈) ↔ 𝑄 ≠ {(0g𝑈)}))
2614, 25mpbird 259 . 2 (𝜑 → ( 𝑄) ≠ (Base‘𝑈))
27 eqid 2761 . . . . . 6 (LSpan‘𝑈) = (LSpan‘𝑈)
282, 27, 13, 3islsat 39575 . . . . 5 (𝑈 ∈ LMod → (𝑄𝐴 ↔ ∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣})))
296, 28syl 17 . . . 4 (𝜑 → (𝑄𝐴 ↔ ∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣})))
307, 29mpbid 234 . . 3 (𝜑 → ∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣}))
31 eldifi 4082 . . . . . . 7 (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) → 𝑣 ∈ (Base‘𝑈))
3231adantr 484 . . . . . 6 ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → 𝑣 ∈ (Base‘𝑈))
3332a1i 11 . . . . 5 (𝜑 → ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → 𝑣 ∈ (Base‘𝑈)))
349, 27lspid 21036 . . . . . . . . . . . 12 ((𝑈 ∈ LMod ∧ ( 𝑄) ∈ (LSubSp‘𝑈)) → ((LSpan‘𝑈)‘( 𝑄)) = ( 𝑄))
356, 12, 34syl2anc 593 . . . . . . . . . . 11 (𝜑 → ((LSpan‘𝑈)‘( 𝑄)) = ( 𝑄))
3635uneq1d 4118 . . . . . . . . . 10 (𝜑 → (((LSpan‘𝑈)‘( 𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣})) = (( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣})))
3736fveq2d 6865 . . . . . . . . 9 (𝜑 → ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( 𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))) = ((LSpan‘𝑈)‘(( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
3837adantr 484 . . . . . . . 8 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( 𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))) = ((LSpan‘𝑈)‘(( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
396adantr 484 . . . . . . . . 9 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → 𝑈 ∈ LMod)
402, 9lssss 20990 . . . . . . . . . . 11 (( 𝑄) ∈ (LSubSp‘𝑈) → ( 𝑄) ⊆ (Base‘𝑈))
4112, 40syl 17 . . . . . . . . . 10 (𝜑 → ( 𝑄) ⊆ (Base‘𝑈))
4241adantr 484 . . . . . . . . 9 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ( 𝑄) ⊆ (Base‘𝑈))
4331snssd 4742 . . . . . . . . . . 11 (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) → {𝑣} ⊆ (Base‘𝑈))
4443adantr 484 . . . . . . . . . 10 ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → {𝑣} ⊆ (Base‘𝑈))
4544adantl 485 . . . . . . . . 9 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → {𝑣} ⊆ (Base‘𝑈))
462, 27lspun 21041 . . . . . . . . 9 ((𝑈 ∈ LMod ∧ ( 𝑄) ⊆ (Base‘𝑈) ∧ {𝑣} ⊆ (Base‘𝑈)) → ((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( 𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))))
4739, 42, 45, 46syl3anc 1389 . . . . . . . 8 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = ((LSpan‘𝑈)‘(((LSpan‘𝑈)‘( 𝑄)) ∪ ((LSpan‘𝑈)‘{𝑣}))))
48 uneq2 4113 . . . . . . . . . . 11 (𝑄 = ((LSpan‘𝑈)‘{𝑣}) → (( 𝑄) ∪ 𝑄) = (( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣})))
4948fveq2d 6865 . . . . . . . . . 10 (𝑄 = ((LSpan‘𝑈)‘{𝑣}) → ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)) = ((LSpan‘𝑈)‘(( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
5049adantl 485 . . . . . . . . 9 ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)) = ((LSpan‘𝑈)‘(( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
5150adantl 485 . . . . . . . 8 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)) = ((LSpan‘𝑈)‘(( 𝑄) ∪ ((LSpan‘𝑈)‘{𝑣}))))
5238, 47, 513eqtr4d 2806 . . . . . . 7 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)))
53 eqid 2761 . . . . . . . . . . 11 ((joinH‘𝐾)‘𝑊) = ((joinH‘𝐾)‘𝑊)
54 eqid 2761 . . . . . . . . . . 11 (LSSum‘𝑈) = (LSSum‘𝑈)
554, 18, 5, 2, 10dochcl 41937 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑄 ⊆ (Base‘𝑈)) → ( 𝑄) ∈ ran ((DIsoH‘𝐾)‘𝑊))
561, 8, 55syl2anc 593 . . . . . . . . . . 11 (𝜑 → ( 𝑄) ∈ ran ((DIsoH‘𝐾)‘𝑊))
574, 18, 53, 5, 54, 3, 1, 56, 7dihjat2 42015 . . . . . . . . . 10 (𝜑 → (( 𝑄)((joinH‘𝐾)‘𝑊)𝑄) = (( 𝑄)(LSSum‘𝑈)𝑄))
584, 5, 2, 53, 1, 41, 8djhcom 41989 . . . . . . . . . 10 (𝜑 → (( 𝑄)((joinH‘𝐾)‘𝑊)𝑄) = (𝑄((joinH‘𝐾)‘𝑊)( 𝑄)))
599, 3, 6, 7lsatlssel 39581 . . . . . . . . . . 11 (𝜑𝑄 ∈ (LSubSp‘𝑈))
609, 27, 54lsmsp 21140 . . . . . . . . . . 11 ((𝑈 ∈ LMod ∧ ( 𝑄) ∈ (LSubSp‘𝑈) ∧ 𝑄 ∈ (LSubSp‘𝑈)) → (( 𝑄)(LSSum‘𝑈)𝑄) = ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)))
616, 12, 59, 60syl3anc 1389 . . . . . . . . . 10 (𝜑 → (( 𝑄)(LSSum‘𝑈)𝑄) = ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)))
6257, 58, 613eqtr3rd 2805 . . . . . . . . 9 (𝜑 → ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)) = (𝑄((joinH‘𝐾)‘𝑊)( 𝑄)))
634, 5, 2, 10, 53djhexmid 41995 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑄 ⊆ (Base‘𝑈)) → (𝑄((joinH‘𝐾)‘𝑊)( 𝑄)) = (Base‘𝑈))
641, 8, 63syl2anc 593 . . . . . . . . 9 (𝜑 → (𝑄((joinH‘𝐾)‘𝑊)( 𝑄)) = (Base‘𝑈))
6562, 64eqtrd 2796 . . . . . . . 8 (𝜑 → ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)) = (Base‘𝑈))
6665adantr 484 . . . . . . 7 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( 𝑄) ∪ 𝑄)) = (Base‘𝑈))
6752, 66eqtrd 2796 . . . . . 6 ((𝜑 ∧ (𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣}))) → ((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈))
6867ex 416 . . . . 5 (𝜑 → ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → ((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈)))
6933, 68jcad 520 . . . 4 (𝜑 → ((𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)}) ∧ 𝑄 = ((LSpan‘𝑈)‘{𝑣})) → (𝑣 ∈ (Base‘𝑈) ∧ ((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈))))
7069reximdv2 3171 . . 3 (𝜑 → (∃𝑣 ∈ ((Base‘𝑈) ∖ {(0g𝑈)})𝑄 = ((LSpan‘𝑈)‘{𝑣}) → ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈)))
7130, 70mpd 15 . 2 (𝜑 → ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈))
724, 5, 1dvhlvec 41693 . . 3 (𝜑𝑈 ∈ LVec)
73 dochsatshp.y . . . 4 𝑌 = (LSHyp‘𝑈)
742, 27, 9, 73islshp 39563 . . 3 (𝑈 ∈ LVec → (( 𝑄) ∈ 𝑌 ↔ (( 𝑄) ∈ (LSubSp‘𝑈) ∧ ( 𝑄) ≠ (Base‘𝑈) ∧ ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈))))
7572, 74syl 17 . 2 (𝜑 → (( 𝑄) ∈ 𝑌 ↔ (( 𝑄) ∈ (LSubSp‘𝑈) ∧ ( 𝑄) ≠ (Base‘𝑈) ∧ ∃𝑣 ∈ (Base‘𝑈)((LSpan‘𝑈)‘(( 𝑄) ∪ {𝑣})) = (Base‘𝑈))))
7612, 26, 71, 75mpbir3and 1355 1 (𝜑 → ( 𝑄) ∈ 𝑌)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 399  w3a 1097   = wceq 1559  wcel 2141  wne 2956  wrex 3085  cdif 3899  cun 3900  wss 3902  {csn 4579  ran crn 5644  cfv 6515  (class class class)co 7390  Basecbs 17235  0gc0g 17458  LSSumclsm 19664  LModclmod 20914  LSubSpclss 20985  LSpanclspn 21025  LVecclvec 21156  LSAtomsclsa 39558  LSHypclsh 39559  HLchlt 39934  LHypclh 40568  DVecHcdvh 41662  DIsoHcdih 41812  ocHcoch 41931  joinHcdjh 41978
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7712  ax-cnex 11122  ax-resscn 11123  ax-1cn 11124  ax-icn 11125  ax-addcl 11126  ax-addrcl 11127  ax-mulcl 11128  ax-mulrcl 11129  ax-mulcom 11130  ax-addass 11131  ax-mulass 11132  ax-distr 11133  ax-i2m1 11134  ax-1ne0 11135  ax-1rid 11136  ax-rnegex 11137  ax-rrecex 11138  ax-cnre 11139  ax-pre-lttri 11140  ax-pre-lttrn 11141  ax-pre-ltadd 11142  ax-pre-mulgt0 11143  ax-riotaBAD 39537
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4863  df-int 4903  df-iun 4948  df-iin 4949  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6282  df-ord 6343  df-on 6344  df-lim 6345  df-suc 6346  df-iota 6471  df-fun 6517  df-fn 6518  df-f 6519  df-f1 6520  df-fo 6521  df-f1o 6522  df-fv 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7841  df-1st 7964  df-2nd 7965  df-tpos 8199  df-undef 8246  df-frecs 8255  df-wrecs 8286  df-recs 8335  df-rdg 8374  df-1o 8430  df-er 8671  df-map 8803  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-pnf 11211  df-mnf 11212  df-xr 11213  df-ltxr 11214  df-le 11215  df-sub 11409  df-neg 11410  df-nn 12204  df-2 12273  df-3 12274  df-4 12275  df-5 12276  df-6 12277  df-n0 12475  df-z 12562  df-uz 12833  df-fz 13506  df-struct 17173  df-sets 17190  df-slot 17208  df-ndx 17220  df-base 17236  df-ress 17257  df-plusg 17289  df-mulr 17290  df-sca 17292  df-vsca 17293  df-0g 17460  df-proset 18316  df-poset 18335  df-plt 18350  df-lub 18366  df-glb 18367  df-join 18368  df-meet 18369  df-p0 18445  df-p1 18446  df-lat 18454  df-clat 18521  df-mgm 18664  df-sgrp 18743  df-mnd 18759  df-submnd 18808  df-grp 18968  df-minusg 18969  df-sbg 18970  df-subg 19155  df-cntz 19347  df-lsm 19666  df-cmn 19812  df-abl 19813  df-mgp 20177  df-rng 20189  df-ur 20218  df-ring 20271  df-oppr 20372  df-dvdsr 20392  df-unit 20393  df-invr 20423  df-dvr 20436  df-drng 20767  df-lmod 20916  df-lss 20986  df-lsp 21026  df-lvec 21157  df-lsatoms 39560  df-lshyp 39561  df-oposet 39760  df-ol 39762  df-oml 39763  df-covers 39850  df-ats 39851  df-atl 39882  df-cvlat 39906  df-hlat 39935  df-llines 40082  df-lplanes 40083  df-lvols 40084  df-lines 40085  df-psubsp 40087  df-pmap 40088  df-padd 40380  df-lhyp 40572  df-laut 40573  df-ldil 40688  df-ltrn 40689  df-trl 40743  df-tgrp 41327  df-tendo 41339  df-edring 41341  df-dveca 41587  df-disoa 41613  df-dvech 41663  df-dib 41723  df-dic 41757  df-dih 41813  df-doch 41932  df-djh 41979
This theorem is referenced by:  dochsatshpb  42036  dochsnshp  42037  dochpolN  42074  lclkrlem2c  42093  lclkrlem2e  42095  mapdordlem2  42221
  Copyright terms: Public domain W3C validator