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

Theorem 4atlem0a 37601
Description: Lemma for 4at 37621. (Contributed by NM, 10-Jul-2012.)
Hypotheses
Ref Expression
4at.l = (le‘𝐾)
4at.j = (join‘𝐾)
4at.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
4atlem0a (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → ¬ 𝑅 ((𝑃 𝑄) 𝑆))

Proof of Theorem 4atlem0a
StepHypRef Expression
1 simprr 770 . 2 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → ¬ 𝑆 ((𝑃 𝑄) 𝑅))
2 simpl1 1190 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → 𝐾 ∈ HL)
3 simpl3l 1227 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → 𝑅𝐴)
4 simpl3r 1228 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → 𝑆𝐴)
5 simpl2l 1225 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → 𝑃𝐴)
6 simpl2r 1226 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → 𝑄𝐴)
7 eqid 2740 . . . . 5 (Base‘𝐾) = (Base‘𝐾)
8 4at.j . . . . 5 = (join‘𝐾)
9 4at.a . . . . 5 𝐴 = (Atoms‘𝐾)
107, 8, 9hlatjcl 37375 . . . 4 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
112, 5, 6, 10syl3anc 1370 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → (𝑃 𝑄) ∈ (Base‘𝐾))
12 simprl 768 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → ¬ 𝑅 (𝑃 𝑄))
13 4at.l . . . 4 = (le‘𝐾)
147, 13, 8, 9hlexch1 37390 . . 3 ((𝐾 ∈ HL ∧ (𝑅𝐴𝑆𝐴 ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑅 ((𝑃 𝑄) 𝑆) → 𝑆 ((𝑃 𝑄) 𝑅)))
152, 3, 4, 11, 12, 14syl131anc 1382 . 2 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → (𝑅 ((𝑃 𝑄) 𝑆) → 𝑆 ((𝑃 𝑄) 𝑅)))
161, 15mtod 197 1 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴) ∧ (𝑅𝐴𝑆𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 ((𝑃 𝑄) 𝑅))) → ¬ 𝑅 ((𝑃 𝑄) 𝑆))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1086   = wceq 1542  wcel 2110   class class class wbr 5079  cfv 6431  (class class class)co 7269  Basecbs 16908  lecple 16965  joincjn 18025  Atomscatm 37271  HLchlt 37358
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 7580
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-br 5080  df-opab 5142  df-mpt 5163  df-id 5489  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-iota 6389  df-fun 6433  df-fn 6434  df-f 6435  df-f1 6436  df-fo 6437  df-f1o 6438  df-fv 6439  df-riota 7226  df-ov 7272  df-oprab 7273  df-lub 18060  df-glb 18061  df-join 18062  df-meet 18063  df-lat 18146  df-ats 37275  df-atl 37306  df-cvlat 37330  df-hlat 37359
This theorem is referenced by:  4atlem10  37614
  Copyright terms: Public domain W3C validator