cdleme30a - Mathbox for Norm Megill

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

Theorem cdleme30a 39565

Description: Part of proof of Lemma E in [Crawley] p. 113. (Contributed by NM, 9-Feb-2013.)

**Hypotheses**
Ref	Expression
cdleme30.b	⊢ 𝐵 = (Base‘𝐾)
cdleme30.l	⊢ ≤ = (le‘𝐾)
cdleme30.j	⊢ ∨ = (join‘𝐾)
cdleme30.m	⊢ ∧ = (meet‘𝐾)
cdleme30.a	⊢ 𝐴 = (Atoms‘𝐾)
cdleme30.h	⊢ 𝐻 = (LHyp‘𝐾)

**Assertion**
Ref	Expression
cdleme30a	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ (𝑌 ∧ 𝑊)) = 𝑌)

**Proof of Theorem cdleme30a**
Step	Hyp	Ref	Expression
1		simp1l 1196	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝐾 ∈ HL)
2	1	hllatd 38550	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝐾 ∈ Lat)
3		simp21 1205	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑠 ∈ 𝐴)
4		cdleme30.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
5		cdleme30.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
6	4, 5	atbase 38475	. . . 4 ⊢ (𝑠 ∈ 𝐴 → 𝑠 ∈ 𝐵)
7	3, 6	syl 17	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑠 ∈ 𝐵)
8		simp23 1207	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑌 ∈ 𝐵)
9		simp1r 1197	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑊 ∈ 𝐻)
10		cdleme30.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
11	4, 10	lhpbase 39185	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
12	9, 11	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑊 ∈ 𝐵)
13		cdleme30.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
14	4, 13	latmcl 18400	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ 𝑌 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑌 ∧ 𝑊) ∈ 𝐵)
15	2, 8, 12, 14	syl3anc 1370	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑌 ∧ 𝑊) ∈ 𝐵)
16		simp22l 1291	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑋 ∈ 𝐵)
17		cdleme30.j	. . . 4 ⊢ ∨ = (join‘𝐾)
18	4, 17	latjass 18443	. . 3 ⊢ ((𝐾 ∈ Lat ∧ (𝑠 ∈ 𝐵 ∧ (𝑌 ∧ 𝑊) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) → ((𝑠 ∨ (𝑌 ∧ 𝑊)) ∨ 𝑋) = (𝑠 ∨ ((𝑌 ∧ 𝑊) ∨ 𝑋)))
19	2, 7, 15, 16, 18	syl13anc 1371	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → ((𝑠 ∨ (𝑌 ∧ 𝑊)) ∨ 𝑋) = (𝑠 ∨ ((𝑌 ∧ 𝑊) ∨ 𝑋)))
20		simp3l 1200	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋)
21		simp3r 1201	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑋 ≤ 𝑌)
22		cdleme30.l	. . . . . . . 8 ⊢ ≤ = (le‘𝐾)
23	4, 22, 13	latmlem1 18429	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵)) → (𝑋 ≤ 𝑌 → (𝑋 ∧ 𝑊) ≤ (𝑌 ∧ 𝑊)))
24	2, 16, 8, 12, 23	syl13anc 1371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑋 ≤ 𝑌 → (𝑋 ∧ 𝑊) ≤ (𝑌 ∧ 𝑊)))
25	21, 24	mpd 15	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑋 ∧ 𝑊) ≤ (𝑌 ∧ 𝑊))
26	4, 13	latmcl 18400	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → (𝑋 ∧ 𝑊) ∈ 𝐵)
27	2, 16, 12, 26	syl3anc 1370	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑋 ∧ 𝑊) ∈ 𝐵)
28	4, 22, 17	latjlej2 18414	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ ((𝑋 ∧ 𝑊) ∈ 𝐵 ∧ (𝑌 ∧ 𝑊) ∈ 𝐵 ∧ 𝑠 ∈ 𝐵)) → ((𝑋 ∧ 𝑊) ≤ (𝑌 ∧ 𝑊) → (𝑠 ∨ (𝑋 ∧ 𝑊)) ≤ (𝑠 ∨ (𝑌 ∧ 𝑊))))
29	2, 27, 15, 7, 28	syl13anc 1371	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → ((𝑋 ∧ 𝑊) ≤ (𝑌 ∧ 𝑊) → (𝑠 ∨ (𝑋 ∧ 𝑊)) ≤ (𝑠 ∨ (𝑌 ∧ 𝑊))))
30	25, 29	mpd 15	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ (𝑋 ∧ 𝑊)) ≤ (𝑠 ∨ (𝑌 ∧ 𝑊)))
31	20, 30	eqbrtrrd 5172	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑋 ≤ (𝑠 ∨ (𝑌 ∧ 𝑊)))
32	4, 17	latjcl 18399	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑠 ∈ 𝐵 ∧ (𝑌 ∧ 𝑊) ∈ 𝐵) → (𝑠 ∨ (𝑌 ∧ 𝑊)) ∈ 𝐵)
33	2, 7, 15, 32	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ (𝑌 ∧ 𝑊)) ∈ 𝐵)
34	4, 22, 17	latleeqj2 18412	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑠 ∨ (𝑌 ∧ 𝑊)) ∈ 𝐵) → (𝑋 ≤ (𝑠 ∨ (𝑌 ∧ 𝑊)) ↔ ((𝑠 ∨ (𝑌 ∧ 𝑊)) ∨ 𝑋) = (𝑠 ∨ (𝑌 ∧ 𝑊))))
35	2, 16, 33, 34	syl3anc 1370	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑋 ≤ (𝑠 ∨ (𝑌 ∧ 𝑊)) ↔ ((𝑠 ∨ (𝑌 ∧ 𝑊)) ∨ 𝑋) = (𝑠 ∨ (𝑌 ∧ 𝑊))))
36	31, 35	mpbid 231	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → ((𝑠 ∨ (𝑌 ∧ 𝑊)) ∨ 𝑋) = (𝑠 ∨ (𝑌 ∧ 𝑊)))
37		simp1 1135	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
38	4, 22, 17, 13, 10	lhpmod2i2 39225	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑌 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) ∧ 𝑋 ≤ 𝑌) → ((𝑌 ∧ 𝑊) ∨ 𝑋) = (𝑌 ∧ (𝑊 ∨ 𝑋)))
39	37, 8, 16, 21, 38	syl121anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → ((𝑌 ∧ 𝑊) ∨ 𝑋) = (𝑌 ∧ (𝑊 ∨ 𝑋)))
40	39	oveq2d 7428	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ ((𝑌 ∧ 𝑊) ∨ 𝑋)) = (𝑠 ∨ (𝑌 ∧ (𝑊 ∨ 𝑋))))
41		simp22 1206	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊))
42		eqid 2731	. . . . . . . 8 ⊢ (1.‘𝐾) = (1.‘𝐾)
43	4, 22, 17, 42, 10	lhpj1 39209	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊)) → (𝑊 ∨ 𝑋) = (1.‘𝐾))
44	37, 41, 43	syl2anc 583	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑊 ∨ 𝑋) = (1.‘𝐾))
45	44	oveq2d 7428	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑌 ∧ (𝑊 ∨ 𝑋)) = (𝑌 ∧ (1.‘𝐾)))
46		hlol 38547	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
47	1, 46	syl 17	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝐾 ∈ OL)
48	4, 13, 42	olm11 38413	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ 𝑌 ∈ 𝐵) → (𝑌 ∧ (1.‘𝐾)) = 𝑌)
49	47, 8, 48	syl2anc 583	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑌 ∧ (1.‘𝐾)) = 𝑌)
50	45, 49	eqtrd 2771	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑌 ∧ (𝑊 ∨ 𝑋)) = 𝑌)
51	50	oveq2d 7428	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ (𝑌 ∧ (𝑊 ∨ 𝑋))) = (𝑠 ∨ 𝑌))
52	4, 22, 17	latlej1 18408	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ 𝑠 ∈ 𝐵 ∧ (𝑋 ∧ 𝑊) ∈ 𝐵) → 𝑠 ≤ (𝑠 ∨ (𝑋 ∧ 𝑊)))
53	2, 7, 27, 52	syl3anc 1370	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑠 ≤ (𝑠 ∨ (𝑋 ∧ 𝑊)))
54	53, 20	breqtrd 5174	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑠 ≤ 𝑋)
55	4, 22, 2, 7, 16, 8, 54, 21	lattrd 18406	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → 𝑠 ≤ 𝑌)
56	4, 22, 17	latleeqj1 18411	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑠 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑠 ≤ 𝑌 ↔ (𝑠 ∨ 𝑌) = 𝑌))
57	2, 7, 8, 56	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ≤ 𝑌 ↔ (𝑠 ∨ 𝑌) = 𝑌))
58	55, 57	mpbid 231	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ 𝑌) = 𝑌)
59	40, 51, 58	3eqtrd 2775	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ ((𝑌 ∧ 𝑊) ∨ 𝑋)) = 𝑌)
60	19, 36, 59	3eqtr3d 2779	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐴 ∧ (𝑋 ∈ 𝐵 ∧ ¬ 𝑋 ≤ 𝑊) ∧ 𝑌 ∈ 𝐵) ∧ ((𝑠 ∨ (𝑋 ∧ 𝑊)) = 𝑋 ∧ 𝑋 ≤ 𝑌)) → (𝑠 ∨ (𝑌 ∧ 𝑊)) = 𝑌)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2105 class class class wbr 5148 ‘cfv 6543 (class class class)co 7412 Basecbs 17151 lecple 17211 joincjn 18271 meetcmee 18272 1.cp1 18384 Latclat 18391 OLcol 38360 Atomscatm 38449 HLchlt 38536 LHypclh 39171

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 1912 ax-6 1970 ax-7 2010 ax-8 2107 ax-9 2115 ax-10 2136 ax-11 2153 ax-12 2170 ax-ext 2702 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7729

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1781 df-nf 1785 df-sb 2067 df-mo 2533 df-eu 2562 df-clab 2709 df-cleq 2723 df-clel 2809 df-nfc 2884 df-ne 2940 df-ral 3061 df-rex 3070 df-rmo 3375 df-reu 3376 df-rab 3432 df-v 3475 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-op 4635 df-uni 4909 df-iun 4999 df-iin 5000 df-br 5149 df-opab 5211 df-mpt 5232 df-id 5574 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-riota 7368 df-ov 7415 df-oprab 7416 df-mpo 7417 df-1st 7979 df-2nd 7980 df-proset 18255 df-poset 18273 df-plt 18290 df-lub 18306 df-glb 18307 df-join 18308 df-meet 18309 df-p0 18385 df-p1 18386 df-lat 18392 df-clat 18459 df-oposet 38362 df-ol 38364 df-oml 38365 df-covers 38452 df-ats 38453 df-atl 38484 df-cvlat 38508 df-hlat 38537 df-psubsp 38690 df-pmap 38691 df-padd 38983 df-lhyp 39175

This theorem is referenced by: cdleme32b 39629

W3C validator