Theorem cdleme5 37899

Description: Part of proof of Lemma E in [Crawley] p. 113. 𝐺 represents f_s(r). We show r ∨ f_s(r)) = p ∨ q at the top of p. 114. (Contributed by NM, 7-Jun-2012.)

Hypotheses

Ref	Expression
cdleme4.l	⊢ ≤ = (le‘𝐾)
cdleme4.j	⊢ ∨ = (join‘𝐾)
cdleme4.m	⊢ ∧ = (meet‘𝐾)
cdleme4.a	⊢ 𝐴 = (Atoms‘𝐾)
cdleme4.h	⊢ 𝐻 = (LHyp‘𝐾)
cdleme4.u	⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
cdleme4.f	⊢ 𝐹 = ((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊)))
cdleme4.g	⊢ 𝐺 = ((𝑃 ∨ 𝑄) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))

Assertion

Ref	Expression
cdleme5	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ 𝐺) = (𝑃 ∨ 𝑄))

Proof of Theorem cdleme5

Step	Hyp	Ref	Expression
1		cdleme4.g	. . 3 ⊢ 𝐺 = ((𝑃 ∨ 𝑄) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))
2	1	oveq2i 7183	. 2 ⊢ (𝑅 ∨ 𝐺) = (𝑅 ∨ ((𝑃 ∨ 𝑄) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))))
3		simp1l 1198	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝐾 ∈ HL)
4		simp23l 1295	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑅 ∈ 𝐴)
5		simp21 1207	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑃 ∈ 𝐴)
6		simp22 1208	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑄 ∈ 𝐴)
7		eqid 2738	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
8		cdleme4.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
9		cdleme4.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
10	7, 8, 9	hlatjcl 37026	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
11	3, 5, 6, 10	syl3anc 1372	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
12	3	hllatd 37023	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝐾 ∈ Lat)
13		simp1 1137	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
14		simp3ll 1245	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑆 ∈ 𝐴)
15		cdleme4.l	. . . . . . 7 ⊢ ≤ = (le‘𝐾)
16		cdleme4.m	. . . . . . 7 ⊢ ∧ = (meet‘𝐾)
17		cdleme4.h	. . . . . . 7 ⊢ 𝐻 = (LHyp‘𝐾)
18		cdleme4.u	. . . . . . 7 ⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
19		cdleme4.f	. . . . . . 7 ⊢ 𝐹 = ((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊)))
20	15, 8, 16, 9, 17, 18, 19, 7	cdleme1b 37885	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴)) → 𝐹 ∈ (Base‘𝐾))
21	13, 5, 6, 14, 20	syl13anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝐹 ∈ (Base‘𝐾))
22	7, 8, 9	hlatjcl 37026	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) → (𝑅 ∨ 𝑆) ∈ (Base‘𝐾))
23	3, 4, 14, 22	syl3anc 1372	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ 𝑆) ∈ (Base‘𝐾))
24		simp1r 1199	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑊 ∈ 𝐻)
25	7, 17	lhpbase 37657	. . . . . . 7 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
26	24, 25	syl 17	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑊 ∈ (Base‘𝐾))
27	7, 16	latmcl 17780	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅 ∨ 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑅 ∨ 𝑆) ∧ 𝑊) ∈ (Base‘𝐾))
28	12, 23, 26, 27	syl3anc 1372	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ((𝑅 ∨ 𝑆) ∧ 𝑊) ∈ (Base‘𝐾))
29	7, 8	latjcl 17779	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝐹 ∈ (Base‘𝐾) ∧ ((𝑅 ∨ 𝑆) ∧ 𝑊) ∈ (Base‘𝐾)) → (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) ∈ (Base‘𝐾))
30	12, 21, 28, 29	syl3anc 1372	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) ∈ (Base‘𝐾))
31		simp3r 1203	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑅 ≤ (𝑃 ∨ 𝑄))
32	7, 15, 8, 16, 9	atmod3i1 37523	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑅 ∈ 𝐴 ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) ∈ (Base‘𝐾)) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄)) → (𝑅 ∨ ((𝑃 ∨ 𝑄) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))) = ((𝑃 ∨ 𝑄) ∧ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))))
33	3, 4, 11, 30, 31, 32	syl131anc 1384	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ ((𝑃 ∨ 𝑄) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))) = ((𝑃 ∨ 𝑄) ∧ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))))
34	7, 9	atbase 36948	. . . . . . 7 ⊢ (𝑆 ∈ 𝐴 → 𝑆 ∈ (Base‘𝐾))
35	14, 34	syl 17	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑆 ∈ (Base‘𝐾))
36	7, 15, 8	latlej2 17789	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑆 ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) → (𝑃 ∨ 𝑄) ≤ (𝑆 ∨ (𝑃 ∨ 𝑄)))
37	12, 35, 11, 36	syl3anc 1372	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑃 ∨ 𝑄) ≤ (𝑆 ∨ (𝑃 ∨ 𝑄)))
38	7, 9	atbase 36948	. . . . . . . . 9 ⊢ (𝑅 ∈ 𝐴 → 𝑅 ∈ (Base‘𝐾))
39	4, 38	syl 17	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑅 ∈ (Base‘𝐾))
40	7, 8	latj12 17824	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑅 ∈ (Base‘𝐾) ∧ 𝐹 ∈ (Base‘𝐾) ∧ 𝑆 ∈ (Base‘𝐾))) → (𝑅 ∨ (𝐹 ∨ 𝑆)) = (𝐹 ∨ (𝑅 ∨ 𝑆)))
41	12, 39, 21, 35, 40	syl13anc 1373	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ (𝐹 ∨ 𝑆)) = (𝐹 ∨ (𝑅 ∨ 𝑆)))
42	15, 8, 16, 9, 17, 18, 7	cdleme0aa 37869	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝑈 ∈ (Base‘𝐾))
43	13, 5, 6, 42	syl3anc 1372	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑈 ∈ (Base‘𝐾))
44	7, 8	latj12 17824	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ (𝑆 ∈ (Base‘𝐾) ∧ 𝑅 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾))) → (𝑆 ∨ (𝑅 ∨ 𝑈)) = (𝑅 ∨ (𝑆 ∨ 𝑈)))
45	12, 35, 39, 43, 44	syl13anc 1373	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∨ (𝑅 ∨ 𝑈)) = (𝑅 ∨ (𝑆 ∨ 𝑈)))
46	15, 8, 16, 9, 17, 18	cdleme4 37897	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄)) → (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑈))
47	46	3adant3l 1181	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑃 ∨ 𝑄) = (𝑅 ∨ 𝑈))
48	47	oveq2d 7188	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∨ (𝑃 ∨ 𝑄)) = (𝑆 ∨ (𝑅 ∨ 𝑈)))
49	7, 8	latjcom 17787	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ 𝐹 ∈ (Base‘𝐾) ∧ 𝑆 ∈ (Base‘𝐾)) → (𝐹 ∨ 𝑆) = (𝑆 ∨ 𝐹))
50	12, 21, 35, 49	syl3anc 1372	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝐹 ∨ 𝑆) = (𝑆 ∨ 𝐹))
51		simp3l 1202	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊))
52	15, 8, 16, 9, 17, 18, 19	cdleme1 37886	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊))) → (𝑆 ∨ 𝐹) = (𝑆 ∨ 𝑈))
53	13, 5, 6, 51, 52	syl13anc 1373	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∨ 𝐹) = (𝑆 ∨ 𝑈))
54	50, 53	eqtrd 2773	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝐹 ∨ 𝑆) = (𝑆 ∨ 𝑈))
55	54	oveq2d 7188	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ (𝐹 ∨ 𝑆)) = (𝑅 ∨ (𝑆 ∨ 𝑈)))
56	45, 48, 55	3eqtr4d 2783	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∨ (𝑃 ∨ 𝑄)) = (𝑅 ∨ (𝐹 ∨ 𝑆)))
57	15, 8, 9	hlatlej1 37034	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) → 𝑅 ≤ (𝑅 ∨ 𝑆))
58	3, 4, 14, 57	syl3anc 1372	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝑅 ≤ (𝑅 ∨ 𝑆))
59	7, 15, 8, 16, 9	atmod3i1 37523	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑅 ∈ 𝐴 ∧ (𝑅 ∨ 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑅 ≤ (𝑅 ∨ 𝑆)) → (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) = ((𝑅 ∨ 𝑆) ∧ (𝑅 ∨ 𝑊)))
60	3, 4, 23, 26, 58, 59	syl131anc 1384	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) = ((𝑅 ∨ 𝑆) ∧ (𝑅 ∨ 𝑊)))
61		simp23r 1296	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ¬ 𝑅 ≤ 𝑊)
62		eqid 2738	. . . . . . . . . . . . 13 ⊢ (1.‘𝐾) = (1.‘𝐾)
63	15, 8, 62, 9, 17	lhpjat2 37680	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) → (𝑅 ∨ 𝑊) = (1.‘𝐾))
64	13, 4, 61, 63	syl12anc 836	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ 𝑊) = (1.‘𝐾))
65	64	oveq2d 7188	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ((𝑅 ∨ 𝑆) ∧ (𝑅 ∨ 𝑊)) = ((𝑅 ∨ 𝑆) ∧ (1.‘𝐾)))
66		hlol 37020	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
67	3, 66	syl 17	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → 𝐾 ∈ OL)
68	7, 16, 62	olm11 36886	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OL ∧ (𝑅 ∨ 𝑆) ∈ (Base‘𝐾)) → ((𝑅 ∨ 𝑆) ∧ (1.‘𝐾)) = (𝑅 ∨ 𝑆))
69	67, 23, 68	syl2anc 587	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ((𝑅 ∨ 𝑆) ∧ (1.‘𝐾)) = (𝑅 ∨ 𝑆))
70	65, 69	eqtrd 2773	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ((𝑅 ∨ 𝑆) ∧ (𝑅 ∨ 𝑊)) = (𝑅 ∨ 𝑆))
71	60, 70	eqtrd 2773	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) = (𝑅 ∨ 𝑆))
72	71	oveq2d 7188	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝐹 ∨ (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) = (𝐹 ∨ (𝑅 ∨ 𝑆)))
73	41, 56, 72	3eqtr4d 2783	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∨ (𝑃 ∨ 𝑄)) = (𝐹 ∨ (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))))
74	7, 8	latj12 17824	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝐹 ∈ (Base‘𝐾) ∧ 𝑅 ∈ (Base‘𝐾) ∧ ((𝑅 ∨ 𝑆) ∧ 𝑊) ∈ (Base‘𝐾))) → (𝐹 ∨ (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) = (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))))
75	12, 21, 39, 28, 74	syl13anc 1373	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝐹 ∨ (𝑅 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) = (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))))
76	73, 75	eqtrd 2773	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∨ (𝑃 ∨ 𝑄)) = (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))))
77	37, 76	breqtrd 5056	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑃 ∨ 𝑄) ≤ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))))
78	7, 8	latjcl 17779	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑅 ∈ (Base‘𝐾) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)) ∈ (Base‘𝐾)) → (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∈ (Base‘𝐾))
79	12, 39, 30, 78	syl3anc 1372	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∈ (Base‘𝐾))
80	7, 15, 16	latleeqm1 17807	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ≤ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ↔ ((𝑃 ∨ 𝑄) ∧ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))) = (𝑃 ∨ 𝑄)))
81	12, 11, 79, 80	syl3anc 1372	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ((𝑃 ∨ 𝑄) ≤ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ↔ ((𝑃 ∨ 𝑄) ∧ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))) = (𝑃 ∨ 𝑄)))
82	77, 81	mpbid 235	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → ((𝑃 ∨ 𝑄) ∧ (𝑅 ∨ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))) = (𝑃 ∨ 𝑄))
83	33, 82	eqtrd 2773	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ ((𝑃 ∨ 𝑄) ∧ (𝐹 ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))) = (𝑃 ∨ 𝑄))
84	2, 83	syl5eq 2785	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊)) ∧ ((𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊) ∧ 𝑅 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ 𝐺) = (𝑃 ∨ 𝑄))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1088   = wceq 1542   ∈ wcel 2114   class class class wbr 5030  ‘cfv 6339  (class class class)co 7172  Basecbs 16588  lecple 16677  joincjn 17672  meetcmee 17673  1.cp1 17766  Latclat 17773  OLcol 36833  Atomscatm 36922  HLchlt 37009  LHypclh 37643

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 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7481

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rab 3062  df-v 3400  df-sbc 3681  df-csb 3791  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-op 4523  df-uni 4797  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5429  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-riota 7129  df-ov 7175  df-oprab 7176  df-mpo 7177  df-1st 7716  df-2nd 7717  df-proset 17656  df-poset 17674  df-plt 17686  df-lub 17702  df-glb 17703  df-join 17704  df-meet 17705  df-p0 17767  df-p1 17768  df-lat 17774  df-clat 17836  df-oposet 36835  df-ol 36837  df-oml 36838  df-covers 36925  df-ats 36926  df-atl 36957  df-cvlat 36981  df-hlat 37010  df-psubsp 37162  df-pmap 37163  df-padd 37455  df-lhyp 37647

This theorem is referenced by:  cdleme6  37900  cdleme7e  37906  cdleme18b  37951  cdleme50trn2a  38209