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

Theorem cdlemd1 38208
Description: Part of proof of Lemma D in [Crawley] p. 113. (Contributed by NM, 29-May-2012.)
Hypotheses
Ref Expression
cdlemd1.l = (le‘𝐾)
cdlemd1.j = (join‘𝐾)
cdlemd1.m = (meet‘𝐾)
cdlemd1.a 𝐴 = (Atoms‘𝐾)
cdlemd1.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
cdlemd1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑅 = ((𝑃 ((𝑃 𝑅) 𝑊)) (𝑄 ((𝑄 𝑅) 𝑊))))

Proof of Theorem cdlemd1
StepHypRef Expression
1 simpll 764 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝐾 ∈ HL)
2 simpr1l 1229 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑃𝐴)
3 simpr2l 1231 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑄𝐴)
4 simpr31 1262 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑅𝐴)
5 simpr32 1263 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑃𝑄)
6 simpr33 1264 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → ¬ 𝑅 (𝑃 𝑄))
7 cdlemd1.l . . . 4 = (le‘𝐾)
8 cdlemd1.j . . . 4 = (join‘𝐾)
9 cdlemd1.m . . . 4 = (meet‘𝐾)
10 cdlemd1.a . . . 4 𝐴 = (Atoms‘𝐾)
117, 8, 9, 102llnma2 37799 . . 3 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄))) → ((𝑅 𝑃) (𝑅 𝑄)) = 𝑅)
121, 2, 3, 4, 5, 6, 11syl132anc 1387 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → ((𝑅 𝑃) (𝑅 𝑄)) = 𝑅)
13 hllat 37373 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ Lat)
1413ad2antrr 723 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝐾 ∈ Lat)
15 eqid 2740 . . . . . . 7 (Base‘𝐾) = (Base‘𝐾)
1615, 10atbase 37299 . . . . . 6 (𝑅𝐴𝑅 ∈ (Base‘𝐾))
174, 16syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑅 ∈ (Base‘𝐾))
1815, 10atbase 37299 . . . . . 6 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
192, 18syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑃 ∈ (Base‘𝐾))
2015, 8latjcom 18163 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑅 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾)) → (𝑅 𝑃) = (𝑃 𝑅))
2114, 17, 19, 20syl3anc 1370 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑅 𝑃) = (𝑃 𝑅))
22 simpl 483 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
23 simpr1 1193 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
24 cdlemd1.h . . . . . 6 𝐻 = (LHyp‘𝐾)
2515, 7, 8, 9, 10, 24cdlemc1 38201 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑅 ∈ (Base‘𝐾) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 ((𝑃 𝑅) 𝑊)) = (𝑃 𝑅))
2622, 17, 23, 25syl3anc 1370 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑃 ((𝑃 𝑅) 𝑊)) = (𝑃 𝑅))
2721, 26eqtr4d 2783 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑅 𝑃) = (𝑃 ((𝑃 𝑅) 𝑊)))
2815, 10atbase 37299 . . . . . 6 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
293, 28syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑄 ∈ (Base‘𝐾))
3015, 8latjcom 18163 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑅 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑅 𝑄) = (𝑄 𝑅))
3114, 17, 29, 30syl3anc 1370 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑅 𝑄) = (𝑄 𝑅))
32 simpr2 1194 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
3315, 7, 8, 9, 10, 24cdlemc1 38201 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑅 ∈ (Base‘𝐾) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝑄 ((𝑄 𝑅) 𝑊)) = (𝑄 𝑅))
3422, 17, 32, 33syl3anc 1370 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑄 ((𝑄 𝑅) 𝑊)) = (𝑄 𝑅))
3531, 34eqtr4d 2783 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → (𝑅 𝑄) = (𝑄 ((𝑄 𝑅) 𝑊)))
3627, 35oveq12d 7289 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → ((𝑅 𝑃) (𝑅 𝑄)) = ((𝑃 ((𝑃 𝑅) 𝑊)) (𝑄 ((𝑄 𝑅) 𝑊))))
3712, 36eqtr3d 2782 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑅𝐴𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))) → 𝑅 = ((𝑃 ((𝑃 𝑅) 𝑊)) (𝑄 ((𝑄 𝑅) 𝑊))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1086   = wceq 1542  wcel 2110  wne 2945   class class class wbr 5079  cfv 6432  (class class class)co 7271  Basecbs 16910  lecple 16967  joincjn 18027  meetcmee 18028  Latclat 18147  Atomscatm 37273  HLchlt 37360  LHypclh 37994
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7582
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-iin 4933  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5490  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-riota 7228  df-ov 7274  df-oprab 7275  df-mpo 7276  df-1st 7824  df-2nd 7825  df-proset 18011  df-poset 18029  df-plt 18046  df-lub 18062  df-glb 18063  df-join 18064  df-meet 18065  df-p0 18141  df-p1 18142  df-lat 18148  df-clat 18215  df-oposet 37186  df-ol 37188  df-oml 37189  df-covers 37276  df-ats 37277  df-atl 37308  df-cvlat 37332  df-hlat 37361  df-psubsp 37513  df-pmap 37514  df-padd 37806  df-lhyp 37998
This theorem is referenced by:  cdlemd2  38209
  Copyright terms: Public domain W3C validator