Theorem dia2dimlem3 40427

Description: Lemma for dia2dim 40438. Define a translation 𝐷 whose trace is atom 𝑉. Part of proof of Lemma M in [Crawley] p. 121 line 5. (Contributed by NM, 8-Sep-2014.)

Hypotheses

Ref	Expression
dia2dimlem3.l	⊢ ≤ = (le‘𝐾)
dia2dimlem3.j	⊢ ∨ = (join‘𝐾)
dia2dimlem3.m	⊢ ∧ = (meet‘𝐾)
dia2dimlem3.a	⊢ 𝐴 = (Atoms‘𝐾)
dia2dimlem3.h	⊢ 𝐻 = (LHyp‘𝐾)
dia2dimlem3.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dia2dimlem3.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
dia2dimlem3.q	⊢ 𝑄 = ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))
dia2dimlem3.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dia2dimlem3.u	⊢ (𝜑 → (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊))
dia2dimlem3.v	⊢ (𝜑 → (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊))
dia2dimlem3.p	⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
dia2dimlem3.f	⊢ (𝜑 → (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃))
dia2dimlem3.rf	⊢ (𝜑 → (𝑅‘𝐹) ≤ (𝑈 ∨ 𝑉))
dia2dimlem3.uv	⊢ (𝜑 → 𝑈 ≠ 𝑉)
dia2dimlem3.ru	⊢ (𝜑 → (𝑅‘𝐹) ≠ 𝑈)
dia2dimlem3.rv	⊢ (𝜑 → (𝑅‘𝐹) ≠ 𝑉)
dia2dimlem3.d	⊢ (𝜑 → 𝐷 ∈ 𝑇)
dia2dimlem3.dv	⊢ (𝜑 → (𝐷‘𝑄) = (𝐹‘𝑃))

Assertion

Ref	Expression
dia2dimlem3	⊢ (𝜑 → (𝑅‘𝐷) = 𝑉)

Proof of Theorem dia2dimlem3

Step	Hyp	Ref	Expression
1		dia2dimlem3.k	. . . . . . 7 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2	1	simpld 494	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ HL)
3		dia2dimlem3.f	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃))
4	3	simpld 494	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ 𝑇)
5		dia2dimlem3.p	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
6		dia2dimlem3.l	. . . . . . . . 9 ⊢ ≤ = (le‘𝐾)
7		dia2dimlem3.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
8		dia2dimlem3.h	. . . . . . . . 9 ⊢ 𝐻 = (LHyp‘𝐾)
9		dia2dimlem3.t	. . . . . . . . 9 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
10	6, 7, 8, 9	ltrnel 39500	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
11	1, 4, 5, 10	syl3anc 1368	. . . . . . 7 ⊢ (𝜑 → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
12	11	simpld 494	. . . . . 6 ⊢ (𝜑 → (𝐹‘𝑃) ∈ 𝐴)
13		dia2dimlem3.v	. . . . . . 7 ⊢ (𝜑 → (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊))
14	13	simpld 494	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ 𝐴)
15		dia2dimlem3.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
16	6, 15, 7	hlatlej2 38736	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → 𝑉 ≤ ((𝐹‘𝑃) ∨ 𝑉))
17	2, 12, 14, 16	syl3anc 1368	. . . . 5 ⊢ (𝜑 → 𝑉 ≤ ((𝐹‘𝑃) ∨ 𝑉))
18	2	hllatd 38724	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ Lat)
19		eqid 2724	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
20	19, 7	atbase 38649	. . . . . . 7 ⊢ (𝑉 ∈ 𝐴 → 𝑉 ∈ (Base‘𝐾))
21	14, 20	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ (Base‘𝐾))
22	19, 15, 7	hlatjcl 38727	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾))
23	2, 12, 14, 22	syl3anc 1368	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾))
24		dia2dimlem3.r	. . . . . . . . 9 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
25	6, 7, 8, 9, 24	trlat 39530	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝑅‘𝐹) ∈ 𝐴)
26	1, 5, 3, 25	syl3anc 1368	. . . . . . 7 ⊢ (𝜑 → (𝑅‘𝐹) ∈ 𝐴)
27		dia2dimlem3.u	. . . . . . . 8 ⊢ (𝜑 → (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊))
28	27	simpld 494	. . . . . . 7 ⊢ (𝜑 → 𝑈 ∈ 𝐴)
29	19, 15, 7	hlatjcl 38727	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑅‘𝐹) ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) → ((𝑅‘𝐹) ∨ 𝑈) ∈ (Base‘𝐾))
30	2, 26, 28, 29	syl3anc 1368	. . . . . 6 ⊢ (𝜑 → ((𝑅‘𝐹) ∨ 𝑈) ∈ (Base‘𝐾))
31		dia2dimlem3.m	. . . . . . 7 ⊢ ∧ = (meet‘𝐾)
32	19, 6, 31	latmlem2 18425	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑉 ∈ (Base‘𝐾) ∧ ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾) ∧ ((𝑅‘𝐹) ∨ 𝑈) ∈ (Base‘𝐾))) → (𝑉 ≤ ((𝐹‘𝑃) ∨ 𝑉) → (((𝑅‘𝐹) ∨ 𝑈) ∧ 𝑉) ≤ (((𝑅‘𝐹) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))))
33	18, 21, 23, 30, 32	syl13anc 1369	. . . . 5 ⊢ (𝜑 → (𝑉 ≤ ((𝐹‘𝑃) ∨ 𝑉) → (((𝑅‘𝐹) ∨ 𝑈) ∧ 𝑉) ≤ (((𝑅‘𝐹) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))))
34	17, 33	mpd 15	. . . 4 ⊢ (𝜑 → (((𝑅‘𝐹) ∨ 𝑈) ∧ 𝑉) ≤ (((𝑅‘𝐹) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
35		dia2dimlem3.rf	. . . . . . 7 ⊢ (𝜑 → (𝑅‘𝐹) ≤ (𝑈 ∨ 𝑉))
36	15, 7	hlatjcom 38728	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → (𝑈 ∨ 𝑉) = (𝑉 ∨ 𝑈))
37	2, 28, 14, 36	syl3anc 1368	. . . . . . 7 ⊢ (𝜑 → (𝑈 ∨ 𝑉) = (𝑉 ∨ 𝑈))
38	35, 37	breqtrd 5164	. . . . . 6 ⊢ (𝜑 → (𝑅‘𝐹) ≤ (𝑉 ∨ 𝑈))
39		dia2dimlem3.ru	. . . . . . 7 ⊢ (𝜑 → (𝑅‘𝐹) ≠ 𝑈)
40	6, 15, 7	hlatexch2 38757	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘𝐹) ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑅‘𝐹) ≠ 𝑈) → ((𝑅‘𝐹) ≤ (𝑉 ∨ 𝑈) → 𝑉 ≤ ((𝑅‘𝐹) ∨ 𝑈)))
41	2, 26, 14, 28, 39, 40	syl131anc 1380	. . . . . 6 ⊢ (𝜑 → ((𝑅‘𝐹) ≤ (𝑉 ∨ 𝑈) → 𝑉 ≤ ((𝑅‘𝐹) ∨ 𝑈)))
42	38, 41	mpd 15	. . . . 5 ⊢ (𝜑 → 𝑉 ≤ ((𝑅‘𝐹) ∨ 𝑈))
43	19, 6, 31	latleeqm2 18423	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑉 ∈ (Base‘𝐾) ∧ ((𝑅‘𝐹) ∨ 𝑈) ∈ (Base‘𝐾)) → (𝑉 ≤ ((𝑅‘𝐹) ∨ 𝑈) ↔ (((𝑅‘𝐹) ∨ 𝑈) ∧ 𝑉) = 𝑉))
44	18, 21, 30, 43	syl3anc 1368	. . . . 5 ⊢ (𝜑 → (𝑉 ≤ ((𝑅‘𝐹) ∨ 𝑈) ↔ (((𝑅‘𝐹) ∨ 𝑈) ∧ 𝑉) = 𝑉))
45	42, 44	mpbid 231	. . . 4 ⊢ (𝜑 → (((𝑅‘𝐹) ∨ 𝑈) ∧ 𝑉) = 𝑉)
46		dia2dimlem3.d	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ 𝑇)
47		dia2dimlem3.q	. . . . . . 7 ⊢ 𝑄 = ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))
48		dia2dimlem3.uv	. . . . . . 7 ⊢ (𝜑 → 𝑈 ≠ 𝑉)
49	6, 15, 31, 7, 8, 9, 24, 47, 1, 27, 13, 5, 3, 35, 48, 39	dia2dimlem1 40425	. . . . . 6 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
50	6, 15, 31, 7, 8, 9, 24	trlval2 39524	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝑇 ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑅‘𝐷) = ((𝑄 ∨ (𝐷‘𝑄)) ∧ 𝑊))
51	1, 46, 49, 50	syl3anc 1368	. . . . 5 ⊢ (𝜑 → (𝑅‘𝐷) = ((𝑄 ∨ (𝐷‘𝑄)) ∧ 𝑊))
52	47	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 = ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
53		dia2dimlem3.dv	. . . . . . . . 9 ⊢ (𝜑 → (𝐷‘𝑄) = (𝐹‘𝑃))
54	52, 53	oveq12d 7419	. . . . . . . 8 ⊢ (𝜑 → (𝑄 ∨ (𝐷‘𝑄)) = (((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) ∨ (𝐹‘𝑃)))
55	5	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
56	19, 15, 7	hlatjcl 38727	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) → (𝑃 ∨ 𝑈) ∈ (Base‘𝐾))
57	2, 55, 28, 56	syl3anc 1368	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 ∨ 𝑈) ∈ (Base‘𝐾))
58	6, 15, 7	hlatlej1 38735	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ 𝑉))
59	2, 12, 14, 58	syl3anc 1368	. . . . . . . . 9 ⊢ (𝜑 → (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ 𝑉))
60	19, 6, 15, 31, 7	atmod4i1 39227	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ ((𝐹‘𝑃) ∈ 𝐴 ∧ (𝑃 ∨ 𝑈) ∈ (Base‘𝐾) ∧ ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾)) ∧ (𝐹‘𝑃) ≤ ((𝐹‘𝑃) ∨ 𝑉)) → (((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) ∨ (𝐹‘𝑃)) = (((𝑃 ∨ 𝑈) ∨ (𝐹‘𝑃)) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
61	2, 12, 57, 23, 59, 60	syl131anc 1380	. . . . . . . 8 ⊢ (𝜑 → (((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) ∨ (𝐹‘𝑃)) = (((𝑃 ∨ 𝑈) ∨ (𝐹‘𝑃)) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
62	15, 7	hlatj32 38732	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴 ∧ (𝐹‘𝑃) ∈ 𝐴)) → ((𝑃 ∨ 𝑈) ∨ (𝐹‘𝑃)) = ((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈))
63	2, 55, 28, 12, 62	syl13anc 1369	. . . . . . . . 9 ⊢ (𝜑 → ((𝑃 ∨ 𝑈) ∨ (𝐹‘𝑃)) = ((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈))
64	63	oveq1d 7416	. . . . . . . 8 ⊢ (𝜑 → (((𝑃 ∨ 𝑈) ∨ (𝐹‘𝑃)) ∧ ((𝐹‘𝑃) ∨ 𝑉)) = (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
65	54, 61, 64	3eqtrd 2768	. . . . . . 7 ⊢ (𝜑 → (𝑄 ∨ (𝐷‘𝑄)) = (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
66	65	oveq1d 7416	. . . . . 6 ⊢ (𝜑 → ((𝑄 ∨ (𝐷‘𝑄)) ∧ 𝑊) = ((((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))
67		hlol 38721	. . . . . . . 8 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
68	2, 67	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ OL)
69	19, 15, 7	hlatjcl 38727	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ (𝐹‘𝑃) ∈ 𝐴) → (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾))
70	2, 55, 12, 69	syl3anc 1368	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾))
71	19, 7	atbase 38649	. . . . . . . . 9 ⊢ (𝑈 ∈ 𝐴 → 𝑈 ∈ (Base‘𝐾))
72	28, 71	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ (Base‘𝐾))
73	19, 15	latjcl 18394	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾)) → ((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∈ (Base‘𝐾))
74	18, 70, 72, 73	syl3anc 1368	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∈ (Base‘𝐾))
75	1	simprd 495	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ 𝐻)
76	19, 8	lhpbase 39359	. . . . . . . 8 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
77	75, 76	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ (Base‘𝐾))
78	19, 31	latm32 38591	. . . . . . 7 ⊢ ((𝐾 ∈ OL ∧ (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∈ (Base‘𝐾) ∧ ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) = ((((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ 𝑊) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
79	68, 74, 23, 77, 78	syl13anc 1369	. . . . . 6 ⊢ (𝜑 → ((((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) = ((((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ 𝑊) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
80	6, 15, 31, 7, 8, 9, 24	trlval2 39524	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊))
81	1, 4, 5, 80	syl3anc 1368	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊))
82	81	oveq1d 7416	. . . . . . . 8 ⊢ (𝜑 → ((𝑅‘𝐹) ∨ 𝑈) = (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑈))
83	27	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ≤ 𝑊)
84	19, 6, 15, 31, 7	atmod4i1 39227	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑈 ∈ 𝐴 ∧ (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑈 ≤ 𝑊) → (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑈) = (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ 𝑊))
85	2, 28, 70, 77, 83, 84	syl131anc 1380	. . . . . . . 8 ⊢ (𝜑 → (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑈) = (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ 𝑊))
86	82, 85	eqtr2d 2765	. . . . . . 7 ⊢ (𝜑 → (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ 𝑊) = ((𝑅‘𝐹) ∨ 𝑈))
87	86	oveq1d 7416	. . . . . 6 ⊢ (𝜑 → ((((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑈) ∧ 𝑊) ∧ ((𝐹‘𝑃) ∨ 𝑉)) = (((𝑅‘𝐹) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
88	66, 79, 87	3eqtrd 2768	. . . . 5 ⊢ (𝜑 → ((𝑄 ∨ (𝐷‘𝑄)) ∧ 𝑊) = (((𝑅‘𝐹) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
89	51, 88	eqtr2d 2765	. . . 4 ⊢ (𝜑 → (((𝑅‘𝐹) ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)) = (𝑅‘𝐷))
90	34, 45, 89	3brtr3d 5169	. . 3 ⊢ (𝜑 → 𝑉 ≤ (𝑅‘𝐷))
91		hlatl 38720	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
92	2, 91	syl 17	. . . 4 ⊢ (𝜑 → 𝐾 ∈ AtLat)
93		hlop 38722	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
94	2, 93	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ OP)
95		eqid 2724	. . . . . . . . . 10 ⊢ (0.‘𝐾) = (0.‘𝐾)
96		eqid 2724	. . . . . . . . . 10 ⊢ (lt‘𝐾) = (lt‘𝐾)
97	95, 96, 7	0ltat 38651	. . . . . . . . 9 ⊢ ((𝐾 ∈ OP ∧ 𝑉 ∈ 𝐴) → (0.‘𝐾)(lt‘𝐾)𝑉)
98	94, 14, 97	syl2anc 583	. . . . . . . 8 ⊢ (𝜑 → (0.‘𝐾)(lt‘𝐾)𝑉)
99		hlpos 38726	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Poset)
100	2, 99	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Poset)
101	19, 95	op0cl 38544	. . . . . . . . . 10 ⊢ (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
102	94, 101	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (0.‘𝐾) ∈ (Base‘𝐾))
103	19, 8, 9, 24	trlcl 39525	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝑇) → (𝑅‘𝐷) ∈ (Base‘𝐾))
104	1, 46, 103	syl2anc 583	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘𝐷) ∈ (Base‘𝐾))
105	19, 6, 96	pltletr 18298	. . . . . . . . 9 ⊢ ((𝐾 ∈ Poset ∧ ((0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ (𝑅‘𝐷) ∈ (Base‘𝐾))) → (((0.‘𝐾)(lt‘𝐾)𝑉 ∧ 𝑉 ≤ (𝑅‘𝐷)) → (0.‘𝐾)(lt‘𝐾)(𝑅‘𝐷)))
106	100, 102, 21, 104, 105	syl13anc 1369	. . . . . . . 8 ⊢ (𝜑 → (((0.‘𝐾)(lt‘𝐾)𝑉 ∧ 𝑉 ≤ (𝑅‘𝐷)) → (0.‘𝐾)(lt‘𝐾)(𝑅‘𝐷)))
107	98, 90, 106	mp2and 696	. . . . . . 7 ⊢ (𝜑 → (0.‘𝐾)(lt‘𝐾)(𝑅‘𝐷))
108	19, 96, 95	opltn0 38550	. . . . . . . 8 ⊢ ((𝐾 ∈ OP ∧ (𝑅‘𝐷) ∈ (Base‘𝐾)) → ((0.‘𝐾)(lt‘𝐾)(𝑅‘𝐷) ↔ (𝑅‘𝐷) ≠ (0.‘𝐾)))
109	94, 104, 108	syl2anc 583	. . . . . . 7 ⊢ (𝜑 → ((0.‘𝐾)(lt‘𝐾)(𝑅‘𝐷) ↔ (𝑅‘𝐷) ≠ (0.‘𝐾)))
110	107, 109	mpbid 231	. . . . . 6 ⊢ (𝜑 → (𝑅‘𝐷) ≠ (0.‘𝐾))
111	110	neneqd 2937	. . . . 5 ⊢ (𝜑 → ¬ (𝑅‘𝐷) = (0.‘𝐾))
112	95, 7, 8, 9, 24	trlator0 39532	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝑇) → ((𝑅‘𝐷) ∈ 𝐴 ∨ (𝑅‘𝐷) = (0.‘𝐾)))
113	1, 46, 112	syl2anc 583	. . . . . . 7 ⊢ (𝜑 → ((𝑅‘𝐷) ∈ 𝐴 ∨ (𝑅‘𝐷) = (0.‘𝐾)))
114	113	orcomd 868	. . . . . 6 ⊢ (𝜑 → ((𝑅‘𝐷) = (0.‘𝐾) ∨ (𝑅‘𝐷) ∈ 𝐴))
115	114	ord 861	. . . . 5 ⊢ (𝜑 → (¬ (𝑅‘𝐷) = (0.‘𝐾) → (𝑅‘𝐷) ∈ 𝐴))
116	111, 115	mpd 15	. . . 4 ⊢ (𝜑 → (𝑅‘𝐷) ∈ 𝐴)
117	6, 7	atcmp 38671	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑉 ∈ 𝐴 ∧ (𝑅‘𝐷) ∈ 𝐴) → (𝑉 ≤ (𝑅‘𝐷) ↔ 𝑉 = (𝑅‘𝐷)))
118	92, 14, 116, 117	syl3anc 1368	. . 3 ⊢ (𝜑 → (𝑉 ≤ (𝑅‘𝐷) ↔ 𝑉 = (𝑅‘𝐷)))
119	90, 118	mpbid 231	. 2 ⊢ (𝜑 → 𝑉 = (𝑅‘𝐷))
120	119	eqcomd 2730	1 ⊢ (𝜑 → (𝑅‘𝐷) = 𝑉)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 844   = wceq 1533   ∈ wcel 2098   ≠ wne 2932   class class class wbr 5138  ‘cfv 6533  (class class class)co 7401  Basecbs 17143  lecple 17203  Posetcpo 18262  ltcplt 18263  joincjn 18266  meetcmee 18267  0.cp0 18378  Latclat 18386  OPcops 38532  OLcol 38534  Atomscatm 38623  AtLatcal 38624  HLchlt 38710  LHypclh 39345  LTrncltrn 39462  trLctrl 39519

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-op 4627  df-uni 4900  df-iun 4989  df-iin 4990  df-br 5139  df-opab 5201  df-mpt 5222  df-id 5564  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-1st 7968  df-2nd 7969  df-map 8818  df-proset 18250  df-poset 18268  df-plt 18285  df-lub 18301  df-glb 18302  df-join 18303  df-meet 18304  df-p0 18380  df-p1 18381  df-lat 18387  df-clat 18454  df-oposet 38536  df-ol 38538  df-oml 38539  df-covers 38626  df-ats 38627  df-atl 38658  df-cvlat 38682  df-hlat 38711  df-llines 38859  df-psubsp 38864  df-pmap 38865  df-padd 39157  df-lhyp 39349  df-laut 39350  df-ldil 39465  df-ltrn 39466  df-trl 39520

This theorem is referenced by:  dia2dimlem5  40429