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 41006

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 1198	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ HL)
2		simp1 1136	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
3		simp2l 1200	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐹 ∈ 𝑇)
4		simp3l 1202	. . . 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 40312	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝐹‘𝑃) ∈ 𝐴)
10	2, 3, 4, 9	syl3anc 1373	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ∈ 𝐴)
11		simp2r 1201	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 ∈ 𝑇)
12	5, 6, 7, 8	ltrnat 40312	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝑋‘𝑃) ∈ 𝐴)
13	2, 11, 4, 12	syl3anc 1373	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) ∈ 𝐴)
14		cdlemk.j	. . . 4 ⊢ ∨ = (join‘𝐾)
15	5, 14, 6	hlatlej1 39547	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ (𝑋‘𝑃) ∈ 𝐴) → (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
16	1, 10, 13, 15	syl3anc 1373	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
17	1	hllatd 39536	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ Lat)
18		cdlemk.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
19	18, 6	atbase 39461	. . . . . 6 ⊢ ((𝐹‘𝑃) ∈ 𝐴 → (𝐹‘𝑃) ∈ 𝐵)
20	10, 19	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ∈ 𝐵)
21	18, 6	atbase 39461	. . . . . 6 ⊢ ((𝑋‘𝑃) ∈ 𝐴 → (𝑋‘𝑃) ∈ 𝐵)
22	13, 21	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) ∈ 𝐵)
23	18, 14	latjcl 18353	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝐹‘𝑃) ∈ 𝐵 ∧ (𝑋‘𝑃) ∈ 𝐵) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵)
24	17, 20, 22, 23	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵)
25		simp1r 1199	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐻)
26	18, 7	lhpbase 40170	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
27	25, 26	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑊 ∈ 𝐵)
28	5, 14, 6	hlatlej2 39548	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ (𝑋‘𝑃) ∈ 𝐴) → (𝑋‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
29	1, 10, 13, 28	syl3anc 1373	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
30		cdlemk.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
31	18, 5, 14, 30, 6	atmod3i1 40036	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝑋‘𝑃) ∈ 𝐴 ∧ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) ∧ (𝑋‘𝑃) ≤ ((𝐹‘𝑃) ∨ (𝑋‘𝑃))) → ((𝑋‘𝑃) ∨ (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)))
32	1, 13, 24, 27, 29, 31	syl131anc 1385	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∨ (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)))
33	7, 8	ltrncnv 40318	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ^◡𝐹 ∈ 𝑇)
34	2, 3, 33	syl2anc 584	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ^◡𝐹 ∈ 𝑇)
35	7, 8	ltrnco 40891	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ ^◡𝐹 ∈ 𝑇) → (𝑋 ∘ ^◡𝐹) ∈ 𝑇)
36	2, 11, 34, 35	syl3anc 1373	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ ^◡𝐹) ∈ 𝑇)
37	5, 6, 7, 8	ltrnel 40311	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
38	3, 37	syld3an2 1413	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
39		cdlemk.r	. . . . . . 7 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
40	5, 14, 30, 6, 7, 8, 39	trlval2 40335	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∘ ^◡𝐹) ∈ 𝑇 ∧ ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ^◡𝐹)) = (((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) ∧ 𝑊))
41	2, 36, 38, 40	syl3anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ^◡𝐹)) = (((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) ∧ 𝑊))
42	18, 7, 8	ltrn1o 40296	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐹:𝐵–1-1-onto→𝐵)
43	2, 3, 42	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐹:𝐵–1-1-onto→𝐵)
44		f1ococnv1 6800	. . . . . . . . . . . . . 14 ⊢ (𝐹:𝐵–1-1-onto→𝐵 → (^◡𝐹 ∘ 𝐹) = ( I ↾ 𝐵))
45	43, 44	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (^◡𝐹 ∘ 𝐹) = ( I ↾ 𝐵))
46	45	coeq2d 5808	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ (^◡𝐹 ∘ 𝐹)) = (𝑋 ∘ ( I ↾ 𝐵)))
47	18, 7, 8	ltrn1o 40296	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇) → 𝑋:𝐵–1-1-onto→𝐵)
48	2, 11, 47	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋:𝐵–1-1-onto→𝐵)
49		f1of 6771	. . . . . . . . . . . . 13 ⊢ (𝑋:𝐵–1-1-onto→𝐵 → 𝑋:𝐵⟶𝐵)
50		fcoi1 6705	. . . . . . . . . . . . 13 ⊢ (𝑋:𝐵⟶𝐵 → (𝑋 ∘ ( I ↾ 𝐵)) = 𝑋)
51	48, 49, 50	3syl 18	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋 ∘ ( I ↾ 𝐵)) = 𝑋)
52	46, 51	eqtr2d 2769	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 = (𝑋 ∘ (^◡𝐹 ∘ 𝐹)))
53		coass 6221	. . . . . . . . . . 11 ⊢ ((𝑋 ∘ ^◡𝐹) ∘ 𝐹) = (𝑋 ∘ (^◡𝐹 ∘ 𝐹))
54	52, 53	eqtr4di 2786	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝑋 = ((𝑋 ∘ ^◡𝐹) ∘ 𝐹))
55	54	fveq1d 6833	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) = (((𝑋 ∘ ^◡𝐹) ∘ 𝐹)‘𝑃))
56	5, 6, 7, 8	ltrncoval 40317	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋 ∘ ^◡𝐹) ∈ 𝑇 ∧ 𝐹 ∈ 𝑇) ∧ 𝑃 ∈ 𝐴) → (((𝑋 ∘ ^◡𝐹) ∘ 𝐹)‘𝑃) = ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃)))
57	2, 36, 3, 4, 56	syl121anc 1377	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝑋 ∘ ^◡𝐹) ∘ 𝐹)‘𝑃) = ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃)))
58	55, 57	eqtrd 2768	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑋‘𝑃) = ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃)))
59	58	oveq2d 7371	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) = ((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))))
60	59	eqcomd 2739	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) = ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
61	60	oveq1d 7370	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐹‘𝑃) ∨ ((𝑋 ∘ ^◡𝐹)‘(𝐹‘𝑃))) ∧ 𝑊) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊))
62	41, 61	eqtrd 2768	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘(𝑋 ∘ ^◡𝐹)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊))
63	62	oveq2d 7371	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))) = ((𝑋‘𝑃) ∨ (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ 𝑊)))
64	5, 6, 7, 8	ltrnel 40311	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∈ 𝐴 ∧ ¬ (𝑋‘𝑃) ≤ 𝑊))
65	11, 64	syld3an2 1413	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∈ 𝐴 ∧ ¬ (𝑋‘𝑃) ≤ 𝑊))
66		eqid 2733	. . . . . . 7 ⊢ (1.‘𝐾) = (1.‘𝐾)
67	5, 14, 66, 6, 7	lhpjat2 40193	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑋‘𝑃) ∈ 𝐴 ∧ ¬ (𝑋‘𝑃) ≤ 𝑊)) → ((𝑋‘𝑃) ∨ 𝑊) = (1.‘𝐾))
68	2, 65, 67	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝑋‘𝑃) ∨ 𝑊) = (1.‘𝐾))
69	68	oveq2d 7371	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ (1.‘𝐾)))
70		hlol 39533	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
71	1, 70	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐾 ∈ OL)
72	18, 30, 66	olm11 39399	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∈ 𝐵) → (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ (1.‘𝐾)) = ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
73	71, 24, 72	syl2anc 584	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ (1.‘𝐾)) = ((𝐹‘𝑃) ∨ (𝑋‘𝑃)))
74	69, 73	eqtr2d 2769	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) = (((𝐹‘𝑃) ∨ (𝑋‘𝑃)) ∧ ((𝑋‘𝑃) ∨ 𝑊)))
75	32, 63, 74	3eqtr4rd 2779	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∨ (𝑋‘𝑃)) = ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))))
76	16, 75	breqtrd 5121	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝑋 ∈ 𝑇) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝐹‘𝑃) ≤ ((𝑋‘𝑃) ∨ (𝑅‘(𝑋 ∘ ^◡𝐹))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 class class class wbr 5095 I cid 5515 ^◡ccnv 5620 ↾ cres 5623 ∘ ccom 5625 ⟶wf 6485 –1-1-onto→wf1o 6488 ‘cfv 6489 (class class class)co 7355 Basecbs 17127 lecple 17175 joincjn 18225 meetcmee 18226 1.cp1 18336 Latclat 18345 OLcol 39346 Atomscatm 39435 HLchlt 39522 LHypclh 40156 LTrncltrn 40273 trLctrl 40330

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 1911 ax-6 1968 ax-7 2009 ax-8 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2705 ax-rep 5221 ax-sep 5238 ax-nul 5248 ax-pow 5307 ax-pr 5374 ax-un 7677 ax-riotaBAD 39125

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2537 df-eu 2566 df-clab 2712 df-cleq 2725 df-clel 2808 df-nfc 2882 df-ne 2930 df-ral 3049 df-rex 3058 df-rmo 3347 df-reu 3348 df-rab 3397 df-v 3439 df-sbc 3738 df-csb 3847 df-dif 3901 df-un 3903 df-in 3905 df-ss 3915 df-nul 4283 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-op 4584 df-uni 4861 df-iun 4945 df-iin 4946 df-br 5096 df-opab 5158 df-mpt 5177 df-id 5516 df-xp 5627 df-rel 5628 df-cnv 5629 df-co 5630 df-dm 5631 df-rn 5632 df-res 5633 df-ima 5634 df-iota 6445 df-fun 6491 df-fn 6492 df-f 6493 df-f1 6494 df-fo 6495 df-f1o 6496 df-fv 6497 df-riota 7312 df-ov 7358 df-oprab 7359 df-mpo 7360 df-1st 7930 df-2nd 7931 df-undef 8212 df-map 8761 df-proset 18208 df-poset 18227 df-plt 18242 df-lub 18258 df-glb 18259 df-join 18260 df-meet 18261 df-p0 18337 df-p1 18338 df-lat 18346 df-clat 18413 df-oposet 39348 df-ol 39350 df-oml 39351 df-covers 39438 df-ats 39439 df-atl 39470 df-cvlat 39494 df-hlat 39523 df-llines 39670 df-lplanes 39671 df-lvols 39672 df-lines 39673 df-psubsp 39675 df-pmap 39676 df-padd 39968 df-lhyp 40160 df-laut 40161 df-ldil 40276 df-ltrn 40277 df-trl 40331

This theorem is referenced by: cdlemk5a 41007

W3C validator