cdlemh1 - Mathbox for Norm Megill

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

Theorem cdlemh1 35121

Description: Part of proof of Lemma H of [Crawley] p. 118. (Contributed by NM, 17-Jun-2013.)

**Hypotheses**
Ref	Expression
cdlemh.b	⊢ 𝐵 = (Base‘𝐾)
cdlemh.l	⊢ ≤ = (le‘𝐾)
cdlemh.j	⊢ ∨ = (join‘𝐾)
cdlemh.m	⊢ ∧ = (meet‘𝐾)
cdlemh.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemh.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemh.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemh.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemh.s	⊢ 𝑆 = ((𝑃 ∨ (𝑅‘𝐺)) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))

**Assertion**
Ref	Expression
cdlemh1	⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑆 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))

**Proof of Theorem cdlemh1**
Step	Hyp	Ref	Expression
1		cdlemh.s	. . 3 ⊢ 𝑆 = ((𝑃 ∨ (𝑅‘𝐺)) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
2	1	oveq1i 6559	. 2 ⊢ (𝑆 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (((𝑃 ∨ (𝑅‘𝐺)) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))
3		simp11l 1165	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐾 ∈ HL)
4		simp11 1084	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
5		simp13 1086	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ∈ 𝑇)
6		simp12 1085	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ∈ 𝑇)
7		simp3r 1083	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘𝐺))
8	7	necomd 2837	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐺) ≠ (𝑅‘𝐹))
9		cdlemh.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
10		cdlemh.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
11		cdlemh.t	. . . . . 6 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
12		cdlemh.r	. . . . . 6 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
13	9, 10, 11, 12	trlcocnvat 35030	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∈ 𝑇 ∧ 𝐹 ∈ 𝑇) ∧ (𝑅‘𝐺) ≠ (𝑅‘𝐹)) → (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐴)
14	4, 5, 6, 8, 13	syl121anc 1323	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐴)
15		hllat 33668	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
16	3, 15	syl 17	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐾 ∈ Lat)
17		simp2l 1080	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝑃 ∈ 𝐴)
18		cdlemh.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
19	18, 9	atbase 33594	. . . . . 6 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
20	17, 19	syl 17	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝑃 ∈ 𝐵)
21	18, 10, 11, 12	trlcl 34469	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ 𝐵)
22	4, 5, 21	syl2anc 691	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐺) ∈ 𝐵)
23		cdlemh.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
24	18, 23	latjcl 16874	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ (𝑅‘𝐺) ∈ 𝐵) → (𝑃 ∨ (𝑅‘𝐺)) ∈ 𝐵)
25	16, 20, 22, 24	syl3anc 1318	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑃 ∨ (𝑅‘𝐺)) ∈ 𝐵)
26		simp2r 1081	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝑄 ∈ 𝐴)
27	18, 23, 9	hlatjcl 33671	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐴) → (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵)
28	3, 26, 14, 27	syl3anc 1318	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵)
29		cdlemh.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
30	29, 23, 9	hlatlej2 33680	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐴) → (𝑅‘(𝐺 ∘ ^◡𝐹)) ≤ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
31	3, 26, 14, 30	syl3anc 1318	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘(𝐺 ∘ ^◡𝐹)) ≤ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
32		cdlemh.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
33	18, 29, 23, 32, 9	atmod4i1 34170	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐴 ∧ (𝑃 ∨ (𝑅‘𝐺)) ∈ 𝐵 ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵) ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ≤ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) → (((𝑃 ∨ (𝑅‘𝐺)) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (((𝑃 ∨ (𝑅‘𝐺)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
34	3, 14, 25, 28, 31, 33	syl131anc 1331	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑃 ∨ (𝑅‘𝐺)) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (((𝑃 ∨ (𝑅‘𝐺)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
35	10, 11	ltrncnv 34450	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ^◡𝐹 ∈ 𝑇)
36	4, 6, 35	syl2anc 691	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ^◡𝐹 ∈ 𝑇)
37	23, 10, 11, 12	trljco2 35047	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ ^◡𝐹 ∈ 𝑇) → ((𝑅‘𝐺) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = ((𝑅‘^◡𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
38	4, 5, 36, 37	syl3anc 1318	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐺) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = ((𝑅‘^◡𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
39	10, 11, 12	trlcnv 34470	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘^◡𝐹) = (𝑅‘𝐹))
40	4, 6, 39	syl2anc 691	. . . . . . . 8 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘^◡𝐹) = (𝑅‘𝐹))
41	40	oveq1d 6564	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘^◡𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = ((𝑅‘𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
42	38, 41	eqtrd 2644	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐺) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = ((𝑅‘𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
43	42	oveq2d 6565	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑃 ∨ ((𝑅‘𝐺) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) = (𝑃 ∨ ((𝑅‘𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
44	10, 11	ltrnco 35025	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ ^◡𝐹 ∈ 𝑇) → (𝐺 ∘ ^◡𝐹) ∈ 𝑇)
45	4, 5, 36, 44	syl3anc 1318	. . . . . . 7 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐺 ∘ ^◡𝐹) ∈ 𝑇)
46	18, 10, 11, 12	trlcl 34469	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐺 ∘ ^◡𝐹) ∈ 𝑇) → (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐵)
47	4, 45, 46	syl2anc 691	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐵)
48	18, 23	latjass 16918	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∈ 𝐵 ∧ (𝑅‘𝐺) ∈ 𝐵 ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐵)) → ((𝑃 ∨ (𝑅‘𝐺)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑃 ∨ ((𝑅‘𝐺) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
49	16, 20, 22, 47, 48	syl13anc 1320	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑃 ∨ (𝑅‘𝐺)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑃 ∨ ((𝑅‘𝐺) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
50	18, 10, 11, 12	trlcl 34469	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ 𝐵)
51	4, 6, 50	syl2anc 691	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ∈ 𝐵)
52	18, 23	latjass 16918	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∈ 𝐵 ∧ (𝑅‘𝐹) ∈ 𝐵 ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐵)) → ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑃 ∨ ((𝑅‘𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
53	16, 20, 51, 47, 52	syl13anc 1320	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑃 ∨ ((𝑅‘𝐹) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
54	43, 49, 53	3eqtr4d 2654	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑃 ∨ (𝑅‘𝐺)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
55	54	oveq1d 6564	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑃 ∨ (𝑅‘𝐺)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) = (((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
56		simp3l 1082	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)))
57	18, 9	atbase 33594	. . . . . . 7 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
58	26, 57	syl 17	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝑄 ∈ 𝐵)
59	18, 23	latjcl 16874	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ (𝑅‘𝐹) ∈ 𝐵) → (𝑃 ∨ (𝑅‘𝐹)) ∈ 𝐵)
60	16, 20, 51, 59	syl3anc 1318	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑃 ∨ (𝑅‘𝐹)) ∈ 𝐵)
61	18, 29, 23	latjlej1 16888	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑄 ∈ 𝐵 ∧ (𝑃 ∨ (𝑅‘𝐹)) ∈ 𝐵 ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐵)) → (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) → (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ≤ ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
62	16, 58, 60, 47, 61	syl13anc 1320	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) → (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ≤ ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
63	56, 62	mpd 15	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ≤ ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
64	18, 23	latjcl 16874	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ (𝑅‘𝐹)) ∈ 𝐵 ∧ (𝑅‘(𝐺 ∘ ^◡𝐹)) ∈ 𝐵) → ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵)
65	16, 60, 47, 64	syl3anc 1318	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵)
66	18, 29, 32	latleeqm2 16903	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵 ∧ ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∈ 𝐵) → ((𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ≤ ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ↔ (((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) = (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
67	16, 28, 65, 66	syl3anc 1318	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ≤ ((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ↔ (((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) = (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))))
68	63, 67	mpbid 221	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑃 ∨ (𝑅‘𝐹)) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) = (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
69	34, 55, 68	3eqtrd 2648	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑃 ∨ (𝑅‘𝐺)) ∧ (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹)))) ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))
70	2, 69	syl5eq 2656	1 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ (𝑄 ≤ (𝑃 ∨ (𝑅‘𝐹)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑆 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))) = (𝑄 ∨ (𝑅‘(𝐺 ∘ ^◡𝐹))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 195 ∧ wa 383 ∧ w3a 1031 = wceq 1475 ∈ wcel 1977 ≠ wne 2780 class class class wbr 4583 ^◡ccnv 5037 ∘ ccom 5042 ‘cfv 5804 (class class class)co 6549 Basecbs 15695 lecple 15775 joincjn 16767 meetcmee 16768 Latclat 16868 Atomscatm 33568 HLchlt 33655 LHypclh 34288 LTrncltrn 34405 trLctrl 34463

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1713 ax-4 1728 ax-5 1827 ax-6 1875 ax-7 1922 ax-8 1979 ax-9 1986 ax-10 2006 ax-11 2021 ax-12 2034 ax-13 2234 ax-ext 2590 ax-rep 4699 ax-sep 4709 ax-nul 4717 ax-pow 4769 ax-pr 4833 ax-un 6847 ax-riotaBAD 33257

This theorem depends on definitions: df-bi 196 df-or 384 df-an 385 df-3or 1032 df-3an 1033 df-tru 1478 df-ex 1696 df-nf 1701 df-sb 1868 df-eu 2462 df-mo 2463 df-clab 2597 df-cleq 2603 df-clel 2606 df-nfc 2740 df-ne 2782 df-nel 2783 df-ral 2901 df-rex 2902 df-reu 2903 df-rmo 2904 df-rab 2905 df-v 3175 df-sbc 3403 df-csb 3500 df-dif 3543 df-un 3545 df-in 3547 df-ss 3554 df-nul 3875 df-if 4037 df-pw 4110 df-sn 4126 df-pr 4128 df-op 4132 df-uni 4373 df-iun 4457 df-iin 4458 df-br 4584 df-opab 4644 df-mpt 4645 df-id 4953 df-xp 5044 df-rel 5045 df-cnv 5046 df-co 5047 df-dm 5048 df-rn 5049 df-res 5050 df-ima 5051 df-iota 5768 df-fun 5806 df-fn 5807 df-f 5808 df-f1 5809 df-fo 5810 df-f1o 5811 df-fv 5812 df-riota 6511 df-ov 6552 df-oprab 6553 df-mpt2 6554 df-1st 7059 df-2nd 7060 df-undef 7286 df-map 7746 df-preset 16751 df-poset 16769 df-plt 16781 df-lub 16797 df-glb 16798 df-join 16799 df-meet 16800 df-p0 16862 df-p1 16863 df-lat 16869 df-clat 16931 df-oposet 33481 df-ol 33483 df-oml 33484 df-covers 33571 df-ats 33572 df-atl 33603 df-cvlat 33627 df-hlat 33656 df-llines 33802 df-lplanes 33803 df-lvols 33804 df-lines 33805 df-psubsp 33807 df-pmap 33808 df-padd 34100 df-lhyp 34292 df-laut 34293 df-ldil 34408 df-ltrn 34409 df-trl 34464

This theorem is referenced by: cdlemh 35123

W3C validator