Theorem cdleme0moN 36842

Description: Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 9-Nov-2012.) (New usage is discouraged.)

Hypotheses

Ref	Expression
cdleme0.l	⊢ ≤ = (le‘𝐾)
cdleme0.j	⊢ ∨ = (join‘𝐾)
cdleme0.m	⊢ ∧ = (meet‘𝐾)
cdleme0.a	⊢ 𝐴 = (Atoms‘𝐾)
cdleme0.h	⊢ 𝐻 = (LHyp‘𝐾)
cdleme0.u	⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)

Assertion

Ref	Expression
cdleme0moN	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → (𝑅 = 𝑃 ∨ 𝑅 = 𝑄))

Distinct variable groups:   𝐴,𝑟   ∨ ,𝑟   𝑃,𝑟   𝑄,𝑟   𝑅,𝑟   𝑈,𝑟

Allowed substitution hints:   𝐻(𝑟)   𝐾(𝑟)   ≤ (𝑟)   ∧ (𝑟)   𝑊(𝑟)

Proof of Theorem cdleme0moN

Step	Hyp	Ref	Expression
1		simp23r 1286	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → ¬ 𝑅 ≤ 𝑊)
2		neanior 3075	. . 3 ⊢ ((𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄) ↔ ¬ (𝑅 = 𝑃 ∨ 𝑅 = 𝑄))
3		simpl33 1247	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))
4		simp23l 1285	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝑅 ∈ 𝐴)
5	4	adantr 481	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑅 ∈ 𝐴)
6		simprl 767	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑅 ≠ 𝑃)
7		simprr 769	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑅 ≠ 𝑄)
8		simpl32 1246	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑅 ≤ (𝑃 ∨ 𝑄))
9		simpl1l 1215	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝐾 ∈ HL)
10		hlcvl 35976	. . . . . . . . 9 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CvLat)
11	9, 10	syl 17	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝐾 ∈ CvLat)
12		simp21l 1281	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝑃 ∈ 𝐴)
13	12	adantr 481	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑃 ∈ 𝐴)
14		simp22l 1283	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝑄 ∈ 𝐴)
15	14	adantr 481	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑄 ∈ 𝐴)
16		simpl31 1245	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑃 ≠ 𝑄)
17		cdleme0.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
18		cdleme0.l	. . . . . . . . 9 ⊢ ≤ = (le‘𝐾)
19		cdleme0.j	. . . . . . . . 9 ⊢ ∨ = (join‘𝐾)
20	17, 18, 19	cvlsupr2 35960	. . . . . . . 8 ⊢ ((𝐾 ∈ CvLat ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ 𝑃 ≠ 𝑄) → ((𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅) ↔ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))))
21	11, 13, 15, 5, 16, 20	syl131anc 1374	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → ((𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅) ↔ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))))
22	6, 7, 8, 21	mpbir3and 1333	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅))
23		simp1l 1188	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝐾 ∈ HL)
24		simp1r 1189	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝑊 ∈ 𝐻)
25		simp21r 1282	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → ¬ 𝑃 ≤ 𝑊)
26		simp31 1200	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝑃 ≠ 𝑄)
27		cdleme0.m	. . . . . . . . 9 ⊢ ∧ = (meet‘𝐾)
28		cdleme0.h	. . . . . . . . 9 ⊢ 𝐻 = (LHyp‘𝐾)
29		cdleme0.u	. . . . . . . . 9 ⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
30	18, 19, 27, 17, 28, 29	lhpat2 36662	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 ≠ 𝑄)) → 𝑈 ∈ 𝐴)
31	23, 24, 12, 25, 14, 26, 30	syl222anc 1377	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → 𝑈 ∈ 𝐴)
32	31	adantr 481	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑈 ∈ 𝐴)
33		simpl1 1182	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
34		simpl21 1242	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
35		simpl22 1243	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
36	18, 19, 27, 17, 28, 29	cdleme02N 36839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ 𝑃 ≠ 𝑄) → ((𝑃 ∨ 𝑈) = (𝑄 ∨ 𝑈) ∧ 𝑈 ≤ 𝑊))
37	36	simpld 495	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ 𝑃 ≠ 𝑄) → (𝑃 ∨ 𝑈) = (𝑄 ∨ 𝑈))
38	33, 34, 35, 16, 37	syl121anc 1366	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → (𝑃 ∨ 𝑈) = (𝑄 ∨ 𝑈))
39		df-rmo 3111	. . . . . . 7 ⊢ (∃*𝑟 ∈ 𝐴 (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟) ↔ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))
40		oveq2 7015	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (𝑃 ∨ 𝑟) = (𝑃 ∨ 𝑅))
41		oveq2 7015	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (𝑄 ∨ 𝑟) = (𝑄 ∨ 𝑅))
42	40, 41	eqeq12d 2808	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → ((𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟) ↔ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅)))
43		oveq2 7015	. . . . . . . . 9 ⊢ (𝑟 = 𝑈 → (𝑃 ∨ 𝑟) = (𝑃 ∨ 𝑈))
44		oveq2 7015	. . . . . . . . 9 ⊢ (𝑟 = 𝑈 → (𝑄 ∨ 𝑟) = (𝑄 ∨ 𝑈))
45	43, 44	eqeq12d 2808	. . . . . . . 8 ⊢ (𝑟 = 𝑈 → ((𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟) ↔ (𝑃 ∨ 𝑈) = (𝑄 ∨ 𝑈)))
46	42, 45	rmoi 3798	. . . . . . 7 ⊢ ((∃*𝑟 ∈ 𝐴 (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟) ∧ (𝑅 ∈ 𝐴 ∧ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅)) ∧ (𝑈 ∈ 𝐴 ∧ (𝑃 ∨ 𝑈) = (𝑄 ∨ 𝑈))) → 𝑅 = 𝑈)
47	39, 46	syl3an1br 1397	. . . . . 6 ⊢ ((∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)) ∧ (𝑅 ∈ 𝐴 ∧ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅)) ∧ (𝑈 ∈ 𝐴 ∧ (𝑃 ∨ 𝑈) = (𝑄 ∨ 𝑈))) → 𝑅 = 𝑈)
48	3, 5, 22, 32, 38, 47	syl122anc 1370	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑅 = 𝑈)
49	36	simprd 496	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ 𝑃 ≠ 𝑄) → 𝑈 ≤ 𝑊)
50	33, 34, 35, 16, 49	syl121anc 1366	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑈 ≤ 𝑊)
51	48, 50	eqbrtrd 4978	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) ∧ (𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄)) → 𝑅 ≤ 𝑊)
52	51	ex 413	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → ((𝑅 ≠ 𝑃 ∧ 𝑅 ≠ 𝑄) → 𝑅 ≤ 𝑊))
53	2, 52	syl5bir 244	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → (¬ (𝑅 = 𝑃 ∨ 𝑅 = 𝑄) → 𝑅 ≤ 𝑊))
54	1, 53	mt3d 150	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ 𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ∃*𝑟(𝑟 ∈ 𝐴 ∧ (𝑃 ∨ 𝑟) = (𝑄 ∨ 𝑟)))) → (𝑅 = 𝑃 ∨ 𝑅 = 𝑄))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∨ wo 842   ∧ w3a 1078   = wceq 1520   ∈ wcel 2079  ∃*wmo 2572   ≠ wne 2982  ∃*wrmo 3106   class class class wbr 4956  ‘cfv 6217  (class class class)co 7007  lecple 16389  joincjn 17371  meetcmee 17372  Atomscatm 35880  CvLatclc 35882  HLchlt 35967  LHypclh 36601

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1775  ax-4 1789  ax-5 1886  ax-6 1945  ax-7 1990  ax-8 2081  ax-9 2089  ax-10 2110  ax-11 2124  ax-12 2139  ax-13 2342  ax-ext 2767  ax-rep 5075  ax-sep 5088  ax-nul 5095  ax-pow 5150  ax-pr 5214  ax-un 7310

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1080  df-tru 1523  df-ex 1760  df-nf 1764  df-sb 2041  df-mo 2574  df-eu 2610  df-clab 2774  df-cleq 2786  df-clel 2861  df-nfc 2933  df-ne 2983  df-ral 3108  df-rex 3109  df-reu 3110  df-rmo 3111  df-rab 3112  df-v 3434  df-sbc 3702  df-csb 3807  df-dif 3857  df-un 3859  df-in 3861  df-ss 3869  df-nul 4207  df-if 4376  df-pw 4449  df-sn 4467  df-pr 4469  df-op 4473  df-uni 4740  df-iun 4821  df-br 4957  df-opab 5019  df-mpt 5036  df-id 5340  df-xp 5441  df-rel 5442  df-cnv 5443  df-co 5444  df-dm 5445  df-rn 5446  df-res 5447  df-ima 5448  df-iota 6181  df-fun 6219  df-fn 6220  df-f 6221  df-f1 6222  df-fo 6223  df-f1o 6224  df-fv 6225  df-riota 6968  df-ov 7010  df-oprab 7011  df-proset 17355  df-poset 17373  df-plt 17385  df-lub 17401  df-glb 17402  df-join 17403  df-meet 17404  df-p0 17466  df-p1 17467  df-lat 17473  df-clat 17535  df-oposet 35793  df-ol 35795  df-oml 35796  df-covers 35883  df-ats 35884  df-atl 35915  df-cvlat 35939  df-hlat 35968  df-lhyp 36605

This theorem is referenced by: (None)