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

Theorem lhpmcvr3 39735
Description: Specialization of lhpmcvr2 39734. TODO: Use this to simplify many uses of (𝑃 (𝑋 𝑊)) = 𝑋 to become 𝑃 𝑋. (Contributed by NM, 6-Apr-2014.)
Hypotheses
Ref Expression
lhpmcvr2.b 𝐵 = (Base‘𝐾)
lhpmcvr2.l = (le‘𝐾)
lhpmcvr2.j = (join‘𝐾)
lhpmcvr2.m = (meet‘𝐾)
lhpmcvr2.a 𝐴 = (Atoms‘𝐾)
lhpmcvr2.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
lhpmcvr3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 𝑋 ↔ (𝑃 (𝑋 𝑊)) = 𝑋))

Proof of Theorem lhpmcvr3
StepHypRef Expression
1 simpl1l 1221 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝐾 ∈ HL)
2 simpl3l 1225 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝑃𝐴)
3 simpl2l 1223 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝑋𝐵)
4 simpl1r 1222 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝑊𝐻)
5 lhpmcvr2.b . . . . . 6 𝐵 = (Base‘𝐾)
6 lhpmcvr2.h . . . . . 6 𝐻 = (LHyp‘𝐾)
75, 6lhpbase 39708 . . . . 5 (𝑊𝐻𝑊𝐵)
84, 7syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝑊𝐵)
9 simpr 483 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝑃 𝑋)
10 lhpmcvr2.l . . . . 5 = (le‘𝐾)
11 lhpmcvr2.j . . . . 5 = (join‘𝐾)
12 lhpmcvr2.m . . . . 5 = (meet‘𝐾)
13 lhpmcvr2.a . . . . 5 𝐴 = (Atoms‘𝐾)
145, 10, 11, 12, 13atmod3i1 39574 . . . 4 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑋𝐵𝑊𝐵) ∧ 𝑃 𝑋) → (𝑃 (𝑋 𝑊)) = (𝑋 (𝑃 𝑊)))
151, 2, 3, 8, 9, 14syl131anc 1380 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝑃 (𝑋 𝑊)) = (𝑋 (𝑃 𝑊)))
16 simpl1 1188 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝐾 ∈ HL ∧ 𝑊𝐻))
17 simpl3 1190 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
18 eqid 2726 . . . . . 6 (1.‘𝐾) = (1.‘𝐾)
1910, 11, 18, 13, 6lhpjat2 39731 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 𝑊) = (1.‘𝐾))
2016, 17, 19syl2anc 582 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝑃 𝑊) = (1.‘𝐾))
2120oveq2d 7430 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝑋 (𝑃 𝑊)) = (𝑋 (1.‘𝐾)))
22 hlol 39070 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OL)
231, 22syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → 𝐾 ∈ OL)
245, 12, 18olm11 38936 . . . 4 ((𝐾 ∈ OL ∧ 𝑋𝐵) → (𝑋 (1.‘𝐾)) = 𝑋)
2523, 3, 24syl2anc 582 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝑋 (1.‘𝐾)) = 𝑋)
2615, 21, 253eqtrd 2770 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ 𝑃 𝑋) → (𝑃 (𝑋 𝑊)) = 𝑋)
27 simpl1l 1221 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝐾 ∈ HL)
2827hllatd 39073 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝐾 ∈ Lat)
29 simpl3l 1225 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑃𝐴)
305, 13atbase 38998 . . . . 5 (𝑃𝐴𝑃𝐵)
3129, 30syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑃𝐵)
32 simpl2l 1223 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑋𝐵)
33 simpl1r 1222 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑊𝐻)
3433, 7syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑊𝐵)
355, 12latmcl 18458 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
3628, 32, 34, 35syl3anc 1368 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → (𝑋 𝑊) ∈ 𝐵)
375, 10, 11latlej1 18466 . . . 4 ((𝐾 ∈ Lat ∧ 𝑃𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → 𝑃 (𝑃 (𝑋 𝑊)))
3828, 31, 36, 37syl3anc 1368 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑃 (𝑃 (𝑋 𝑊)))
39 simpr 483 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → (𝑃 (𝑋 𝑊)) = 𝑋)
4038, 39breqtrd 5170 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑃 (𝑋 𝑊)) = 𝑋) → 𝑃 𝑋)
4126, 40impbida 799 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 𝑋 ↔ (𝑃 (𝑋 𝑊)) = 𝑋))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 394  w3a 1084   = wceq 1534  wcel 2099   class class class wbr 5144  cfv 6544  (class class class)co 7414  Basecbs 17206  lecple 17266  joincjn 18329  meetcmee 18330  1.cp1 18442  Latclat 18449  OLcol 38883  Atomscatm 38972  HLchlt 39059  LHypclh 39694
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 2697  ax-rep 5281  ax-sep 5295  ax-nul 5302  ax-pow 5360  ax-pr 5424  ax-un 7736
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-ral 3052  df-rex 3061  df-rmo 3365  df-reu 3366  df-rab 3421  df-v 3465  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4324  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4907  df-iun 4996  df-iin 4997  df-br 5145  df-opab 5207  df-mpt 5228  df-id 5571  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-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-f1 6549  df-fo 6550  df-f1o 6551  df-fv 6552  df-riota 7370  df-ov 7417  df-oprab 7418  df-mpo 7419  df-1st 7993  df-2nd 7994  df-proset 18313  df-poset 18331  df-plt 18348  df-lub 18364  df-glb 18365  df-join 18366  df-meet 18367  df-p0 18443  df-p1 18444  df-lat 18450  df-clat 18517  df-oposet 38885  df-ol 38887  df-oml 38888  df-covers 38975  df-ats 38976  df-atl 39007  df-cvlat 39031  df-hlat 39060  df-psubsp 39213  df-pmap 39214  df-padd 39506  df-lhyp 39698
This theorem is referenced by:  dihvalcq2  40957
  Copyright terms: Public domain W3C validator