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

Theorem cdlemd3 40952
Description: Part of proof of Lemma D in [Crawley] p. 113. The 𝑅𝑃 requirement is not mentioned in their proof. (Contributed by NM, 29-May-2012.)
Hypotheses
Ref Expression
cdlemd3.l = (le‘𝐾)
cdlemd3.j = (join‘𝐾)
cdlemd3.a 𝐴 = (Atoms‘𝐾)
cdlemd3.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
cdlemd3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → ¬ 𝑅 (𝑃 𝑆))

Proof of Theorem cdlemd3
StepHypRef Expression
1 simp33 1230 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → ¬ 𝑆 (𝑃 𝑄))
2 simp1l 1216 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝐾 ∈ HL)
3 simp31 1228 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅𝐴)
4 simp32 1229 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑆𝐴)
5 simp21l 1309 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑃𝐴)
6 simp233 1338 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅𝑃)
7 cdlemd3.l . . . . 5 = (le‘𝐾)
8 cdlemd3.j . . . . 5 = (join‘𝐾)
9 cdlemd3.a . . . . 5 𝐴 = (Atoms‘𝐾)
107, 8, 9hlatexch1 40147 . . . 4 ((𝐾 ∈ HL ∧ (𝑅𝐴𝑆𝐴𝑃𝐴) ∧ 𝑅𝑃) → (𝑅 (𝑃 𝑆) → 𝑆 (𝑃 𝑅)))
112, 3, 4, 5, 6, 10syl131anc 1410 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑅 (𝑃 𝑆) → 𝑆 (𝑃 𝑅)))
12 simp22l 1311 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑄𝐴)
137, 8, 9hlatlej1 40127 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃 (𝑃 𝑄))
142, 5, 12, 13syl3anc 1398 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑃 (𝑃 𝑄))
15 simp232 1337 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅 (𝑃 𝑄))
162hllatd 40116 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝐾 ∈ Lat)
17 eqid 2763 . . . . . . . 8 (Base‘𝐾) = (Base‘𝐾)
1817, 9atbase 40041 . . . . . . 7 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
195, 18syl 18 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑃 ∈ (Base‘𝐾))
2017, 9atbase 40041 . . . . . . 7 (𝑅𝐴𝑅 ∈ (Base‘𝐾))
213, 20syl 18 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅 ∈ (Base‘𝐾))
2217, 9atbase 40041 . . . . . . . 8 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
2312, 22syl 18 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑄 ∈ (Base‘𝐾))
2417, 8latjcl 18496 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑃 𝑄) ∈ (Base‘𝐾))
2516, 19, 23, 24syl3anc 1398 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑃 𝑄) ∈ (Base‘𝐾))
2617, 7, 8latjle12 18507 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑅 ∈ (Base‘𝐾) ∧ (𝑃 𝑄) ∈ (Base‘𝐾))) → ((𝑃 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ↔ (𝑃 𝑅) (𝑃 𝑄)))
2716, 19, 21, 25, 26syl13anc 1399 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝑃 (𝑃 𝑄) ∧ 𝑅 (𝑃 𝑄)) ↔ (𝑃 𝑅) (𝑃 𝑄)))
2814, 15, 27mpbi2and 724 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑃 𝑅) (𝑃 𝑄))
2917, 9atbase 40041 . . . . . 6 (𝑆𝐴𝑆 ∈ (Base‘𝐾))
304, 29syl 18 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑆 ∈ (Base‘𝐾))
3117, 8latjcl 18496 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑅 ∈ (Base‘𝐾)) → (𝑃 𝑅) ∈ (Base‘𝐾))
3216, 19, 21, 31syl3anc 1398 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑃 𝑅) ∈ (Base‘𝐾))
3317, 7lattr 18501 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ (𝑃 𝑅) ∈ (Base‘𝐾) ∧ (𝑃 𝑄) ∈ (Base‘𝐾))) → ((𝑆 (𝑃 𝑅) ∧ (𝑃 𝑅) (𝑃 𝑄)) → 𝑆 (𝑃 𝑄)))
3416, 30, 32, 25, 33syl13anc 1399 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → ((𝑆 (𝑃 𝑅) ∧ (𝑃 𝑅) (𝑃 𝑄)) → 𝑆 (𝑃 𝑄)))
3528, 34mpan2d 706 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑆 (𝑃 𝑅) → 𝑆 (𝑃 𝑄)))
3611, 35syld 48 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝑅 (𝑃 𝑆) → 𝑆 (𝑃 𝑄)))
371, 36mtod 201 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ (𝑅𝐴𝑆𝐴 ∧ ¬ 𝑆 (𝑃 𝑄))) → ¬ 𝑅 (𝑃 𝑆))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 400  w3a 1103   = wceq 1570  wcel 2143  wne 2958   class class class wbr 5110  cfv 6538  (class class class)co 7412  Basecbs 17270  lecple 17318  joincjn 18368  Latclat 18488  Atomscatm 40015  HLchlt 40102  LHypclh 40736
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-proset 18351  df-poset 18370  df-plt 18385  df-lub 18401  df-glb 18402  df-join 18403  df-meet 18404  df-p0 18480  df-lat 18489  df-covers 40018  df-ats 40019  df-atl 40050  df-cvlat 40074  df-hlat 40103
This theorem is referenced by:  cdlemd4  40953
  Copyright terms: Public domain W3C validator