Theorem dalem56 39837

Description: Lemma for dath 39845. Analogue of dalem55 39836 for line 𝑆𝑇. (Contributed by NM, 8-Aug-2012.)

Hypotheses

Ref	Expression
dalem.ph	⊢ (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴)) ∧ (𝑌 ∈ 𝑂 ∧ 𝑍 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (𝐶 ≤ (𝑃 ∨ 𝑆) ∧ 𝐶 ≤ (𝑄 ∨ 𝑇) ∧ 𝐶 ≤ (𝑅 ∨ 𝑈)))))
dalem.l	⊢ ≤ = (le‘𝐾)
dalem.j	⊢ ∨ = (join‘𝐾)
dalem.a	⊢ 𝐴 = (Atoms‘𝐾)
dalem.ps	⊢ (𝜓 ↔ ((𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐴) ∧ ¬ 𝑐 ≤ 𝑌 ∧ (𝑑 ≠ 𝑐 ∧ ¬ 𝑑 ≤ 𝑌 ∧ 𝐶 ≤ (𝑐 ∨ 𝑑))))
dalem54.m	⊢ ∧ = (meet‘𝐾)
dalem54.o	⊢ 𝑂 = (LPlanes‘𝐾)
dalem54.y	⊢ 𝑌 = ((𝑃 ∨ 𝑄) ∨ 𝑅)
dalem54.z	⊢ 𝑍 = ((𝑆 ∨ 𝑇) ∨ 𝑈)
dalem54.g	⊢ 𝐺 = ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆))
dalem54.h	⊢ 𝐻 = ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇))
dalem54.i	⊢ 𝐼 = ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈))
dalem54.b1	⊢ 𝐵 = (((𝐺 ∨ 𝐻) ∨ 𝐼) ∧ 𝑌)

Assertion

Ref	Expression
dalem56	⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ (𝑆 ∨ 𝑇)) = ((𝐺 ∨ 𝐻) ∧ 𝐵))

Proof of Theorem dalem56

Step	Hyp	Ref	Expression
1		dalem.ph	. . . . 5 ⊢ (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴)) ∧ (𝑌 ∈ 𝑂 ∧ 𝑍 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (𝐶 ≤ (𝑃 ∨ 𝑆) ∧ 𝐶 ≤ (𝑄 ∨ 𝑇) ∧ 𝐶 ≤ (𝑅 ∨ 𝑈)))))
2		dalem.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
3		dalem.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
4		dalem.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
5	1, 2, 3, 4	dalemswapyz 39765	. . . 4 ⊢ (𝜑 → (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))))
6	5	3ad2ant1 1133	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))))
7		simp2 1137	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑌 = 𝑍)
8	7	eqcomd 2739	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑍 = 𝑌)
9		dalem.ps	. . . 4 ⊢ (𝜓 ↔ ((𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐴) ∧ ¬ 𝑐 ≤ 𝑌 ∧ (𝑑 ≠ 𝑐 ∧ ¬ 𝑑 ≤ 𝑌 ∧ 𝐶 ≤ (𝑐 ∨ 𝑑))))
10	1, 2, 3, 4, 9	dalemswapyzps 39799	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐))))
11		biid 261	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))) ↔ (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))))
12		biid 261	. . . 4 ⊢ (((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐))) ↔ ((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐))))
13		dalem54.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
14		dalem54.o	. . . 4 ⊢ 𝑂 = (LPlanes‘𝐾)
15		dalem54.z	. . . 4 ⊢ 𝑍 = ((𝑆 ∨ 𝑇) ∨ 𝑈)
16		dalem54.y	. . . 4 ⊢ 𝑌 = ((𝑃 ∨ 𝑄) ∨ 𝑅)
17		eqid 2733	. . . 4 ⊢ ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃))
18		eqid 2733	. . . 4 ⊢ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)) = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))
19		eqid 2733	. . . 4 ⊢ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)) = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))
20		eqid 2733	. . . 4 ⊢ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍) = (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)
21	11, 2, 3, 4, 12, 13, 14, 15, 16, 17, 18, 19, 20	dalem55 39836	. . 3 ⊢ (((((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))) ∧ 𝑍 = 𝑌 ∧ ((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐)))) → ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (𝑆 ∨ 𝑇)) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)))
22	6, 8, 10, 21	syl3anc 1373	. 2 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (𝑆 ∨ 𝑇)) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)))
23		dalem54.g	. . . . 5 ⊢ 𝐺 = ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆))
24	1	dalemkelat 39733	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Lat)
25	24	3ad2ant1 1133	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐾 ∈ Lat)
26	1	dalemkehl 39732	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ HL)
27	26	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐾 ∈ HL)
28	9	dalemccea 39792	. . . . . . . 8 ⊢ (𝜓 → 𝑐 ∈ 𝐴)
29	28	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑐 ∈ 𝐴)
30	1	dalempea 39735	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
31	30	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑃 ∈ 𝐴)
32		eqid 2733	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
33	32, 3, 4	hlatjcl 39476	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑐 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) → (𝑐 ∨ 𝑃) ∈ (Base‘𝐾))
34	27, 29, 31, 33	syl3anc 1373	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑐 ∨ 𝑃) ∈ (Base‘𝐾))
35	9	dalemddea 39793	. . . . . . . 8 ⊢ (𝜓 → 𝑑 ∈ 𝐴)
36	35	3ad2ant3 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑑 ∈ 𝐴)
37	1	dalemsea 39738	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ 𝐴)
38	37	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑆 ∈ 𝐴)
39	32, 3, 4	hlatjcl 39476	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑑 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) → (𝑑 ∨ 𝑆) ∈ (Base‘𝐾))
40	27, 36, 38, 39	syl3anc 1373	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑑 ∨ 𝑆) ∈ (Base‘𝐾))
41	32, 13	latmcom 18379	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑐 ∨ 𝑃) ∈ (Base‘𝐾) ∧ (𝑑 ∨ 𝑆) ∈ (Base‘𝐾)) → ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆)) = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)))
42	25, 34, 40, 41	syl3anc 1373	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆)) = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)))
43	23, 42	eqtrid 2780	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐺 = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)))
44		dalem54.h	. . . . 5 ⊢ 𝐻 = ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇))
45	1	dalemqea 39736	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
46	45	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑄 ∈ 𝐴)
47	32, 3, 4	hlatjcl 39476	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑐 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑐 ∨ 𝑄) ∈ (Base‘𝐾))
48	27, 29, 46, 47	syl3anc 1373	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑐 ∨ 𝑄) ∈ (Base‘𝐾))
49	1	dalemtea 39739	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ 𝐴)
50	49	3ad2ant1 1133	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑇 ∈ 𝐴)
51	32, 3, 4	hlatjcl 39476	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑑 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) → (𝑑 ∨ 𝑇) ∈ (Base‘𝐾))
52	27, 36, 50, 51	syl3anc 1373	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑑 ∨ 𝑇) ∈ (Base‘𝐾))
53	32, 13	latmcom 18379	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑐 ∨ 𝑄) ∈ (Base‘𝐾) ∧ (𝑑 ∨ 𝑇) ∈ (Base‘𝐾)) → ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇)) = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)))
54	25, 48, 52, 53	syl3anc 1373	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇)) = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)))
55	44, 54	eqtrid 2780	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐻 = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)))
56	43, 55	oveq12d 7373	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝐺 ∨ 𝐻) = (((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))))
57	56	oveq1d 7370	. 2 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ (𝑆 ∨ 𝑇)) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (𝑆 ∨ 𝑇)))
58		dalem54.b1	. . . 4 ⊢ 𝐵 = (((𝐺 ∨ 𝐻) ∨ 𝐼) ∧ 𝑌)
59		dalem54.i	. . . . . . 7 ⊢ 𝐼 = ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈))
60	1	dalemrea 39737	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ 𝐴)
61	60	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑅 ∈ 𝐴)
62	32, 3, 4	hlatjcl 39476	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑐 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) → (𝑐 ∨ 𝑅) ∈ (Base‘𝐾))
63	27, 29, 61, 62	syl3anc 1373	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑐 ∨ 𝑅) ∈ (Base‘𝐾))
64	1	dalemuea 39740	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ 𝐴)
65	64	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑈 ∈ 𝐴)
66	32, 3, 4	hlatjcl 39476	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑑 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) → (𝑑 ∨ 𝑈) ∈ (Base‘𝐾))
67	27, 36, 65, 66	syl3anc 1373	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑑 ∨ 𝑈) ∈ (Base‘𝐾))
68	32, 13	latmcom 18379	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑐 ∨ 𝑅) ∈ (Base‘𝐾) ∧ (𝑑 ∨ 𝑈) ∈ (Base‘𝐾)) → ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈)) = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)))
69	25, 63, 67, 68	syl3anc 1373	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈)) = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)))
70	59, 69	eqtrid 2780	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐼 = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)))
71	56, 70	oveq12d 7373	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∨ 𝐼) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))))
72	71, 7	oveq12d 7373	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (((𝐺 ∨ 𝐻) ∨ 𝐼) ∧ 𝑌) = (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍))
73	58, 72	eqtrid 2780	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐵 = (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍))
74	56, 73	oveq12d 7373	. 2 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ 𝐵) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)))
75	22, 57, 74	3eqtr4d 2778	1 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ (𝑆 ∨ 𝑇)) = ((𝐺 ∨ 𝐻) ∧ 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113   ≠ wne 2930   class class class wbr 5095  ‘cfv 6489  (class class class)co 7355  Basecbs 17130  lecple 17178  joincjn 18227  meetcmee 18228  Latclat 18347  Atomscatm 39372  HLchlt 39459  LPlanesclpl 39601

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

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 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-iun 4945  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-proset 18210  df-poset 18229  df-plt 18244  df-lub 18260  df-glb 18261  df-join 18262  df-meet 18263  df-p0 18339  df-lat 18348  df-clat 18415  df-oposet 39285  df-ol 39287  df-oml 39288  df-covers 39375  df-ats 39376  df-atl 39407  df-cvlat 39431  df-hlat 39460  df-llines 39607  df-lplanes 39608  df-lvols 39609

This theorem is referenced by:  dalem57  39838