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

Theorem lhpmod2i2 36112
Description: Modular law for hyperplanes analogous to atmod2i2 35936 for atoms. (Contributed by NM, 9-Feb-2013.)
Hypotheses
Ref Expression
lhpmod.b 𝐵 = (Base‘𝐾)
lhpmod.l = (le‘𝐾)
lhpmod.j = (join‘𝐾)
lhpmod.m = (meet‘𝐾)
lhpmod.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
lhpmod2i2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((𝑋 𝑊) 𝑌) = (𝑋 (𝑊 𝑌)))

Proof of Theorem lhpmod2i2
StepHypRef Expression
1 simp1l 1260 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝐾 ∈ HL)
2 simp1r 1261 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝑊𝐻)
3 eqid 2824 . . . . 5 (oc‘𝐾) = (oc‘𝐾)
4 eqid 2824 . . . . 5 (Atoms‘𝐾) = (Atoms‘𝐾)
5 lhpmod.h . . . . 5 𝐻 = (LHyp‘𝐾)
63, 4, 5lhpocat 36091 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾))
71, 2, 6syl2anc 581 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾))
8 hlop 35436 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OP)
91, 8syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝐾 ∈ OP)
10 simp2l 1262 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝑋𝐵)
11 lhpmod.b . . . . 5 𝐵 = (Base‘𝐾)
1211, 3opoccl 35268 . . . 4 ((𝐾 ∈ OP ∧ 𝑋𝐵) → ((oc‘𝐾)‘𝑋) ∈ 𝐵)
139, 10, 12syl2anc 581 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘𝑋) ∈ 𝐵)
14 simp2r 1263 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝑌𝐵)
1511, 3opoccl 35268 . . . 4 ((𝐾 ∈ OP ∧ 𝑌𝐵) → ((oc‘𝐾)‘𝑌) ∈ 𝐵)
169, 14, 15syl2anc 581 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘𝑌) ∈ 𝐵)
17 simp3 1174 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝑌 𝑋)
18 lhpmod.l . . . . . 6 = (le‘𝐾)
1911, 18, 3oplecon3b 35274 . . . . 5 ((𝐾 ∈ OP ∧ 𝑌𝐵𝑋𝐵) → (𝑌 𝑋 ↔ ((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)))
209, 14, 10, 19syl3anc 1496 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (𝑌 𝑋 ↔ ((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)))
2117, 20mpbid 224 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌))
22 lhpmod.j . . . 4 = (join‘𝐾)
23 lhpmod.m . . . 4 = (meet‘𝐾)
2411, 18, 22, 23, 4atmod1i2 35933 . . 3 ((𝐾 ∈ HL ∧ (((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾) ∧ ((oc‘𝐾)‘𝑋) ∈ 𝐵 ∧ ((oc‘𝐾)‘𝑌) ∈ 𝐵) ∧ ((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑌)) → (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌))) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑌)))
251, 7, 13, 16, 21, 24syl131anc 1508 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌))) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑌)))
261hllatd 35438 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝐾 ∈ Lat)
2711, 5lhpbase 36072 . . . . . . 7 (𝑊𝐻𝑊𝐵)
282, 27syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝑊𝐵)
2911, 23latmcl 17404 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
3026, 10, 28, 29syl3anc 1496 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (𝑋 𝑊) ∈ 𝐵)
3111, 22latjcl 17403 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑋 𝑊) ∈ 𝐵𝑌𝐵) → ((𝑋 𝑊) 𝑌) ∈ 𝐵)
3226, 30, 14, 31syl3anc 1496 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((𝑋 𝑊) 𝑌) ∈ 𝐵)
3311, 22latjcl 17403 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑊𝐵𝑌𝐵) → (𝑊 𝑌) ∈ 𝐵)
3426, 28, 14, 33syl3anc 1496 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (𝑊 𝑌) ∈ 𝐵)
3511, 23latmcl 17404 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋𝐵 ∧ (𝑊 𝑌) ∈ 𝐵) → (𝑋 (𝑊 𝑌)) ∈ 𝐵)
3626, 10, 34, 35syl3anc 1496 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (𝑋 (𝑊 𝑌)) ∈ 𝐵)
3711, 3opcon3b 35270 . . . 4 ((𝐾 ∈ OP ∧ ((𝑋 𝑊) 𝑌) ∈ 𝐵 ∧ (𝑋 (𝑊 𝑌)) ∈ 𝐵) → (((𝑋 𝑊) 𝑌) = (𝑋 (𝑊 𝑌)) ↔ ((oc‘𝐾)‘(𝑋 (𝑊 𝑌))) = ((oc‘𝐾)‘((𝑋 𝑊) 𝑌))))
389, 32, 36, 37syl3anc 1496 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (((𝑋 𝑊) 𝑌) = (𝑋 (𝑊 𝑌)) ↔ ((oc‘𝐾)‘(𝑋 (𝑊 𝑌))) = ((oc‘𝐾)‘((𝑋 𝑊) 𝑌))))
39 hlol 35435 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ OL)
401, 39syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → 𝐾 ∈ OL)
4111, 22, 23, 3oldmm1 35291 . . . . . 6 ((𝐾 ∈ OL ∧ 𝑋𝐵 ∧ (𝑊 𝑌) ∈ 𝐵) → ((oc‘𝐾)‘(𝑋 (𝑊 𝑌))) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘(𝑊 𝑌))))
4240, 10, 34, 41syl3anc 1496 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘(𝑋 (𝑊 𝑌))) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘(𝑊 𝑌))))
4311, 22, 23, 3oldmj1 35295 . . . . . . 7 ((𝐾 ∈ OL ∧ 𝑊𝐵𝑌𝐵) → ((oc‘𝐾)‘(𝑊 𝑌)) = (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌)))
4440, 28, 14, 43syl3anc 1496 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘(𝑊 𝑌)) = (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌)))
4544oveq2d 6920 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘(𝑊 𝑌))) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌))))
4642, 45eqtrd 2860 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘(𝑋 (𝑊 𝑌))) = (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌))))
4711, 22, 23, 3oldmj1 35295 . . . . . 6 ((𝐾 ∈ OL ∧ (𝑋 𝑊) ∈ 𝐵𝑌𝐵) → ((oc‘𝐾)‘((𝑋 𝑊) 𝑌)) = (((oc‘𝐾)‘(𝑋 𝑊)) ((oc‘𝐾)‘𝑌)))
4840, 30, 14, 47syl3anc 1496 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘((𝑋 𝑊) 𝑌)) = (((oc‘𝐾)‘(𝑋 𝑊)) ((oc‘𝐾)‘𝑌)))
4911, 22, 23, 3oldmm1 35291 . . . . . . 7 ((𝐾 ∈ OL ∧ 𝑋𝐵𝑊𝐵) → ((oc‘𝐾)‘(𝑋 𝑊)) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)))
5040, 10, 28, 49syl3anc 1496 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘(𝑋 𝑊)) = (((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)))
5150oveq1d 6919 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (((oc‘𝐾)‘(𝑋 𝑊)) ((oc‘𝐾)‘𝑌)) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑌)))
5248, 51eqtrd 2860 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((oc‘𝐾)‘((𝑋 𝑊) 𝑌)) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑌)))
5346, 52eqeq12d 2839 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (((oc‘𝐾)‘(𝑋 (𝑊 𝑌))) = ((oc‘𝐾)‘((𝑋 𝑊) 𝑌)) ↔ (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌))) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑌))))
5438, 53bitrd 271 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → (((𝑋 𝑊) 𝑌) = (𝑋 (𝑊 𝑌)) ↔ (((oc‘𝐾)‘𝑋) (((oc‘𝐾)‘𝑊) ((oc‘𝐾)‘𝑌))) = ((((oc‘𝐾)‘𝑋) ((oc‘𝐾)‘𝑊)) ((oc‘𝐾)‘𝑌))))
5525, 54mpbird 249 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵𝑌𝐵) ∧ 𝑌 𝑋) → ((𝑋 𝑊) 𝑌) = (𝑋 (𝑊 𝑌)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 198  wa 386  w3a 1113   = wceq 1658  wcel 2166   class class class wbr 4872  cfv 6122  (class class class)co 6904  Basecbs 16221  lecple 16311  occoc 16312  joincjn 17296  meetcmee 17297  Latclat 17397  OPcops 35246  OLcol 35248  Atomscatm 35337  HLchlt 35424  LHypclh 36058
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1896  ax-4 1910  ax-5 2011  ax-6 2077  ax-7 2114  ax-8 2168  ax-9 2175  ax-10 2194  ax-11 2209  ax-12 2222  ax-13 2390  ax-ext 2802  ax-rep 4993  ax-sep 5004  ax-nul 5012  ax-pow 5064  ax-pr 5126  ax-un 7208
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 881  df-3an 1115  df-tru 1662  df-ex 1881  df-nf 1885  df-sb 2070  df-mo 2604  df-eu 2639  df-clab 2811  df-cleq 2817  df-clel 2820  df-nfc 2957  df-ne 2999  df-ral 3121  df-rex 3122  df-reu 3123  df-rab 3125  df-v 3415  df-sbc 3662  df-csb 3757  df-dif 3800  df-un 3802  df-in 3804  df-ss 3811  df-nul 4144  df-if 4306  df-pw 4379  df-sn 4397  df-pr 4399  df-op 4403  df-uni 4658  df-iun 4741  df-iin 4742  df-br 4873  df-opab 4935  df-mpt 4952  df-id 5249  df-xp 5347  df-rel 5348  df-cnv 5349  df-co 5350  df-dm 5351  df-rn 5352  df-res 5353  df-ima 5354  df-iota 6085  df-fun 6124  df-fn 6125  df-f 6126  df-f1 6127  df-fo 6128  df-f1o 6129  df-fv 6130  df-riota 6865  df-ov 6907  df-oprab 6908  df-mpt2 6909  df-1st 7427  df-2nd 7428  df-proset 17280  df-poset 17298  df-plt 17310  df-lub 17326  df-glb 17327  df-join 17328  df-meet 17329  df-p0 17391  df-p1 17392  df-lat 17398  df-clat 17460  df-oposet 35250  df-ol 35252  df-oml 35253  df-covers 35340  df-ats 35341  df-atl 35372  df-cvlat 35396  df-hlat 35425  df-psubsp 35577  df-pmap 35578  df-padd 35870  df-lhyp 36062
This theorem is referenced by:  cdleme30a  36452  trlcolem  36800
  Copyright terms: Public domain W3C validator