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

Theorem dochsat 40851
Description: The double orthocomplement of an atom is an atom. (Contributed by NM, 29-Oct-2014.)
Hypotheses
Ref Expression
dochsat.h 𝐻 = (LHypβ€˜πΎ)
dochsat.o βŠ₯ = ((ocHβ€˜πΎ)β€˜π‘Š)
dochsat.u π‘ˆ = ((DVecHβ€˜πΎ)β€˜π‘Š)
dochsat.s 𝑆 = (LSubSpβ€˜π‘ˆ)
dochsat.a 𝐴 = (LSAtomsβ€˜π‘ˆ)
dochsat.k (πœ‘ β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
dochsat.q (πœ‘ β†’ 𝑄 ∈ 𝑆)
Assertion
Ref Expression
dochsat (πœ‘ β†’ (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴 ↔ 𝑄 ∈ 𝐴))

Proof of Theorem dochsat
StepHypRef Expression
1 dochsat.h . . . . . . . . 9 𝐻 = (LHypβ€˜πΎ)
2 dochsat.u . . . . . . . . 9 π‘ˆ = ((DVecHβ€˜πΎ)β€˜π‘Š)
3 dochsat.k . . . . . . . . 9 (πœ‘ β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
41, 2, 3dvhlmod 40578 . . . . . . . 8 (πœ‘ β†’ π‘ˆ ∈ LMod)
54adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ π‘ˆ ∈ LMod)
6 dochsat.q . . . . . . . 8 (πœ‘ β†’ 𝑄 ∈ 𝑆)
76adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 ∈ 𝑆)
8 eqid 2728 . . . . . . . 8 (0gβ€˜π‘ˆ) = (0gβ€˜π‘ˆ)
9 dochsat.s . . . . . . . 8 𝑆 = (LSubSpβ€˜π‘ˆ)
108, 9lss0ss 20827 . . . . . . 7 ((π‘ˆ ∈ LMod ∧ 𝑄 ∈ 𝑆) β†’ {(0gβ€˜π‘ˆ)} βŠ† 𝑄)
115, 7, 10syl2anc 583 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} βŠ† 𝑄)
12 dochsat.a . . . . . . . . 9 𝐴 = (LSAtomsβ€˜π‘ˆ)
13 simpr 484 . . . . . . . . 9 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴)
148, 12, 5, 13lsatn0 38466 . . . . . . . 8 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) β‰  {(0gβ€˜π‘ˆ)})
15 simpr 484 . . . . . . . . . . . . 13 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ 𝑄 = {(0gβ€˜π‘ˆ)})
1615fveq2d 6896 . . . . . . . . . . . 12 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜π‘„) = ( βŠ₯ β€˜{(0gβ€˜π‘ˆ)}))
1716fveq2d 6896 . . . . . . . . . . 11 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})))
18 dochsat.o . . . . . . . . . . . . . 14 βŠ₯ = ((ocHβ€˜πΎ)β€˜π‘Š)
191, 2, 18, 8, 3dochoc0 40828 . . . . . . . . . . . . 13 (πœ‘ β†’ ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})) = {(0gβ€˜π‘ˆ)})
2019adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})) = {(0gβ€˜π‘ˆ)})
2120adantr 480 . . . . . . . . . . 11 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})) = {(0gβ€˜π‘ˆ)})
2217, 21eqtrd 2768 . . . . . . . . . 10 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = {(0gβ€˜π‘ˆ)})
2322ex 412 . . . . . . . . 9 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ (𝑄 = {(0gβ€˜π‘ˆ)} β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = {(0gβ€˜π‘ˆ)}))
2423necon3d 2957 . . . . . . . 8 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) β‰  {(0gβ€˜π‘ˆ)} β†’ 𝑄 β‰  {(0gβ€˜π‘ˆ)}))
2514, 24mpd 15 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 β‰  {(0gβ€˜π‘ˆ)})
2625necomd 2992 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} β‰  𝑄)
27 df-pss 3964 . . . . . 6 ({(0gβ€˜π‘ˆ)} ⊊ 𝑄 ↔ ({(0gβ€˜π‘ˆ)} βŠ† 𝑄 ∧ {(0gβ€˜π‘ˆ)} β‰  𝑄))
2811, 26, 27sylanbrc 582 . . . . 5 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} ⊊ 𝑄)
293adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
30 eqid 2728 . . . . . . . . . 10 (Baseβ€˜π‘ˆ) = (Baseβ€˜π‘ˆ)
3130, 9lssss 20814 . . . . . . . . 9 (𝑄 ∈ 𝑆 β†’ 𝑄 βŠ† (Baseβ€˜π‘ˆ))
326, 31syl 17 . . . . . . . 8 (πœ‘ β†’ 𝑄 βŠ† (Baseβ€˜π‘ˆ))
3332adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 βŠ† (Baseβ€˜π‘ˆ))
341, 2, 30, 18dochocss 40834 . . . . . . 7 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝑄 βŠ† (Baseβ€˜π‘ˆ)) β†’ 𝑄 βŠ† ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
3529, 33, 34syl2anc 583 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 βŠ† ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
369, 12, 5, 13lsatlssel 38464 . . . . . . . 8 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝑆)
379lsssubg 20835 . . . . . . . 8 ((π‘ˆ ∈ LMod ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝑆) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ (SubGrpβ€˜π‘ˆ))
385, 36, 37syl2anc 583 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ (SubGrpβ€˜π‘ˆ))
39 eqid 2728 . . . . . . . 8 (LSSumβ€˜π‘ˆ) = (LSSumβ€˜π‘ˆ)
408, 39lsm02 19621 . . . . . . 7 (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ (SubGrpβ€˜π‘ˆ) β†’ ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))) = ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
4138, 40syl 17 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))) = ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
4235, 41sseqtrrd 4020 . . . . 5 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 βŠ† ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))))
431, 2, 3dvhlvec 40577 . . . . . . 7 (πœ‘ β†’ π‘ˆ ∈ LVec)
4443adantr 480 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ π‘ˆ ∈ LVec)
458, 9lsssn0 20826 . . . . . . 7 (π‘ˆ ∈ LMod β†’ {(0gβ€˜π‘ˆ)} ∈ 𝑆)
465, 45syl 17 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} ∈ 𝑆)
479, 39, 12, 44, 46, 7, 13lsmsatcv 38477 . . . . 5 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ {(0gβ€˜π‘ˆ)} ⊊ 𝑄 ∧ 𝑄 βŠ† ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))) β†’ 𝑄 = ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))))
4828, 42, 47mpd3an23 1460 . . . 4 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 = ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))))
4948, 41eqtr2d 2769 . . 3 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = 𝑄)
5049, 13eqeltrrd 2830 . 2 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 ∈ 𝐴)
513adantr 480 . . . 4 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
52 eqid 2728 . . . . . 6 ((DIsoHβ€˜πΎ)β€˜π‘Š) = ((DIsoHβ€˜πΎ)β€˜π‘Š)
531, 2, 52, 12dih1dimat 40798 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝑄 ∈ 𝐴) β†’ 𝑄 ∈ ran ((DIsoHβ€˜πΎ)β€˜π‘Š))
543, 53sylan 579 . . . 4 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ 𝑄 ∈ ran ((DIsoHβ€˜πΎ)β€˜π‘Š))
551, 52, 18dochoc 40835 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝑄 ∈ ran ((DIsoHβ€˜πΎ)β€˜π‘Š)) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = 𝑄)
5651, 54, 55syl2anc 583 . . 3 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = 𝑄)
57 simpr 484 . . 3 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ 𝑄 ∈ 𝐴)
5856, 57eqeltrd 2829 . 2 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴)
5950, 58impbida 800 1 (πœ‘ β†’ (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴 ↔ 𝑄 ∈ 𝐴))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   = wceq 1534   ∈ wcel 2099   β‰  wne 2936   βŠ† wss 3945   ⊊ wpss 3946  {csn 4625  ran crn 5674  β€˜cfv 6543  (class class class)co 7415  Basecbs 17174  0gc0g 17415  SubGrpcsubg 19069  LSSumclsm 19583  LModclmod 20737  LSubSpclss 20809  LVecclvec 20981  LSAtomsclsa 38441  HLchlt 38817  LHypclh 39452  DVecHcdvh 40546  DIsoHcdih 40696  ocHcoch 40815
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5360  ax-pr 5424  ax-un 7735  ax-cnex 11189  ax-resscn 11190  ax-1cn 11191  ax-icn 11192  ax-addcl 11193  ax-addrcl 11194  ax-mulcl 11195  ax-mulrcl 11196  ax-mulcom 11197  ax-addass 11198  ax-mulass 11199  ax-distr 11200  ax-i2m1 11201  ax-1ne0 11202  ax-1rid 11203  ax-rnegex 11204  ax-rrecex 11205  ax-cnre 11206  ax-pre-lttri 11207  ax-pre-lttrn 11208  ax-pre-ltadd 11209  ax-pre-mulgt0 11210  ax-riotaBAD 38420
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2937  df-nel 3043  df-ral 3058  df-rex 3067  df-rmo 3372  df-reu 3373  df-rab 3429  df-v 3472  df-sbc 3776  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3964  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-tp 4630  df-op 4632  df-uni 4905  df-int 4946  df-iun 4994  df-iin 4995  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5571  df-eprel 5577  df-po 5585  df-so 5586  df-fr 5628  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7371  df-ov 7418  df-oprab 7419  df-mpo 7420  df-om 7866  df-1st 7988  df-2nd 7989  df-tpos 8226  df-undef 8273  df-frecs 8281  df-wrecs 8312  df-recs 8386  df-rdg 8425  df-1o 8481  df-er 8719  df-map 8841  df-en 8959  df-dom 8960  df-sdom 8961  df-fin 8962  df-pnf 11275  df-mnf 11276  df-xr 11277  df-ltxr 11278  df-le 11279  df-sub 11471  df-neg 11472  df-nn 12238  df-2 12300  df-3 12301  df-4 12302  df-5 12303  df-6 12304  df-n0 12498  df-z 12584  df-uz 12848  df-fz 13512  df-struct 17110  df-sets 17127  df-slot 17145  df-ndx 17157  df-base 17175  df-ress 17204  df-plusg 17240  df-mulr 17241  df-sca 17243  df-vsca 17244  df-0g 17417  df-proset 18281  df-poset 18299  df-plt 18316  df-lub 18332  df-glb 18333  df-join 18334  df-meet 18335  df-p0 18411  df-p1 18412  df-lat 18418  df-clat 18485  df-mgm 18594  df-sgrp 18673  df-mnd 18689  df-submnd 18735  df-grp 18887  df-minusg 18888  df-sbg 18889  df-subg 19072  df-cntz 19262  df-lsm 19585  df-cmn 19731  df-abl 19732  df-mgp 20069  df-rng 20087  df-ur 20116  df-ring 20169  df-oppr 20267  df-dvdsr 20290  df-unit 20291  df-invr 20321  df-dvr 20334  df-drng 20620  df-lmod 20739  df-lss 20810  df-lsp 20850  df-lvec 20982  df-lsatoms 38443  df-oposet 38643  df-ol 38645  df-oml 38646  df-covers 38733  df-ats 38734  df-atl 38765  df-cvlat 38789  df-hlat 38818  df-llines 38966  df-lplanes 38967  df-lvols 38968  df-lines 38969  df-psubsp 38971  df-pmap 38972  df-padd 39264  df-lhyp 39456  df-laut 39457  df-ldil 39572  df-ltrn 39573  df-trl 39627  df-tendo 40223  df-edring 40225  df-disoa 40497  df-dvech 40547  df-dib 40607  df-dic 40641  df-dih 40697  df-doch 40816
This theorem is referenced by:  dochsatshpb  40920
  Copyright terms: Public domain W3C validator