Theorem 3atlem4 35560

Description: Lemma for 3at 35564. (Contributed by NM, 23-Jun-2012.)

Hypotheses

Ref	Expression
3at.l	⊢ ≤ = (le‘𝐾)
3at.j	⊢ ∨ = (join‘𝐾)
3at.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
3atlem4	⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → ((𝑃 ∨ 𝑄) ∨ 𝑅) = ((𝑆 ∨ 𝑇) ∨ 𝑅))

Proof of Theorem 3atlem4

Step	Hyp	Ref	Expression
1		simp11 1266	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝐾 ∈ HL)
2		simp12 1267	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴))
3		simp13l 1393	. . 3 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑆 ∈ 𝐴)
4		simp13r 1394	. . 3 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑇 ∈ 𝐴)
5		simp123 1412	. . 3 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑅 ∈ 𝐴)
6	3, 4, 5	3jca 1164	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴))
7		simp2l 1262	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → ¬ 𝑅 ≤ (𝑃 ∨ 𝑄))
8	1	hllatd 35438	. . . 4 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝐾 ∈ Lat)
9		eqid 2824	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
10		3at.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
11	9, 10	atbase 35363	. . . . 5 ⊢ (𝑅 ∈ 𝐴 → 𝑅 ∈ (Base‘𝐾))
12	5, 11	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑅 ∈ (Base‘𝐾))
13		simp121 1410	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑃 ∈ 𝐴)
14	9, 10	atbase 35363	. . . . 5 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
15	13, 14	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑃 ∈ (Base‘𝐾))
16		simp122 1411	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑄 ∈ 𝐴)
17	9, 10	atbase 35363	. . . . 5 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
18	16, 17	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑄 ∈ (Base‘𝐾))
19		3at.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
20		3at.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
21	9, 19, 20	latnlej1l 17421	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑅 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) ∧ ¬ 𝑅 ≤ (𝑃 ∨ 𝑄)) → 𝑅 ≠ 𝑃)
22	8, 12, 15, 18, 7, 21	syl131anc 1508	. . 3 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑅 ≠ 𝑃)
23	22	necomd 3053	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑃 ≠ 𝑅)
24		simp2r 1263	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑃 ≠ 𝑄)
25	24	necomd 3053	. . . 4 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → 𝑄 ≠ 𝑃)
26	19, 20, 10	hlatexch1 35469	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) ∧ 𝑄 ≠ 𝑃) → (𝑄 ≤ (𝑃 ∨ 𝑅) → 𝑅 ≤ (𝑃 ∨ 𝑄)))
27	1, 16, 5, 13, 25, 26	syl131anc 1508	. . 3 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → (𝑄 ≤ (𝑃 ∨ 𝑅) → 𝑅 ≤ (𝑃 ∨ 𝑄)))
28	7, 27	mtod 190	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → ¬ 𝑄 ≤ (𝑃 ∨ 𝑅))
29		simp3 1174	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅))
30	19, 20, 10	3atlem3 35559	. 2 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑅 ∧ ¬ 𝑄 ≤ (𝑃 ∨ 𝑅)) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → ((𝑃 ∨ 𝑄) ∨ 𝑅) = ((𝑆 ∨ 𝑇) ∨ 𝑅))
31	1, 2, 6, 7, 23, 28, 29, 30	syl331anc 1520	1 ⊢ (((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴)) ∧ (¬ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ 𝑃 ≠ 𝑄) ∧ ((𝑃 ∨ 𝑄) ∨ 𝑅) ≤ ((𝑆 ∨ 𝑇) ∨ 𝑅)) → ((𝑃 ∨ 𝑄) ∨ 𝑅) = ((𝑆 ∨ 𝑇) ∨ 𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 386   ∧ w3a 1113   = wceq 1658   ∈ wcel 2166   ≠ wne 2998   class class class wbr 4872  ‘cfv 6122  (class class class)co 6904  Basecbs 16221  lecple 16311  joincjn 17296  Latclat 17397  Atomscatm 35337  HLchlt 35424

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1896  ax-4 1910  ax-5 2011  ax-6 2077  ax-7 2114  ax-8 2168  ax-9 2175  ax-10 2194  ax-11 2209  ax-12 2222  ax-13 2390  ax-ext 2802  ax-rep 4993  ax-sep 5004  ax-nul 5012  ax-pow 5064  ax-pr 5126  ax-un 7208

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 881  df-3an 1115  df-tru 1662  df-ex 1881  df-nf 1885  df-sb 2070  df-mo 2604  df-eu 2639  df-clab 2811  df-cleq 2817  df-clel 2820  df-nfc 2957  df-ne 2999  df-ral 3121  df-rex 3122  df-reu 3123  df-rab 3125  df-v 3415  df-sbc 3662  df-csb 3757  df-dif 3800  df-un 3802  df-in 3804  df-ss 3811  df-nul 4144  df-if 4306  df-pw 4379  df-sn 4397  df-pr 4399  df-op 4403  df-uni 4658  df-iun 4741  df-br 4873  df-opab 4935  df-mpt 4952  df-id 5249  df-xp 5347  df-rel 5348  df-cnv 5349  df-co 5350  df-dm 5351  df-rn 5352  df-res 5353  df-ima 5354  df-iota 6085  df-fun 6124  df-fn 6125  df-f 6126  df-f1 6127  df-fo 6128  df-f1o 6129  df-fv 6130  df-riota 6865  df-ov 6907  df-oprab 6908  df-proset 17280  df-poset 17298  df-plt 17310  df-lub 17326  df-glb 17327  df-join 17328  df-meet 17329  df-p0 17391  df-lat 17398  df-covers 35340  df-ats 35341  df-atl 35372  df-cvlat 35396  df-hlat 35425

This theorem is referenced by:  3atlem5  35561