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

Theorem cdlemc1 39659
Description: Part of proof of Lemma C in [Crawley] p. 112. TODO: shorten with atmod3i1 39332? (Contributed by NM, 29-May-2012.)
Hypotheses
Ref Expression
cdlemc1.b 𝐵 = (Base‘𝐾)
cdlemc1.l = (le‘𝐾)
cdlemc1.j = (join‘𝐾)
cdlemc1.m = (meet‘𝐾)
cdlemc1.a 𝐴 = (Atoms‘𝐾)
cdlemc1.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
cdlemc1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 ((𝑃 𝑋) 𝑊)) = (𝑃 𝑋))

Proof of Theorem cdlemc1
StepHypRef Expression
1 simp1l 1195 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ HL)
21hllatd 38831 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ Lat)
3 simp3l 1199 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑃𝐴)
4 cdlemc1.b . . . . 5 𝐵 = (Base‘𝐾)
5 cdlemc1.a . . . . 5 𝐴 = (Atoms‘𝐾)
64, 5atbase 38756 . . . 4 (𝑃𝐴𝑃𝐵)
73, 6syl 17 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑃𝐵)
8 simp2 1135 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑋𝐵)
9 cdlemc1.j . . . . . 6 = (join‘𝐾)
104, 9latjcl 18425 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑋𝐵) → (𝑃 𝑋) ∈ 𝐵)
112, 7, 8, 10syl3anc 1369 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 𝑋) ∈ 𝐵)
12 simp1r 1196 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊𝐻)
13 cdlemc1.h . . . . . 6 𝐻 = (LHyp‘𝐾)
144, 13lhpbase 39466 . . . . 5 (𝑊𝐻𝑊𝐵)
1512, 14syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑊𝐵)
16 cdlemc1.m . . . . 5 = (meet‘𝐾)
174, 16latmcl 18426 . . . 4 ((𝐾 ∈ Lat ∧ (𝑃 𝑋) ∈ 𝐵𝑊𝐵) → ((𝑃 𝑋) 𝑊) ∈ 𝐵)
182, 11, 15, 17syl3anc 1369 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑃 𝑋) 𝑊) ∈ 𝐵)
194, 9latjcom 18433 . . 3 ((𝐾 ∈ Lat ∧ 𝑃𝐵 ∧ ((𝑃 𝑋) 𝑊) ∈ 𝐵) → (𝑃 ((𝑃 𝑋) 𝑊)) = (((𝑃 𝑋) 𝑊) 𝑃))
202, 7, 18, 19syl3anc 1369 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 ((𝑃 𝑋) 𝑊)) = (((𝑃 𝑋) 𝑊) 𝑃))
21 cdlemc1.l . . . . 5 = (le‘𝐾)
224, 21, 9latlej1 18434 . . . 4 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑋𝐵) → 𝑃 (𝑃 𝑋))
232, 7, 8, 22syl3anc 1369 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝑃 (𝑃 𝑋))
244, 21, 9, 16, 5atmod2i1 39329 . . 3 ((𝐾 ∈ HL ∧ (𝑃𝐴 ∧ (𝑃 𝑋) ∈ 𝐵𝑊𝐵) ∧ 𝑃 (𝑃 𝑋)) → (((𝑃 𝑋) 𝑊) 𝑃) = ((𝑃 𝑋) (𝑊 𝑃)))
251, 3, 11, 15, 23, 24syl131anc 1381 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (((𝑃 𝑋) 𝑊) 𝑃) = ((𝑃 𝑋) (𝑊 𝑃)))
26 eqid 2728 . . . . . 6 (1.‘𝐾) = (1.‘𝐾)
2721, 9, 26, 5, 13lhpjat1 39488 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑊 𝑃) = (1.‘𝐾))
28273adant2 1129 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑊 𝑃) = (1.‘𝐾))
2928oveq2d 7431 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑃 𝑋) (𝑊 𝑃)) = ((𝑃 𝑋) (1.‘𝐾)))
30 hlol 38828 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OL)
311, 30syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → 𝐾 ∈ OL)
324, 16, 26olm11 38694 . . . 4 ((𝐾 ∈ OL ∧ (𝑃 𝑋) ∈ 𝐵) → ((𝑃 𝑋) (1.‘𝐾)) = (𝑃 𝑋))
3331, 11, 32syl2anc 583 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑃 𝑋) (1.‘𝐾)) = (𝑃 𝑋))
3429, 33eqtrd 2768 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝑃 𝑋) (𝑊 𝑃)) = (𝑃 𝑋))
3520, 25, 343eqtrd 2772 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑋𝐵 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 ((𝑃 𝑋) 𝑊)) = (𝑃 𝑋))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1085   = wceq 1534  wcel 2099   class class class wbr 5143  cfv 6543  (class class class)co 7415  Basecbs 17174  lecple 17234  joincjn 18297  meetcmee 18298  1.cp1 18410  Latclat 18417  OLcol 38641  Atomscatm 38730  HLchlt 38817  LHypclh 39452
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
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  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-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-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4905  df-iun 4994  df-iin 4995  df-br 5144  df-opab 5206  df-mpt 5227  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 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-1st 7988  df-2nd 7989  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-oposet 38643  df-ol 38645  df-oml 38646  df-covers 38733  df-ats 38734  df-atl 38765  df-cvlat 38789  df-hlat 38818  df-psubsp 38971  df-pmap 38972  df-padd 39264  df-lhyp 39456
This theorem is referenced by:  cdlemc2  39660  cdlemd1  39666
  Copyright terms: Public domain W3C validator