Theorem hlatexch4 36010

Description: Exchange 2 atoms. (Contributed by NM, 13-May-2013.)

Hypotheses

Ref	Expression
hlatexch4.j	⊢ ∨ = (join‘𝐾)
hlatexch4.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
hlatexch4	⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑆))

Proof of Theorem hlatexch4

Step	Hyp	Ref	Expression
1		simp11 1183	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝐾 ∈ HL)
2		simp2l 1179	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑅 ∈ 𝐴)
3		simp2r 1180	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑆 ∈ 𝐴)
4		eqid 2772	. . . . . . . 8 ⊢ (le‘𝐾) = (le‘𝐾)
5		hlatexch4.j	. . . . . . . 8 ⊢ ∨ = (join‘𝐾)
6		hlatexch4.a	. . . . . . . 8 ⊢ 𝐴 = (Atoms‘𝐾)
7	4, 5, 6	hlatlej2 35905	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) → 𝑆(le‘𝐾)(𝑅 ∨ 𝑆))
8	1, 2, 3, 7	syl3anc 1351	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑆(le‘𝐾)(𝑅 ∨ 𝑆))
9		simp33 1191	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))
10	8, 9	breqtrrd 4951	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑆(le‘𝐾)(𝑃 ∨ 𝑄))
11		simp12 1184	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑃 ∈ 𝐴)
12		simp13 1185	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑄 ∈ 𝐴)
13		simp32 1190	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑄 ≠ 𝑆)
14	13	necomd 3016	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑆 ≠ 𝑄)
15	4, 5, 6	hlatexch2 35925	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝑆 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ 𝑆 ≠ 𝑄) → (𝑆(le‘𝐾)(𝑃 ∨ 𝑄) → 𝑃(le‘𝐾)(𝑆 ∨ 𝑄)))
16	1, 3, 11, 12, 14, 15	syl131anc 1363	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑆(le‘𝐾)(𝑃 ∨ 𝑄) → 𝑃(le‘𝐾)(𝑆 ∨ 𝑄)))
17	10, 16	mpd 15	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑃(le‘𝐾)(𝑆 ∨ 𝑄))
18	5, 6	hlatjcom 35897	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑆 ∨ 𝑄) = (𝑄 ∨ 𝑆))
19	1, 3, 12, 18	syl3anc 1351	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑆 ∨ 𝑄) = (𝑄 ∨ 𝑆))
20	17, 19	breqtrd 4949	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑃(le‘𝐾)(𝑄 ∨ 𝑆))
21	4, 5, 6	hlatlej2 35905	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝑄(le‘𝐾)(𝑃 ∨ 𝑄))
22	1, 11, 12, 21	syl3anc 1351	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑄(le‘𝐾)(𝑃 ∨ 𝑄))
23	22, 9	breqtrd 4949	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑄(le‘𝐾)(𝑅 ∨ 𝑆))
24	4, 5, 6	hlatexch2 35925	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ 𝑄 ≠ 𝑆) → (𝑄(le‘𝐾)(𝑅 ∨ 𝑆) → 𝑅(le‘𝐾)(𝑄 ∨ 𝑆)))
25	1, 12, 2, 3, 13, 24	syl131anc 1363	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑄(le‘𝐾)(𝑅 ∨ 𝑆) → 𝑅(le‘𝐾)(𝑄 ∨ 𝑆)))
26	23, 25	mpd 15	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑅(le‘𝐾)(𝑄 ∨ 𝑆))
27	1	hllatd 35893	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝐾 ∈ Lat)
28		eqid 2772	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
29	28, 6	atbase 35818	. . . . 5 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
30	11, 29	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑃 ∈ (Base‘𝐾))
31	28, 6	atbase 35818	. . . . 5 ⊢ (𝑅 ∈ 𝐴 → 𝑅 ∈ (Base‘𝐾))
32	2, 31	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑅 ∈ (Base‘𝐾))
33	28, 5, 6	hlatjcl 35896	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) → (𝑄 ∨ 𝑆) ∈ (Base‘𝐾))
34	1, 12, 3, 33	syl3anc 1351	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑄 ∨ 𝑆) ∈ (Base‘𝐾))
35	28, 4, 5	latjle12 17520	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ 𝑅 ∈ (Base‘𝐾) ∧ (𝑄 ∨ 𝑆) ∈ (Base‘𝐾))) → ((𝑃(le‘𝐾)(𝑄 ∨ 𝑆) ∧ 𝑅(le‘𝐾)(𝑄 ∨ 𝑆)) ↔ (𝑃 ∨ 𝑅)(le‘𝐾)(𝑄 ∨ 𝑆)))
36	27, 30, 32, 34, 35	syl13anc 1352	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → ((𝑃(le‘𝐾)(𝑄 ∨ 𝑆) ∧ 𝑅(le‘𝐾)(𝑄 ∨ 𝑆)) ↔ (𝑃 ∨ 𝑅)(le‘𝐾)(𝑄 ∨ 𝑆)))
37	20, 26, 36	mpbi2and 699	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑃 ∨ 𝑅)(le‘𝐾)(𝑄 ∨ 𝑆))
38		simp31 1189	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → 𝑃 ≠ 𝑅)
39	4, 5, 6	ps-1 36006	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑃 ≠ 𝑅) ∧ (𝑄 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴)) → ((𝑃 ∨ 𝑅)(le‘𝐾)(𝑄 ∨ 𝑆) ↔ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑆)))
40	1, 11, 2, 38, 12, 3, 39	syl132anc 1368	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → ((𝑃 ∨ 𝑅)(le‘𝐾)(𝑄 ∨ 𝑆) ↔ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑆)))
41	37, 40	mpbid 224	1 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑃 ≠ 𝑅 ∧ 𝑄 ≠ 𝑆 ∧ (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑆))) → (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑆))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 387   ∧ w3a 1068   = wceq 1507   ∈ wcel 2048   ≠ wne 2961   class class class wbr 4923  ‘cfv 6182  (class class class)co 6970  Basecbs 16329  lecple 16418  joincjn 17402  Latclat 17503  Atomscatm 35792  HLchlt 35879

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2745  ax-rep 5043  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2014  df-mo 2544  df-eu 2580  df-clab 2754  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-ral 3087  df-rex 3088  df-reu 3089  df-rab 3091  df-v 3411  df-sbc 3678  df-csb 3783  df-dif 3828  df-un 3830  df-in 3832  df-ss 3839  df-nul 4174  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-op 4442  df-uni 4707  df-iun 4788  df-br 4924  df-opab 4986  df-mpt 5003  df-id 5305  df-xp 5406  df-rel 5407  df-cnv 5408  df-co 5409  df-dm 5410  df-rn 5411  df-res 5412  df-ima 5413  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-riota 6931  df-ov 6973  df-oprab 6974  df-proset 17386  df-poset 17404  df-plt 17416  df-lub 17432  df-glb 17433  df-join 17434  df-meet 17435  df-p0 17497  df-lat 17504  df-covers 35795  df-ats 35796  df-atl 35827  df-cvlat 35851  df-hlat 35880

This theorem is referenced by:  cdlemg18a  37207