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 40748
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 40475 . . . . . . . 8 (πœ‘ β†’ π‘ˆ ∈ LMod)
54adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ π‘ˆ ∈ LMod)
6 dochsat.q . . . . . . . 8 (πœ‘ β†’ 𝑄 ∈ 𝑆)
76adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 ∈ 𝑆)
8 eqid 2724 . . . . . . . 8 (0gβ€˜π‘ˆ) = (0gβ€˜π‘ˆ)
9 dochsat.s . . . . . . . 8 𝑆 = (LSubSpβ€˜π‘ˆ)
108, 9lss0ss 20788 . . . . . . 7 ((π‘ˆ ∈ LMod ∧ 𝑄 ∈ 𝑆) β†’ {(0gβ€˜π‘ˆ)} βŠ† 𝑄)
115, 7, 10syl2anc 583 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} βŠ† 𝑄)
12 dochsat.a . . . . . . . . 9 𝐴 = (LSAtomsβ€˜π‘ˆ)
13 simpr 484 . . . . . . . . 9 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴)
148, 12, 5, 13lsatn0 38363 . . . . . . . 8 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) β‰  {(0gβ€˜π‘ˆ)})
15 simpr 484 . . . . . . . . . . . . 13 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ 𝑄 = {(0gβ€˜π‘ˆ)})
1615fveq2d 6886 . . . . . . . . . . . 12 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜π‘„) = ( βŠ₯ β€˜{(0gβ€˜π‘ˆ)}))
1716fveq2d 6886 . . . . . . . . . . 11 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})))
18 dochsat.o . . . . . . . . . . . . . 14 βŠ₯ = ((ocHβ€˜πΎ)β€˜π‘Š)
191, 2, 18, 8, 3dochoc0 40725 . . . . . . . . . . . . 13 (πœ‘ β†’ ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})) = {(0gβ€˜π‘ˆ)})
2019adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})) = {(0gβ€˜π‘ˆ)})
2120adantr 480 . . . . . . . . . . 11 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜{(0gβ€˜π‘ˆ)})) = {(0gβ€˜π‘ˆ)})
2217, 21eqtrd 2764 . . . . . . . . . 10 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ 𝑄 = {(0gβ€˜π‘ˆ)}) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = {(0gβ€˜π‘ˆ)})
2322ex 412 . . . . . . . . 9 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ (𝑄 = {(0gβ€˜π‘ˆ)} β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = {(0gβ€˜π‘ˆ)}))
2423necon3d 2953 . . . . . . . 8 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) β‰  {(0gβ€˜π‘ˆ)} β†’ 𝑄 β‰  {(0gβ€˜π‘ˆ)}))
2514, 24mpd 15 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 β‰  {(0gβ€˜π‘ˆ)})
2625necomd 2988 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} β‰  𝑄)
27 df-pss 3960 . . . . . 6 ({(0gβ€˜π‘ˆ)} ⊊ 𝑄 ↔ ({(0gβ€˜π‘ˆ)} βŠ† 𝑄 ∧ {(0gβ€˜π‘ˆ)} β‰  𝑄))
2811, 26, 27sylanbrc 582 . . . . 5 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} ⊊ 𝑄)
293adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
30 eqid 2724 . . . . . . . . . 10 (Baseβ€˜π‘ˆ) = (Baseβ€˜π‘ˆ)
3130, 9lssss 20775 . . . . . . . . 9 (𝑄 ∈ 𝑆 β†’ 𝑄 βŠ† (Baseβ€˜π‘ˆ))
326, 31syl 17 . . . . . . . 8 (πœ‘ β†’ 𝑄 βŠ† (Baseβ€˜π‘ˆ))
3332adantr 480 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 βŠ† (Baseβ€˜π‘ˆ))
341, 2, 30, 18dochocss 40731 . . . . . . 7 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝑄 βŠ† (Baseβ€˜π‘ˆ)) β†’ 𝑄 βŠ† ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
3529, 33, 34syl2anc 583 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 βŠ† ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
369, 12, 5, 13lsatlssel 38361 . . . . . . . 8 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝑆)
379lsssubg 20796 . . . . . . . 8 ((π‘ˆ ∈ LMod ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝑆) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ (SubGrpβ€˜π‘ˆ))
385, 36, 37syl2anc 583 . . . . . . 7 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ (SubGrpβ€˜π‘ˆ))
39 eqid 2724 . . . . . . . 8 (LSSumβ€˜π‘ˆ) = (LSSumβ€˜π‘ˆ)
408, 39lsm02 19584 . . . . . . 7 (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ (SubGrpβ€˜π‘ˆ) β†’ ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))) = ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
4138, 40syl 17 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))) = ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))
4235, 41sseqtrrd 4016 . . . . 5 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 βŠ† ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))))
431, 2, 3dvhlvec 40474 . . . . . . 7 (πœ‘ β†’ π‘ˆ ∈ LVec)
4443adantr 480 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ π‘ˆ ∈ LVec)
458, 9lsssn0 20787 . . . . . . 7 (π‘ˆ ∈ LMod β†’ {(0gβ€˜π‘ˆ)} ∈ 𝑆)
465, 45syl 17 . . . . . 6 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ {(0gβ€˜π‘ˆ)} ∈ 𝑆)
479, 39, 12, 44, 46, 7, 13lsmsatcv 38374 . . . . 5 (((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) ∧ {(0gβ€˜π‘ˆ)} ⊊ 𝑄 ∧ 𝑄 βŠ† ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„)))) β†’ 𝑄 = ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))))
4828, 42, 47mpd3an23 1459 . . . 4 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 = ({(0gβ€˜π‘ˆ)} (LSSumβ€˜π‘ˆ)( βŠ₯ β€˜( βŠ₯ β€˜π‘„))))
4948, 41eqtr2d 2765 . . 3 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = 𝑄)
5049, 13eqeltrrd 2826 . 2 ((πœ‘ ∧ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴) β†’ 𝑄 ∈ 𝐴)
513adantr 480 . . . 4 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
52 eqid 2724 . . . . . 6 ((DIsoHβ€˜πΎ)β€˜π‘Š) = ((DIsoHβ€˜πΎ)β€˜π‘Š)
531, 2, 52, 12dih1dimat 40695 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝑄 ∈ 𝐴) β†’ 𝑄 ∈ ran ((DIsoHβ€˜πΎ)β€˜π‘Š))
543, 53sylan 579 . . . 4 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ 𝑄 ∈ ran ((DIsoHβ€˜πΎ)β€˜π‘Š))
551, 52, 18dochoc 40732 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝑄 ∈ ran ((DIsoHβ€˜πΎ)β€˜π‘Š)) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = 𝑄)
5651, 54, 55syl2anc 583 . . 3 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) = 𝑄)
57 simpr 484 . . 3 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ 𝑄 ∈ 𝐴)
5856, 57eqeltrd 2825 . 2 ((πœ‘ ∧ 𝑄 ∈ 𝐴) β†’ ( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴)
5950, 58impbida 798 1 (πœ‘ β†’ (( βŠ₯ β€˜( βŠ₯ β€˜π‘„)) ∈ 𝐴 ↔ 𝑄 ∈ 𝐴))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   = wceq 1533   ∈ wcel 2098   β‰  wne 2932   βŠ† wss 3941   ⊊ wpss 3942  {csn 4621  ran crn 5668  β€˜cfv 6534  (class class class)co 7402  Basecbs 17145  0gc0g 17386  SubGrpcsubg 19039  LSSumclsm 19546  LModclmod 20698  LSubSpclss 20770  LVecclvec 20942  LSAtomsclsa 38338  HLchlt 38714  LHypclh 39349  DVecHcdvh 40443  DIsoHcdih 40593  ocHcoch 40712
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5276  ax-sep 5290  ax-nul 5297  ax-pow 5354  ax-pr 5418  ax-un 7719  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-riotaBAD 38317
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3960  df-nul 4316  df-if 4522  df-pw 4597  df-sn 4622  df-pr 4624  df-tp 4626  df-op 4628  df-uni 4901  df-int 4942  df-iun 4990  df-iin 4991  df-br 5140  df-opab 5202  df-mpt 5223  df-tr 5257  df-id 5565  df-eprel 5571  df-po 5579  df-so 5580  df-fr 5622  df-we 5624  df-xp 5673  df-rel 5674  df-cnv 5675  df-co 5676  df-dm 5677  df-rn 5678  df-res 5679  df-ima 5680  df-pred 6291  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6486  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7358  df-ov 7405  df-oprab 7406  df-mpo 7407  df-om 7850  df-1st 7969  df-2nd 7970  df-tpos 8207  df-undef 8254  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8700  df-map 8819  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-pnf 11248  df-mnf 11249  df-xr 11250  df-ltxr 11251  df-le 11252  df-sub 11444  df-neg 11445  df-nn 12211  df-2 12273  df-3 12274  df-4 12275  df-5 12276  df-6 12277  df-n0 12471  df-z 12557  df-uz 12821  df-fz 13483  df-struct 17081  df-sets 17098  df-slot 17116  df-ndx 17128  df-base 17146  df-ress 17175  df-plusg 17211  df-mulr 17212  df-sca 17214  df-vsca 17215  df-0g 17388  df-proset 18252  df-poset 18270  df-plt 18287  df-lub 18303  df-glb 18304  df-join 18305  df-meet 18306  df-p0 18382  df-p1 18383  df-lat 18389  df-clat 18456  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-submnd 18706  df-grp 18858  df-minusg 18859  df-sbg 18860  df-subg 19042  df-cntz 19225  df-lsm 19548  df-cmn 19694  df-abl 19695  df-mgp 20032  df-rng 20050  df-ur 20079  df-ring 20132  df-oppr 20228  df-dvdsr 20251  df-unit 20252  df-invr 20282  df-dvr 20295  df-drng 20581  df-lmod 20700  df-lss 20771  df-lsp 20811  df-lvec 20943  df-lsatoms 38340  df-oposet 38540  df-ol 38542  df-oml 38543  df-covers 38630  df-ats 38631  df-atl 38662  df-cvlat 38686  df-hlat 38715  df-llines 38863  df-lplanes 38864  df-lvols 38865  df-lines 38866  df-psubsp 38868  df-pmap 38869  df-padd 39161  df-lhyp 39353  df-laut 39354  df-ldil 39469  df-ltrn 39470  df-trl 39524  df-tendo 40120  df-edring 40122  df-disoa 40394  df-dvech 40444  df-dib 40504  df-dic 40538  df-dih 40594  df-doch 40713
This theorem is referenced by:  dochsatshpb  40817
  Copyright terms: Public domain W3C validator