Theorem trlcolem 38952

Description: Lemma for trlco 38953. (Contributed by NM, 1-Jun-2013.)

Hypotheses

Ref	Expression
trlco.l	⊢ ≤ = (le‘𝐾)
trlco.j	⊢ ∨ = (join‘𝐾)
trlco.h	⊢ 𝐻 = (LHyp‘𝐾)
trlco.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
trlco.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
trlcolem.m	⊢ ∧ = (meet‘𝐾)
trlcolem.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
trlcolem	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝐹 ∘ 𝐺)) ≤ ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))

Proof of Theorem trlcolem

Step	Hyp	Ref	Expression
1		simp1l 1196	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ HL)
2	1	hllatd 37590	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ Lat)
3		simp3l 1200	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ∈ 𝐴)
4		eqid 2737	. . . . . . 7 ⊢ (Base‘𝐾) = (Base‘𝐾)
5		trlcolem.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
6	4, 5	atbase 37515	. . . . . 6 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
7	3, 6	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ∈ (Base‘𝐾))
8		simp1 1135	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
9		simp2r 1199	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
10		trlco.l	. . . . . . . 8 ⊢ ≤ = (le‘𝐾)
11		trlco.h	. . . . . . . 8 ⊢ 𝐻 = (LHyp‘𝐾)
12		trlco.t	. . . . . . . 8 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
13	10, 5, 11, 12	ltrnat 38366	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝐺‘𝑃) ∈ 𝐴)
14	8, 9, 3, 13	syl3anc 1370	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐺‘𝑃) ∈ 𝐴)
15	4, 5	atbase 37515	. . . . . 6 ⊢ ((𝐺‘𝑃) ∈ 𝐴 → (𝐺‘𝑃) ∈ (Base‘𝐾))
16	14, 15	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐺‘𝑃) ∈ (Base‘𝐾))
17		trlco.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
18	4, 10, 17	latlej1 18233	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐺‘𝑃) ∈ (Base‘𝐾)) → 𝑃 ≤ (𝑃 ∨ (𝐺‘𝑃)))
19	2, 7, 16, 18	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ≤ (𝑃 ∨ (𝐺‘𝑃)))
20	4, 17, 5	hlatjcl 37593	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ (𝐺‘𝑃) ∈ 𝐴) → (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾))
21	1, 3, 14, 20	syl3anc 1370	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾))
22		simp2l 1198	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐹 ∈ 𝑇)
23	4, 11, 12	ltrncl 38351	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝐺‘𝑃) ∈ (Base‘𝐾)) → (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾))
24	8, 22, 16, 23	syl3anc 1370	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾))
25	4, 10, 17	latjlej1 18238	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Base‘𝐾) ∧ (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾) ∧ (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾))) → (𝑃 ≤ (𝑃 ∨ (𝐺‘𝑃)) → (𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ≤ ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃)))))
26	2, 7, 21, 24, 25	syl13anc 1371	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ≤ (𝑃 ∨ (𝐺‘𝑃)) → (𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ≤ ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃)))))
27	19, 26	mpd 15	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ≤ ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))))
28	4, 17	latjcl 18224	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾)) → (𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
29	2, 7, 24, 28	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
30	4, 17	latjcl 18224	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾) ∧ (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾)) → ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
31	2, 21, 24, 30	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
32		simp1r 1197	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐻)
33	4, 11	lhpbase 38224	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
34	32, 33	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ (Base‘𝐾))
35		trlcolem.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
36	4, 10, 35	latmlem1 18254	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾) ∧ ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ≤ ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) → ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ≤ (((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)))
37	2, 29, 31, 34, 36	syl13anc 1371	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ≤ ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) → ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ≤ (((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)))
38	27, 37	mpd 15	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ≤ (((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
39	11, 12	ltrnco 38945	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ 𝐺) ∈ 𝑇)
40	8, 22, 9, 39	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹 ∘ 𝐺) ∈ 𝑇)
41		trlco.r	. . . . 5 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
42	10, 17, 35, 5, 11, 12, 41	trlval2 38389	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∘ 𝐺) ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝐹 ∘ 𝐺)) = ((𝑃 ∨ ((𝐹 ∘ 𝐺)‘𝑃)) ∧ 𝑊))
43	40, 42	syld3an2 1410	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝐹 ∘ 𝐺)) = ((𝑃 ∨ ((𝐹 ∘ 𝐺)‘𝑃)) ∧ 𝑊))
44	10, 5, 11, 12	ltrncoval 38371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝑃 ∈ 𝐴) → ((𝐹 ∘ 𝐺)‘𝑃) = (𝐹‘(𝐺‘𝑃)))
45	44	3adant3r 1180	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹 ∘ 𝐺)‘𝑃) = (𝐹‘(𝐺‘𝑃)))
46	45	oveq2d 7329	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ ((𝐹 ∘ 𝐺)‘𝑃)) = (𝑃 ∨ (𝐹‘(𝐺‘𝑃))))
47	46	oveq1d 7328	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ ((𝐹 ∘ 𝐺)‘𝑃)) ∧ 𝑊) = ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
48	43, 47	eqtrd 2777	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝐹 ∘ 𝐺)) = ((𝑃 ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
49	10, 5, 11, 12	ltrnel 38365	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
50	9, 49	syld3an2 1410	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊))
51	10, 17, 35, 5, 11, 12, 41	trlval2 38389	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊)) → (𝑅‘𝐹) = (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
52	8, 22, 50, 51	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) = (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
53	10, 17, 35, 5, 11, 12, 41	trlval2 38389	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐺) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊))
54	9, 53	syld3an2 1410	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐺) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊))
55	52, 54	oveq12d 7331	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) = ((((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ∨ ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊)))
56	10, 5, 11, 12	ltrnat 38366	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝐺‘𝑃) ∈ 𝐴) → (𝐹‘(𝐺‘𝑃)) ∈ 𝐴)
57	8, 22, 14, 56	syl3anc 1370	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘(𝐺‘𝑃)) ∈ 𝐴)
58	4, 17, 5	hlatjcl 37593	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝐺‘𝑃) ∈ 𝐴 ∧ (𝐹‘(𝐺‘𝑃)) ∈ 𝐴) → ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
59	1, 14, 57, 58	syl3anc 1370	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
60	4, 35	latmcl 18225	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ∈ (Base‘𝐾))
61	2, 59, 34, 60	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ∈ (Base‘𝐾))
62	4, 35	latmcl 18225	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∈ (Base‘𝐾))
63	2, 21, 34, 62	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∈ (Base‘𝐾))
64	4, 17	latjcom 18232	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ∈ (Base‘𝐾) ∧ ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∈ (Base‘𝐾)) → ((((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ∨ ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊)) = (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)))
65	2, 61, 63, 64	syl3anc 1370	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊) ∨ ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊)) = (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)))
66	4, 17	latjcl 18224	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝐺‘𝑃) ∈ (Base‘𝐾) ∧ (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾)) → ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
67	2, 16, 24, 66	syl3anc 1370	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾))
68	4, 10, 35	latmle2 18250	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ≤ 𝑊)
69	2, 21, 34, 68	syl3anc 1370	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ≤ 𝑊)
70	4, 10, 17, 35, 11	lhpmod6i1 38265	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∈ (Base‘𝐾) ∧ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∈ (Base‘𝐾)) ∧ ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ≤ 𝑊) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)) = ((((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃)))) ∧ 𝑊))
71	8, 63, 67, 69, 70	syl121anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)) = ((((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃)))) ∧ 𝑊))
72	4, 17	latjass 18268	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∈ (Base‘𝐾) ∧ (𝐺‘𝑃) ∈ (Base‘𝐾) ∧ (𝐹‘(𝐺‘𝑃)) ∈ (Base‘𝐾))) → ((((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) = (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃)))))
73	2, 63, 16, 24, 72	syl13anc 1371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) = (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃)))))
74	4, 10, 17	latlej2 18234	. . . . . . . . . 10 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ (𝐺‘𝑃) ∈ (Base‘𝐾)) → (𝐺‘𝑃) ≤ (𝑃 ∨ (𝐺‘𝑃)))
75	2, 7, 16, 74	syl3anc 1370	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐺‘𝑃) ≤ (𝑃 ∨ (𝐺‘𝑃)))
76	4, 10, 17, 35, 11	lhpmod2i2 38264	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾) ∧ (𝐺‘𝑃) ∈ (Base‘𝐾)) ∧ (𝐺‘𝑃) ≤ (𝑃 ∨ (𝐺‘𝑃))) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (𝐺‘𝑃)) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ (𝑊 ∨ (𝐺‘𝑃))))
77	8, 21, 16, 75, 76	syl121anc 1374	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (𝐺‘𝑃)) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ (𝑊 ∨ (𝐺‘𝑃))))
78		eqid 2737	. . . . . . . . . . 11 ⊢ (1.‘𝐾) = (1.‘𝐾)
79	10, 17, 78, 5, 11	lhpjat1 38246	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺‘𝑃) ∈ 𝐴 ∧ ¬ (𝐺‘𝑃) ≤ 𝑊)) → (𝑊 ∨ (𝐺‘𝑃)) = (1.‘𝐾))
80	8, 50, 79	syl2anc 584	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑊 ∨ (𝐺‘𝑃)) = (1.‘𝐾))
81	80	oveq2d 7329	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ (𝑊 ∨ (𝐺‘𝑃))) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ (1.‘𝐾)))
82		hlol 37587	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
83	1, 82	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ OL)
84	4, 35, 78	olm11 37453	. . . . . . . . 9 ⊢ ((𝐾 ∈ OL ∧ (𝑃 ∨ (𝐺‘𝑃)) ∈ (Base‘𝐾)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ (1.‘𝐾)) = (𝑃 ∨ (𝐺‘𝑃)))
85	83, 21, 84	syl2anc 584	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑃 ∨ (𝐺‘𝑃)) ∧ (1.‘𝐾)) = (𝑃 ∨ (𝐺‘𝑃)))
86	77, 81, 85	3eqtrd 2781	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (𝐺‘𝑃)) = (𝑃 ∨ (𝐺‘𝑃)))
87	86	oveq1d 7328	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) = ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))))
88	73, 87	eqtr3d 2779	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃)))) = ((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))))
89	88	oveq1d 7328	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ ((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃)))) ∧ 𝑊) = (((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
90	71, 89	eqtrd 2777	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) ∨ (((𝐺‘𝑃) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊)) = (((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
91	55, 65, 90	3eqtrd 2781	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) = (((𝑃 ∨ (𝐺‘𝑃)) ∨ (𝐹‘(𝐺‘𝑃))) ∧ 𝑊))
92	38, 48, 91	3brtr4d 5117	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝐹 ∘ 𝐺)) ≤ ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 396   ∧ w3a 1086   = wceq 1540   ∈ wcel 2105   class class class wbr 5085   ∘ ccom 5609  ‘cfv 6463  (class class class)co 7313  Basecbs 16979  lecple 17036  joincjn 18096  meetcmee 18097  1.cp1 18209  Latclat 18216  OLcol 37400  Atomscatm 37489  HLchlt 37576  LHypclh 38210  LTrncltrn 38327  trLctrl 38384

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 2708  ax-rep 5222  ax-sep 5236  ax-nul 5243  ax-pow 5301  ax-pr 5365  ax-un 7626  ax-riotaBAD 37179

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3443  df-sbc 3726  df-csb 3842  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-nul 4267  df-if 4470  df-pw 4545  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4849  df-iun 4937  df-iin 4938  df-br 5086  df-opab 5148  df-mpt 5169  df-id 5505  df-xp 5611  df-rel 5612  df-cnv 5613  df-co 5614  df-dm 5615  df-rn 5616  df-res 5617  df-ima 5618  df-iota 6415  df-fun 6465  df-fn 6466  df-f 6467  df-f1 6468  df-fo 6469  df-f1o 6470  df-fv 6471  df-riota 7270  df-ov 7316  df-oprab 7317  df-mpo 7318  df-1st 7874  df-2nd 7875  df-undef 8134  df-map 8663  df-proset 18080  df-poset 18098  df-plt 18115  df-lub 18131  df-glb 18132  df-join 18133  df-meet 18134  df-p0 18210  df-p1 18211  df-lat 18217  df-clat 18284  df-oposet 37402  df-ol 37404  df-oml 37405  df-covers 37492  df-ats 37493  df-atl 37524  df-cvlat 37548  df-hlat 37577  df-llines 37724  df-lplanes 37725  df-lvols 37726  df-lines 37727  df-psubsp 37729  df-pmap 37730  df-padd 38022  df-lhyp 38214  df-laut 38215  df-ldil 38330  df-ltrn 38331  df-trl 38385

This theorem is referenced by:  trlco  38953