cdlemk4 - Mathbox for Norm Megill

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

Theorem cdlemk4 41207

Description: Part of proof of Lemma K of [Crawley] p. 118, last line. We use 𝑋 for their h, since 𝐻 is already used. (Contributed by NM, 24-Jun-2013.)

**Hypotheses**
Ref	Expression
cdlemk.b	⊢ 𝐵 = (Base‘𝐾)
cdlemk.l	⊢ ≤ = (le‘𝐾)
cdlemk.j	⊢ ∨ = (join‘𝐾)
cdlemk.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemk.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemk.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemk.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemk.m	⊢ ∧ = (meet‘𝐾)

**Assertion**
Ref	Expression
cdlemk4	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ≤ ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))))

**Proof of Theorem cdlemk4**
Step	Hyp	Ref	Expression
1		simp1l 1199	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ HL)
2		simp1 1137	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
3		simp2l 1201	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐹 ∈ 𝑇)
4		simp3l 1203	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑃 ∈ 𝐴)
5		cdlemk.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
6		cdlemk.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
7		cdlemk.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
8		cdlemk.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9	5, 6, 7, 8	ltrnat 40513	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝐹‘𝑃) ∈ 𝐴)
10	2, 3, 4, 9	syl3anc 1374	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ∈ 𝐴)
11		simp2r 1202	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 ∈ 𝑇)
12	5, 6, 7, 8	ltrnat 40513	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝑋‘𝑃) ∈ 𝐴)
13	2, 11, 4, 12	syl3anc 1374	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) ∈ 𝐴)
14		cdlemk.j	. . . 4 ⊢ ∨ = (join‘𝐾)
15	5, 14, 6	hlatlej1 39748	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ (𝑋‘𝑃) ∈ 𝐴) → (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
16	1, 10, 13, 15	syl3anc 1374	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
17	1	hllatd 39737	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ Lat)
18		cdlemk.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
19	18, 6	atbase 39662	. . . . . 6 ⊢ ((𝐹‘𝑃) ∈ 𝐴 → (𝐹‘𝑃) ∈ 𝐵)
20	10, 19	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ∈ 𝐵)
21	18, 6	atbase 39662	. . . . . 6 ⊢ ((𝑋‘𝑃) ∈ 𝐴 → (𝑋‘𝑃) ∈ 𝐵)
22	13, 21	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) ∈ 𝐵)
23	18, 14	latjcl 18374	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝐹‘𝑃) ∈ 𝐵 ∧ (𝑋‘𝑃) ∈ 𝐵) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵)
24	17, 20, 22, 23	syl3anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵)
25		simp1r 1200	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐻)
26	18, 7	lhpbase 40371	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
27	25, 26	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐵)
28	5, 14, 6	hlatlej2 39749	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ (𝑋‘𝑃) ∈ 𝐴) → (𝑋‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
29	1, 10, 13, 28	syl3anc 1374	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
30		cdlemk.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
31	18, 5, 14, 30, 6	atmod3i1 40237	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝑋‘𝑃) ∈ 𝐴 ∧ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) ∧ (𝑋‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃))) → ((𝑋‘𝑃) ∨ (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)))
32	1, 13, 24, 27, 29, 31	syl131anc 1386	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∨ (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)))
33	7, 8	ltrncnv 40519	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ^◡𝐹 ∈ 𝑇)
34	2, 3, 33	syl2anc 585	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ^◡𝐹 ∈ 𝑇)
35	7, 8	ltrnco 41092	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ ^◡𝐹 ∈ 𝑇) → (𝑋 ∘ ^◡𝐹) ∈ 𝑇)
36	2, 11, 34, 35	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ ^◡𝐹) ∈ 𝑇)
37	5, 6, 7, 8	ltrnel 40512	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
38	3, 37	syld3an2 1414	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
39		cdlemk.r	. . . . . . 7 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
40	5, 14, 30, 6, 7, 8, 39	trlval2 40536	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∘ ^◡𝐹) ∈ 𝑇 ∧ ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ^◡𝐹)) = (((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) ∧ 𝑊))
41	2, 36, 38, 40	syl3anc 1374	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ^◡𝐹)) = (((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) ∧ 𝑊))
42	18, 7, 8	ltrn1o 40497	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐹:𝐵–1-1-onto→𝐵)
43	2, 3, 42	syl2anc 585	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐹:𝐵–1-1-onto→𝐵)
44		f1ococnv1 6811	. . . . . . . . . . . . . 14 ⊢ (𝐹:𝐵–1-1-onto→𝐵 → (^◡𝐹 ∘ 𝐹) = ( I ↾ 𝐵))
45	43, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (^◡𝐹 ∘ 𝐹) = ( I ↾ 𝐵))
46	45	coeq2d 5819	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ (^◡𝐹 ∘ 𝐹)) = (𝑋 ∘ ( I ↾ 𝐵)))
47	18, 7, 8	ltrn1o 40497	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇) → 𝑋:𝐵–1-1-onto→𝐵)
48	2, 11, 47	syl2anc 585	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋:𝐵–1-1-onto→𝐵)
49		f1of 6782	. . . . . . . . . . . . 13 ⊢ (𝑋:𝐵–1-1-onto→𝐵 → 𝑋:𝐵⟶𝐵)
50		fcoi1 6716	. . . . . . . . . . . . 13 ⊢ (𝑋:𝐵⟶𝐵 → (𝑋 ∘ ( I ↾ 𝐵)) = 𝑋)
51	48, 49, 50	3syl 18	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ ( I ↾ 𝐵)) = 𝑋)
52	46, 51	eqtr2d 2773	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 = (𝑋 ∘ (^◡𝐹 ∘ 𝐹)))
53		coass 6232	. . . . . . . . . . 11 ⊢ ((𝑋 ∘ ^◡𝐹) ∘ 𝐹) = (𝑋 ∘ (^◡𝐹 ∘ 𝐹))
54	52, 53	eqtr4di 2790	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 = ((𝑋 ∘ ^◡𝐹) ∘ 𝐹))
55	54	fveq1d 6844	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) = (((𝑋 ∘ ^◡𝐹) ∘ 𝐹)‘𝑃))
56	5, 6, 7, 8	ltrncoval 40518	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∘ ^◡𝐹) ∈ 𝑇 ∧ 𝐹 ∈ 𝑇) ∧ 𝑃 ∈ 𝐴) → (((𝑋 ∘ ^◡𝐹) ∘ 𝐹)‘𝑃) = ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃)))
57	2, 36, 3, 4, 56	syl121anc 1378	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑋 ∘ ^◡𝐹) ∘ 𝐹)‘𝑃) = ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃)))
58	55, 57	eqtrd 2772	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) = ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃)))
59	58	oveq2d 7384	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) = ((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))))
60	59	eqcomd 2743	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) = ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
61	60	oveq1d 7383	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) ∧ 𝑊) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊))
62	41, 61	eqtrd 2772	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ^◡𝐹)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊))
63	62	oveq2d 7384	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))) = ((𝑋‘𝑃) ∨ (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊)))
64	5, 6, 7, 8	ltrnel 40512	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∈ 𝐴 ∧ ¬ (𝑋‘𝑃) ≤ 𝑊))
65	11, 64	syld3an2 1414	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∈ 𝐴 ∧ ¬ (𝑋‘𝑃) ≤ 𝑊))
66		eqid 2737	. . . . . . 7 ⊢ (1.‘𝐾) = (1.‘𝐾)
67	5, 14, 66, 6, 7	lhpjat2 40394	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋‘𝑃) ∈ 𝐴 ∧ ¬ (𝑋‘𝑃) ≤ 𝑊)) → ((𝑋‘𝑃) ∨ 𝑊) = (1.‘𝐾))
68	2, 65, 67	syl2anc 585	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∨ 𝑊) = (1.‘𝐾))
69	68	oveq2d 7384	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ (1.‘𝐾)))
70		hlol 39734	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
71	1, 70	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ OL)
72	18, 30, 66	olm11 39600	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵) → (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ (1.‘𝐾)) = ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
73	71, 24, 72	syl2anc 585	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ (1.‘𝐾)) = ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
74	69, 73	eqtr2d 2773	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)))
75	32, 63, 74	3eqtr4rd 2783	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) = ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))))
76	16, 75	breqtrd 5126	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ≤ ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 class class class wbr 5100 I cid 5526 ^◡ccnv 5631 ↾ cres 5634 ∘ ccom 5636 ⟶wf 6496 –1-1-onto→wf1o 6499 ‘cfv 6500 (class class class)co 7368 Basecbs 17148 lecple 17196 joincjn 18246 meetcmee 18247 1.cp1 18357 Latclat 18366 OLcol 39547 Atomscatm 39636 HLchlt 39723 LHypclh 40357 LTrncltrn 40474 trLctrl 40531

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5226 ax-sep 5243 ax-nul 5253 ax-pow 5312 ax-pr 5379 ax-un 7690 ax-riotaBAD 39326

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-ral 3053 df-rex 3063 df-rmo 3352 df-reu 3353 df-rab 3402 df-v 3444 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-nul 4288 df-if 4482 df-pw 4558 df-sn 4583 df-pr 4585 df-op 4589 df-uni 4866 df-iun 4950 df-iin 4951 df-br 5101 df-opab 5163 df-mpt 5182 df-id 5527 df-xp 5638 df-rel 5639 df-cnv 5640 df-co 5641 df-dm 5642 df-rn 5643 df-res 5644 df-ima 5645 df-iota 6456 df-fun 6502 df-fn 6503 df-f 6504 df-f1 6505 df-fo 6506 df-f1o 6507 df-fv 6508 df-riota 7325 df-ov 7371 df-oprab 7372 df-mpo 7373 df-1st 7943 df-2nd 7944 df-undef 8225 df-map 8777 df-proset 18229 df-poset 18248 df-plt 18263 df-lub 18279 df-glb 18280 df-join 18281 df-meet 18282 df-p0 18358 df-p1 18359 df-lat 18367 df-clat 18434 df-oposet 39549 df-ol 39551 df-oml 39552 df-covers 39639 df-ats 39640 df-atl 39671 df-cvlat 39695 df-hlat 39724 df-llines 39871 df-lplanes 39872 df-lvols 39873 df-lines 39874 df-psubsp 39876 df-pmap 39877 df-padd 40169 df-lhyp 40361 df-laut 40362 df-ldil 40477 df-ltrn 40478 df-trl 40532

This theorem is referenced by: cdlemk5a 41208

W3C validator