Theorem dia2dimlem2 41522

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

Hypotheses

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

Assertion

Ref	Expression
dia2dimlem2	⊢ (𝜑 → (𝑅‘𝐺) = 𝑈)

Proof of Theorem dia2dimlem2

Step	Hyp	Ref	Expression
1		dia2dimlem2.k	. . . . . . . . 9 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2	1	simpld 494	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ HL)
3	2	hllatd 39821	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Lat)
4		dia2dimlem2.p	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
5	4	simpld 494	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
6		eqid 2737	. . . . . . . . 9 ⊢ (Base‘𝐾) = (Base‘𝐾)
7		dia2dimlem2.a	. . . . . . . . 9 ⊢ 𝐴 = (Atoms‘𝐾)
8	6, 7	atbase 39746	. . . . . . . 8 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
9	5, 8	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑃 ∈ (Base‘𝐾))
10		dia2dimlem2.u	. . . . . . . . 9 ⊢ (𝜑 → (𝑈 ∈ 𝐴 ∧ 𝑈 ≤ 𝑊))
11	10	simpld 494	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ 𝐴)
12	6, 7	atbase 39746	. . . . . . . 8 ⊢ (𝑈 ∈ 𝐴 → 𝑈 ∈ (Base‘𝐾))
13	11, 12	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑈 ∈ (Base‘𝐾))
14		dia2dimlem2.l	. . . . . . . 8 ⊢ ≤ = (le‘𝐾)
15		dia2dimlem2.j	. . . . . . . 8 ⊢ ∨ = (join‘𝐾)
16	6, 14, 15	latlej2 18404	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾)) → 𝑈 ≤ (𝑃 ∨ 𝑈))
17	3, 9, 13, 16	syl3anc 1374	. . . . . 6 ⊢ (𝜑 → 𝑈 ≤ (𝑃 ∨ 𝑈))
18	6, 15, 7	hlatjcl 39824	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) → (𝑃 ∨ 𝑈) ∈ (Base‘𝐾))
19	2, 5, 11, 18	syl3anc 1374	. . . . . . 7 ⊢ (𝜑 → (𝑃 ∨ 𝑈) ∈ (Base‘𝐾))
20		dia2dimlem2.m	. . . . . . . 8 ⊢ ∧ = (meet‘𝐾)
21	6, 14, 20	latleeqm2 18423	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ 𝑈 ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑈) ∈ (Base‘𝐾)) → (𝑈 ≤ (𝑃 ∨ 𝑈) ↔ ((𝑃 ∨ 𝑈) ∧ 𝑈) = 𝑈))
22	3, 13, 19, 21	syl3anc 1374	. . . . . 6 ⊢ (𝜑 → (𝑈 ≤ (𝑃 ∨ 𝑈) ↔ ((𝑃 ∨ 𝑈) ∧ 𝑈) = 𝑈))
23	17, 22	mpbid 232	. . . . 5 ⊢ (𝜑 → ((𝑃 ∨ 𝑈) ∧ 𝑈) = 𝑈)
24		dia2dimlem2.rf	. . . . . . . 8 ⊢ (𝜑 → (𝑅‘𝐹) ≤ (𝑈 ∨ 𝑉))
25		dia2dimlem2.f	. . . . . . . . . 10 ⊢ (𝜑 → (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃))
26		dia2dimlem2.h	. . . . . . . . . . 11 ⊢ 𝐻 = (LHyp‘𝐾)
27		dia2dimlem2.t	. . . . . . . . . . 11 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
28		dia2dimlem2.r	. . . . . . . . . . 11 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
29	14, 7, 26, 27, 28	trlat 40626	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝑅‘𝐹) ∈ 𝐴)
30	1, 4, 25, 29	syl3anc 1374	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘𝐹) ∈ 𝐴)
31		dia2dimlem2.v	. . . . . . . . . 10 ⊢ (𝜑 → (𝑉 ∈ 𝐴 ∧ 𝑉 ≤ 𝑊))
32	31	simpld 494	. . . . . . . . 9 ⊢ (𝜑 → 𝑉 ∈ 𝐴)
33		dia2dimlem2.rv	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘𝐹) ≠ 𝑉)
34	14, 15, 7	hlatexch2 39853	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘𝐹) ∈ 𝐴 ∧ 𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) ∧ (𝑅‘𝐹) ≠ 𝑉) → ((𝑅‘𝐹) ≤ (𝑈 ∨ 𝑉) → 𝑈 ≤ ((𝑅‘𝐹) ∨ 𝑉)))
35	2, 30, 11, 32, 33, 34	syl131anc 1386	. . . . . . . 8 ⊢ (𝜑 → ((𝑅‘𝐹) ≤ (𝑈 ∨ 𝑉) → 𝑈 ≤ ((𝑅‘𝐹) ∨ 𝑉)))
36	24, 35	mpd 15	. . . . . . 7 ⊢ (𝜑 → 𝑈 ≤ ((𝑅‘𝐹) ∨ 𝑉))
37	25	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ 𝑇)
38	14, 15, 20, 7, 26, 27, 28	trlval2 40620	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊))
39	1, 37, 4, 38	syl3anc 1374	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘𝐹) = ((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊))
40	39	oveq1d 7373	. . . . . . . 8 ⊢ (𝜑 → ((𝑅‘𝐹) ∨ 𝑉) = (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑉))
41	14, 7, 26, 27	ltrnel 40596	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
42	1, 37, 4, 41	syl3anc 1374	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐹‘𝑃) ∈ 𝐴 ∧ ¬ (𝐹‘𝑃) ≤ 𝑊))
43	42	simpld 494	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑃) ∈ 𝐴)
44	6, 15, 7	hlatjcl 39824	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ (𝐹‘𝑃) ∈ 𝐴) → (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾))
45	2, 5, 43, 44	syl3anc 1374	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾))
46	1	simprd 495	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ 𝐻)
47	6, 26	lhpbase 40455	. . . . . . . . . . 11 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
48	46, 47	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ (Base‘𝐾))
49	31	simprd 495	. . . . . . . . . 10 ⊢ (𝜑 → 𝑉 ≤ 𝑊)
50	6, 14, 15, 20, 7	atmod4i1 40323	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑉 ∈ 𝐴 ∧ (𝑃 ∨ (𝐹‘𝑃)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑉 ≤ 𝑊) → (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑉) = (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑉) ∧ 𝑊))
51	2, 32, 45, 48, 49, 50	syl131anc 1386	. . . . . . . . 9 ⊢ (𝜑 → (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑉) = (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑉) ∧ 𝑊))
52	15, 7	hlatjass 39827	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ 𝑉 ∈ 𝐴)) → ((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑉) = (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)))
53	2, 5, 43, 32, 52	syl13anc 1375	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑉) = (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)))
54	53	oveq1d 7373	. . . . . . . . 9 ⊢ (𝜑 → (((𝑃 ∨ (𝐹‘𝑃)) ∨ 𝑉) ∧ 𝑊) = ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))
55	51, 54	eqtrd 2772	. . . . . . . 8 ⊢ (𝜑 → (((𝑃 ∨ (𝐹‘𝑃)) ∧ 𝑊) ∨ 𝑉) = ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))
56	40, 55	eqtrd 2772	. . . . . . 7 ⊢ (𝜑 → ((𝑅‘𝐹) ∨ 𝑉) = ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))
57	36, 56	breqtrd 5112	. . . . . 6 ⊢ (𝜑 → 𝑈 ≤ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))
58	6, 15, 7	hlatjcl 39824	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝐹‘𝑃) ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾))
59	2, 43, 32, 58	syl3anc 1374	. . . . . . . . 9 ⊢ (𝜑 → ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾))
60	6, 15	latjcl 18394	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾)) → (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∈ (Base‘𝐾))
61	3, 9, 59, 60	syl3anc 1374	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∈ (Base‘𝐾))
62	6, 20	latmcl 18395	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) ∈ (Base‘𝐾))
63	3, 61, 48, 62	syl3anc 1374	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) ∈ (Base‘𝐾))
64	6, 14, 20	latmlem2 18425	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝑈 ∈ (Base‘𝐾) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑈) ∈ (Base‘𝐾))) → (𝑈 ≤ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) → ((𝑃 ∨ 𝑈) ∧ 𝑈) ≤ ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))))
65	3, 13, 63, 19, 64	syl13anc 1375	. . . . . 6 ⊢ (𝜑 → (𝑈 ≤ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊) → ((𝑃 ∨ 𝑈) ∧ 𝑈) ≤ ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊))))
66	57, 65	mpd 15	. . . . 5 ⊢ (𝜑 → ((𝑃 ∨ 𝑈) ∧ 𝑈) ≤ ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
67	23, 66	eqbrtrrd 5110	. . . 4 ⊢ (𝜑 → 𝑈 ≤ ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
68		dia2dimlem2.g	. . . . . . 7 ⊢ (𝜑 → 𝐺 ∈ 𝑇)
69	14, 15, 20, 7, 26, 27, 28	trlval2 40620	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐺) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊))
70	1, 68, 4, 69	syl3anc 1374	. . . . . 6 ⊢ (𝜑 → (𝑅‘𝐺) = ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊))
71		dia2dimlem2.gv	. . . . . . . . . 10 ⊢ (𝜑 → (𝐺‘𝑃) = 𝑄)
72		dia2dimlem2.q	. . . . . . . . . 10 ⊢ 𝑄 = ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))
73	71, 72	eqtrdi 2788	. . . . . . . . 9 ⊢ (𝜑 → (𝐺‘𝑃) = ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉)))
74	73	oveq2d 7374	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∨ (𝐺‘𝑃)) = (𝑃 ∨ ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))))
75	74	oveq1d 7373	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) = ((𝑃 ∨ ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))) ∧ 𝑊))
76	14, 15, 7	hlatlej1 39832	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) → 𝑃 ≤ (𝑃 ∨ 𝑈))
77	2, 5, 11, 76	syl3anc 1374	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ≤ (𝑃 ∨ 𝑈))
78	6, 14, 15, 20, 7	atmod3i1 40321	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ (𝑃 ∨ 𝑈) ∈ (Base‘𝐾) ∧ ((𝐹‘𝑃) ∨ 𝑉) ∈ (Base‘𝐾)) ∧ 𝑃 ≤ (𝑃 ∨ 𝑈)) → (𝑃 ∨ ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))) = ((𝑃 ∨ 𝑈) ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉))))
79	2, 5, 19, 59, 77, 78	syl131anc 1386	. . . . . . . . 9 ⊢ (𝜑 → (𝑃 ∨ ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))) = ((𝑃 ∨ 𝑈) ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉))))
80	79	oveq1d 7373	. . . . . . . 8 ⊢ (𝜑 → ((𝑃 ∨ ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))) ∧ 𝑊) = (((𝑃 ∨ 𝑈) ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉))) ∧ 𝑊))
81		hlol 39818	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
82	2, 81	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ OL)
83	6, 20	latmassOLD 39686	. . . . . . . . 9 ⊢ ((𝐾 ∈ OL ∧ ((𝑃 ∨ 𝑈) ∈ (Base‘𝐾) ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((𝑃 ∨ 𝑈) ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉))) ∧ 𝑊) = ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
84	82, 19, 61, 48, 83	syl13anc 1375	. . . . . . . 8 ⊢ (𝜑 → (((𝑃 ∨ 𝑈) ∧ (𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉))) ∧ 𝑊) = ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
85	80, 84	eqtrd 2772	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ ((𝑃 ∨ 𝑈) ∧ ((𝐹‘𝑃) ∨ 𝑉))) ∧ 𝑊) = ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
86	75, 85	eqtrd 2772	. . . . . 6 ⊢ (𝜑 → ((𝑃 ∨ (𝐺‘𝑃)) ∧ 𝑊) = ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
87	70, 86	eqtrd 2772	. . . . 5 ⊢ (𝜑 → (𝑅‘𝐺) = ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)))
88	87	eqcomd 2743	. . . 4 ⊢ (𝜑 → ((𝑃 ∨ 𝑈) ∧ ((𝑃 ∨ ((𝐹‘𝑃) ∨ 𝑉)) ∧ 𝑊)) = (𝑅‘𝐺))
89	67, 88	breqtrd 5112	. . 3 ⊢ (𝜑 → 𝑈 ≤ (𝑅‘𝐺))
90		hlatl 39817	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
91	2, 90	syl 17	. . . 4 ⊢ (𝜑 → 𝐾 ∈ AtLat)
92		hlop 39819	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
93	2, 92	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ OP)
94		eqid 2737	. . . . . . . . . 10 ⊢ (0.‘𝐾) = (0.‘𝐾)
95		eqid 2737	. . . . . . . . . 10 ⊢ (lt‘𝐾) = (lt‘𝐾)
96	94, 95, 7	0ltat 39748	. . . . . . . . 9 ⊢ ((𝐾 ∈ OP ∧ 𝑈 ∈ 𝐴) → (0.‘𝐾)(lt‘𝐾)𝑈)
97	93, 11, 96	syl2anc 585	. . . . . . . 8 ⊢ (𝜑 → (0.‘𝐾)(lt‘𝐾)𝑈)
98		hlpos 39823	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Poset)
99	2, 98	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ Poset)
100	6, 94	op0cl 39641	. . . . . . . . . 10 ⊢ (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
101	93, 100	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (0.‘𝐾) ∈ (Base‘𝐾))
102	6, 26, 27, 28	trlcl 40621	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
103	1, 68, 102	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘𝐺) ∈ (Base‘𝐾))
104	6, 14, 95	pltletr 18296	. . . . . . . . 9 ⊢ ((𝐾 ∈ Poset ∧ ((0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑈 ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾))) → (((0.‘𝐾)(lt‘𝐾)𝑈 ∧ 𝑈 ≤ (𝑅‘𝐺)) → (0.‘𝐾)(lt‘𝐾)(𝑅‘𝐺)))
105	99, 101, 13, 103, 104	syl13anc 1375	. . . . . . . 8 ⊢ (𝜑 → (((0.‘𝐾)(lt‘𝐾)𝑈 ∧ 𝑈 ≤ (𝑅‘𝐺)) → (0.‘𝐾)(lt‘𝐾)(𝑅‘𝐺)))
106	97, 89, 105	mp2and 700	. . . . . . 7 ⊢ (𝜑 → (0.‘𝐾)(lt‘𝐾)(𝑅‘𝐺))
107	6, 95, 94	opltn0 39647	. . . . . . . 8 ⊢ ((𝐾 ∈ OP ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → ((0.‘𝐾)(lt‘𝐾)(𝑅‘𝐺) ↔ (𝑅‘𝐺) ≠ (0.‘𝐾)))
108	93, 103, 107	syl2anc 585	. . . . . . 7 ⊢ (𝜑 → ((0.‘𝐾)(lt‘𝐾)(𝑅‘𝐺) ↔ (𝑅‘𝐺) ≠ (0.‘𝐾)))
109	106, 108	mpbid 232	. . . . . 6 ⊢ (𝜑 → (𝑅‘𝐺) ≠ (0.‘𝐾))
110	109	neneqd 2938	. . . . 5 ⊢ (𝜑 → ¬ (𝑅‘𝐺) = (0.‘𝐾))
111	94, 7, 26, 27, 28	trlator0 40628	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐺) ∈ 𝐴 ∨ (𝑅‘𝐺) = (0.‘𝐾)))
112	1, 68, 111	syl2anc 585	. . . . . . 7 ⊢ (𝜑 → ((𝑅‘𝐺) ∈ 𝐴 ∨ (𝑅‘𝐺) = (0.‘𝐾)))
113	112	orcomd 872	. . . . . 6 ⊢ (𝜑 → ((𝑅‘𝐺) = (0.‘𝐾) ∨ (𝑅‘𝐺) ∈ 𝐴))
114	113	ord 865	. . . . 5 ⊢ (𝜑 → (¬ (𝑅‘𝐺) = (0.‘𝐾) → (𝑅‘𝐺) ∈ 𝐴))
115	110, 114	mpd 15	. . . 4 ⊢ (𝜑 → (𝑅‘𝐺) ∈ 𝐴)
116	14, 7	atcmp 39768	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑈 ∈ 𝐴 ∧ (𝑅‘𝐺) ∈ 𝐴) → (𝑈 ≤ (𝑅‘𝐺) ↔ 𝑈 = (𝑅‘𝐺)))
117	91, 11, 115, 116	syl3anc 1374	. . 3 ⊢ (𝜑 → (𝑈 ≤ (𝑅‘𝐺) ↔ 𝑈 = (𝑅‘𝐺)))
118	89, 117	mpbid 232	. 2 ⊢ (𝜑 → 𝑈 = (𝑅‘𝐺))
119	118	eqcomd 2743	1 ⊢ (𝜑 → (𝑅‘𝐺) = 𝑈)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 848   = wceq 1542   ∈ wcel 2114   ≠ wne 2933   class class class wbr 5086  ‘cfv 6490  (class class class)co 7358  Basecbs 17168  lecple 17216  Posetcpo 18262  ltcplt 18263  joincjn 18266  meetcmee 18267  0.cp0 18376  Latclat 18386  OPcops 39629  OLcol 39631  Atomscatm 39720  AtLatcal 39721  HLchlt 39807  LHypclh 40441  LTrncltrn 40558  trLctrl 40615

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 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  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 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5517  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-1st 7933  df-2nd 7934  df-map 8766  df-proset 18249  df-poset 18268  df-plt 18283  df-lub 18299  df-glb 18300  df-join 18301  df-meet 18302  df-p0 18378  df-p1 18379  df-lat 18387  df-clat 18454  df-oposet 39633  df-ol 39635  df-oml 39636  df-covers 39723  df-ats 39724  df-atl 39755  df-cvlat 39779  df-hlat 39808  df-psubsp 39960  df-pmap 39961  df-padd 40253  df-lhyp 40445  df-laut 40446  df-ldil 40561  df-ltrn 40562  df-trl 40616

This theorem is referenced by:  dia2dimlem5  41525