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

Theorem lhpmod6i1 35826
Description: Modular law for hyperplanes analogous to complement of atmod2i1 35648 for atoms. (Contributed by NM, 1-Jun-2013.)
Hypotheses
Ref Expression
lhpmod.b 𝐵 = (Base‘𝐾)
lhpmod.l = (le‘𝐾)
lhpmod.j = (join‘𝐾)
lhpmod.m = (meet‘𝐾)
lhpmod.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
lhpmod6i1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (𝑋 (𝑌 𝑊)) = ((𝑋 𝑌) 𝑊))

Proof of Theorem lhpmod6i1
StepHypRef Expression
1 simp1l 1240 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝐾 ∈ HL)
2 simp1r 1241 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝑊𝐻)
3 eqid 2758 . . . . 5 (oc‘𝐾) = (oc‘𝐾)
4 eqid 2758 . . . . 5 (Atoms‘𝐾) = (Atoms‘𝐾)
5 lhpmod.h . . . . 5 𝐻 = (LHyp‘𝐾)
63, 4, 5lhpocat 35804 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾))
71, 2, 6syl2anc 696 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾))
8 hlop 35150 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OP)
91, 8syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝐾 ∈ OP)
10 simp2l 1242 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝑋𝐵)
11 lhpmod.b . . . . 5 𝐵 = (Base‘𝐾)
1211, 3opoccl 34982 . . . 4 ((𝐾 ∈ OP ∧ 𝑋𝐵) → ((oc‘𝐾)‘𝑋) ∈ 𝐵)
139, 10, 12syl2anc 696 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘𝑋) ∈ 𝐵)
14 simp2r 1243 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝑌𝐵)
1511, 3opoccl 34982 . . . 4 ((𝐾 ∈ OP ∧ 𝑌𝐵) → ((oc‘𝐾)‘𝑌) ∈ 𝐵)
169, 14, 15syl2anc 696 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘𝑌) ∈ 𝐵)
17 simp3 1133 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝑋 𝑊)
1811, 5lhpbase 35785 . . . . . 6 (𝑊𝐻𝑊𝐵)
192, 18syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝑊𝐵)
20 lhpmod.l . . . . . 6 = (le‘𝐾)
2111, 20, 3oplecon3b 34988 . . . . 5 ((𝐾 ∈ OP ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊 ↔ ((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑋)))
229, 10, 19, 21syl3anc 1477 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (𝑋 𝑊 ↔ ((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑋)))
2317, 22mpbid 222 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑋))
24 lhpmod.j . . . 4 = (join‘𝐾)
25 lhpmod.m . . . 4 = (meet‘𝐾)
2611, 20, 24, 25, 4atmod2i1 35648 . . 3 ((𝐾 ∈ HL ∧ (((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾) ∧ ((oc‘𝐾)‘𝑋) ∈ 𝐵 ∧ ((oc‘𝐾)‘𝑌) ∈ 𝐵) ∧ ((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑋)) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) ((oc‘𝐾)‘𝑊)) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))))
271, 7, 13, 16, 23, 26syl131anc 1490 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) ((oc‘𝐾)‘𝑊)) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))))
28 hllat 35151 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ Lat)
291, 28syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝐾 ∈ Lat)
3011, 25latmcl 17251 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑌𝐵𝑊𝐵) → (𝑌 𝑊) ∈ 𝐵)
3129, 14, 19, 30syl3anc 1477 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (𝑌 𝑊) ∈ 𝐵)
3211, 24latjcl 17250 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋𝐵 ∧ (𝑌 𝑊) ∈ 𝐵) → (𝑋 (𝑌 𝑊)) ∈ 𝐵)
3329, 10, 31, 32syl3anc 1477 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (𝑋 (𝑌 𝑊)) ∈ 𝐵)
3411, 24latjcl 17250 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌) ∈ 𝐵)
3529, 10, 14, 34syl3anc 1477 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (𝑋 𝑌) ∈ 𝐵)
3611, 25latmcl 17251 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑋 𝑌) ∈ 𝐵𝑊𝐵) → ((𝑋 𝑌) 𝑊) ∈ 𝐵)
3729, 35, 19, 36syl3anc 1477 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((𝑋 𝑌) 𝑊) ∈ 𝐵)
3811, 3opcon3b 34984 . . . 4 ((𝐾 ∈ OP ∧ (𝑋 (𝑌 𝑊)) ∈ 𝐵 ∧ ((𝑋 𝑌) 𝑊) ∈ 𝐵) → ((𝑋 (𝑌 𝑊)) = ((𝑋 𝑌) 𝑊) ↔ ((oc‘𝐾)‘((𝑋 𝑌) 𝑊)) = ((oc‘𝐾)‘(𝑋 (𝑌 𝑊)))))
399, 33, 37, 38syl3anc 1477 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((𝑋 (𝑌 𝑊)) = ((𝑋 𝑌) 𝑊) ↔ ((oc‘𝐾)‘((𝑋 𝑌) 𝑊)) = ((oc‘𝐾)‘(𝑋 (𝑌 𝑊)))))
40 hlol 35149 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ OL)
411, 40syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → 𝐾 ∈ OL)
4211, 24, 25, 3oldmm1 35005 . . . . . 6 ((𝐾 ∈ OL ∧ (𝑋 𝑌) ∈ 𝐵𝑊𝐵) → ((oc‘𝐾)‘((𝑋 𝑌) 𝑊)) = (((oc‘𝐾)‘(𝑋 𝑌)) ((oc‘𝐾)‘𝑊)))
4341, 35, 19, 42syl3anc 1477 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘((𝑋 𝑌) 𝑊)) = (((oc‘𝐾)‘(𝑋 𝑌)) ((oc‘𝐾)‘𝑊)))
4411, 24, 25, 3oldmj1 35009 . . . . . . 7 ((𝐾 ∈ OL ∧ 𝑋𝐵𝑌𝐵) → ((oc‘𝐾)‘(𝑋 𝑌)) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)))
4541, 10, 14, 44syl3anc 1477 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘(𝑋 𝑌)) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)))
4645oveq1d 6826 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (((oc‘𝐾)‘(𝑋 𝑌)) ((oc‘𝐾)‘𝑊)) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) ((oc‘𝐾)‘𝑊)))
4743, 46eqtrd 2792 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘((𝑋 𝑌) 𝑊)) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) ((oc‘𝐾)‘𝑊)))
4811, 24, 25, 3oldmj1 35009 . . . . . 6 ((𝐾 ∈ OL ∧ 𝑋𝐵 ∧ (𝑌 𝑊) ∈ 𝐵) → ((oc‘𝐾)‘(𝑋 (𝑌 𝑊))) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘(𝑌 𝑊))))
4941, 10, 31, 48syl3anc 1477 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘(𝑋 (𝑌 𝑊))) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘(𝑌 𝑊))))
5011, 24, 25, 3oldmm1 35005 . . . . . . 7 ((𝐾 ∈ OL ∧ 𝑌𝐵𝑊𝐵) → ((oc‘𝐾)‘(𝑌 𝑊)) = (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))
5141, 14, 19, 50syl3anc 1477 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘(𝑌 𝑊)) = (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))
5251oveq2d 6827 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘(𝑌 𝑊))) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))))
5349, 52eqtrd 2792 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((oc‘𝐾)‘(𝑋 (𝑌 𝑊))) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊))))
5447, 53eqeq12d 2773 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (((oc‘𝐾)‘((𝑋 𝑌) 𝑊)) = ((oc‘𝐾)‘(𝑋 (𝑌 𝑊))) ↔ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) ((oc‘𝐾)‘𝑊)) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))))
5539, 54bitrd 268 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → ((𝑋 (𝑌 𝑊)) = ((𝑋 𝑌) 𝑊) ↔ ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) ((oc‘𝐾)‘𝑊)) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑌) ((oc‘𝐾)‘𝑊)))))
5627, 55mpbird 247 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑋 𝑊) → (𝑋 (𝑌 𝑊)) = ((𝑋 𝑌) 𝑊))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1072   = wceq 1630  wcel 2137   class class class wbr 4802  cfv 6047  (class class class)co 6811  Basecbs 16057  lecple 16148  occoc 16149  joincjn 17143  meetcmee 17144  Latclat 17244  OPcops 34960  OLcol 34962  Atomscatm 35051  HLchlt 35138  LHypclh 35771
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-rep 4921  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053  ax-un 7112
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1633  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-ral 3053  df-rex 3054  df-reu 3055  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-nul 4057  df-if 4229  df-pw 4302  df-sn 4320  df-pr 4322  df-op 4326  df-uni 4587  df-iun 4672  df-iin 4673  df-br 4803  df-opab 4863  df-mpt 4880  df-id 5172  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-rn 5275  df-res 5276  df-ima 5277  df-iota 6010  df-fun 6049  df-fn 6050  df-f 6051  df-f1 6052  df-fo 6053  df-f1o 6054  df-fv 6055  df-riota 6772  df-ov 6814  df-oprab 6815  df-mpt2 6816  df-1st 7331  df-2nd 7332  df-preset 17127  df-poset 17145  df-plt 17157  df-lub 17173  df-glb 17174  df-join 17175  df-meet 17176  df-p0 17238  df-p1 17239  df-lat 17245  df-clat 17307  df-oposet 34964  df-ol 34966  df-oml 34967  df-covers 35054  df-ats 35055  df-atl 35086  df-cvlat 35110  df-hlat 35139  df-psubsp 35290  df-pmap 35291  df-padd 35583  df-lhyp 35775
This theorem is referenced by:  lhple  35829  trlcolem  36514
  Copyright terms: Public domain W3C validator