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

Theorem 3atlem6 36626
Description: Lemma for 3at 36628. (Contributed by NM, 23-Jun-2012.)
Hypotheses
Ref Expression
3at.l = (le‘𝐾)
3at.j = (join‘𝐾)
3at.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
3atlem6 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑄) 𝑅) = ((𝑆 𝑇) 𝑈))

Proof of Theorem 3atlem6
StepHypRef Expression
1 simp11 1199 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝐾 ∈ HL)
2 simp121 1301 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑃𝐴)
3 simp122 1302 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑄𝐴)
4 simp123 1303 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑅𝐴)
5 3at.j . . . 4 = (join‘𝐾)
6 3at.a . . . 4 𝐴 = (Atoms‘𝐾)
75, 6hlatj32 36510 . . 3 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴)) → ((𝑃 𝑄) 𝑅) = ((𝑃 𝑅) 𝑄))
81, 2, 3, 4, 7syl13anc 1368 . 2 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑄) 𝑅) = ((𝑃 𝑅) 𝑄))
92, 4, 33jca 1124 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → (𝑃𝐴𝑅𝐴𝑄𝐴))
10 simp13 1201 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → (𝑆𝐴𝑇𝐴𝑈𝐴))
11 simp21 1202 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ¬ 𝑅 (𝑃 𝑄))
12 simp22 1203 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑃𝑄)
1312necomd 3073 . . . . 5 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑄𝑃)
14 3at.l . . . . . 6 = (le‘𝐾)
1514, 5, 6hlatexch1 36533 . . . . 5 ((𝐾 ∈ HL ∧ (𝑄𝐴𝑅𝐴𝑃𝐴) ∧ 𝑄𝑃) → (𝑄 (𝑃 𝑅) → 𝑅 (𝑃 𝑄)))
161, 3, 4, 2, 13, 15syl131anc 1379 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → (𝑄 (𝑃 𝑅) → 𝑅 (𝑃 𝑄)))
1711, 16mtod 200 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ¬ 𝑄 (𝑃 𝑅))
181hllatd 36502 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝐾 ∈ Lat)
19 eqid 2823 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
2019, 6atbase 36427 . . . . 5 (𝑅𝐴𝑅 ∈ (Base‘𝐾))
214, 20syl 17 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑅 ∈ (Base‘𝐾))
2219, 6atbase 36427 . . . . 5 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
232, 22syl 17 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑃 ∈ (Base‘𝐾))
2419, 6atbase 36427 . . . . 5 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
253, 24syl 17 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑄 ∈ (Base‘𝐾))
2619, 14, 5latnlej1l 17681 . . . . 5 ((𝐾 ∈ Lat ∧ (𝑅 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑅𝑃)
2726necomd 3073 . . . 4 ((𝐾 ∈ Lat ∧ (𝑅 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑃𝑅)
2818, 21, 23, 25, 11, 27syl131anc 1379 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑃𝑅)
29 simp23 1204 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑄 (𝑃 𝑈))
30 simp133 1306 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → 𝑈𝐴)
3114, 5, 6hlatexchb1 36531 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝑄𝐴𝑈𝐴𝑃𝐴) ∧ 𝑄𝑃) → (𝑄 (𝑃 𝑈) ↔ (𝑃 𝑄) = (𝑃 𝑈)))
321, 3, 30, 2, 13, 31syl131anc 1379 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → (𝑄 (𝑃 𝑈) ↔ (𝑃 𝑄) = (𝑃 𝑈)))
3329, 32mpbid 234 . . . . 5 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → (𝑃 𝑄) = (𝑃 𝑈))
3433breq2d 5080 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → (𝑅 (𝑃 𝑄) ↔ 𝑅 (𝑃 𝑈)))
3511, 34mtbid 326 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ¬ 𝑅 (𝑃 𝑈))
36 simp3 1134 . . . 4 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈))
378, 36eqbrtrrd 5092 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑅) 𝑄) ((𝑆 𝑇) 𝑈))
3814, 5, 63atlem5 36625 . . 3 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑅𝐴𝑄𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑄 (𝑃 𝑅) ∧ 𝑃𝑅 ∧ ¬ 𝑅 (𝑃 𝑈)) ∧ ((𝑃 𝑅) 𝑄) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑅) 𝑄) = ((𝑆 𝑇) 𝑈))
391, 9, 10, 17, 28, 35, 37, 38syl331anc 1391 . 2 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑅) 𝑄) = ((𝑆 𝑇) 𝑈))
408, 39eqtrd 2858 1 (((𝐾 ∈ HL ∧ (𝑃𝐴𝑄𝐴𝑅𝐴) ∧ (𝑆𝐴𝑇𝐴𝑈𝐴)) ∧ (¬ 𝑅 (𝑃 𝑄) ∧ 𝑃𝑄𝑄 (𝑃 𝑈)) ∧ ((𝑃 𝑄) 𝑅) ((𝑆 𝑇) 𝑈)) → ((𝑃 𝑄) 𝑅) = ((𝑆 𝑇) 𝑈))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  w3a 1083   = wceq 1537  wcel 2114  wne 3018   class class class wbr 5068  cfv 6357  (class class class)co 7158  Basecbs 16485  lecple 16574  joincjn 17556  Latclat 17657  Atomscatm 36401  HLchlt 36488
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-reu 3147  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-proset 17540  df-poset 17558  df-plt 17570  df-lub 17586  df-glb 17587  df-join 17588  df-meet 17589  df-p0 17651  df-lat 17658  df-covers 36404  df-ats 36405  df-atl 36436  df-cvlat 36460  df-hlat 36489
This theorem is referenced by:  3atlem7  36627
  Copyright terms: Public domain W3C validator