Theorem dalem56 40391

Description: Lemma for dath 40399. Analogue of dalem55 40390 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 40319	. . . 4 ⊢ (𝜑 → (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))))
6	5	3ad2ant1 1149	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))))
7		simp2 1153	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑌 = 𝑍)
8	7	eqcomd 2775	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑍 = 𝑌)
9		dalem.ps	. . . 4 ⊢ (𝜓 ↔ ((𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐴) ∧ ¬ 𝑐 ≤ 𝑌 ∧ (𝑑 ≠ 𝑐 ∧ ¬ 𝑑 ≤ 𝑌 ∧ 𝐶 ≤ (𝑐 ∨ 𝑑))))
10	1, 2, 3, 4, 9	dalemswapyzps 40353	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐))))
11		biid 264	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))) ↔ (((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))))
12		biid 264	. . . 4 ⊢ (((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐))) ↔ ((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐))))
13		dalem54.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
14		dalem54.o	. . . 4 ⊢ 𝑂 = (LPlanes‘𝐾)
15		dalem54.z	. . . 4 ⊢ 𝑍 = ((𝑆 ∨ 𝑇) ∨ 𝑈)
16		dalem54.y	. . . 4 ⊢ 𝑌 = ((𝑃 ∨ 𝑄) ∨ 𝑅)
17		eqid 2769	. . . 4 ⊢ ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃))
18		eqid 2769	. . . 4 ⊢ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)) = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))
19		eqid 2769	. . . 4 ⊢ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)) = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))
20		eqid 2769	. . . 4 ⊢ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍) = (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)
21	11, 2, 3, 4, 12, 13, 14, 15, 16, 17, 18, 19, 20	dalem55 40390	. . 3 ⊢ (((((𝐾 ∈ HL ∧ 𝐶 ∈ (Base‘𝐾)) ∧ (𝑆 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴)) ∧ (𝑍 ∈ 𝑂 ∧ 𝑌 ∈ 𝑂) ∧ ((¬ 𝐶 ≤ (𝑆 ∨ 𝑇) ∧ ¬ 𝐶 ≤ (𝑇 ∨ 𝑈) ∧ ¬ 𝐶 ≤ (𝑈 ∨ 𝑆)) ∧ (¬ 𝐶 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝐶 ≤ (𝑄 ∨ 𝑅) ∧ ¬ 𝐶 ≤ (𝑅 ∨ 𝑃)) ∧ (𝐶 ≤ (𝑆 ∨ 𝑃) ∧ 𝐶 ≤ (𝑇 ∨ 𝑄) ∧ 𝐶 ≤ (𝑈 ∨ 𝑅)))) ∧ 𝑍 = 𝑌 ∧ ((𝑑 ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ ¬ 𝑑 ≤ 𝑍 ∧ (𝑐 ≠ 𝑑 ∧ ¬ 𝑐 ≤ 𝑍 ∧ 𝐶 ≤ (𝑑 ∨ 𝑐)))) → ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (𝑆 ∨ 𝑇)) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)))
22	6, 8, 10, 21	syl3anc 1396	. 2 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (𝑆 ∨ 𝑇)) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)))
23		dalem54.g	. . . . 5 ⊢ 𝐺 = ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆))
24	1	dalemkelat 40287	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ Lat)
25	24	3ad2ant1 1149	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐾 ∈ Lat)
26	1	dalemkehl 40286	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ HL)
27	26	3ad2ant1 1149	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐾 ∈ HL)
28	9	dalemccea 40346	. . . . . . . 8 ⊢ (𝜓 → 𝑐 ∈ 𝐴)
29	28	3ad2ant3 1151	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑐 ∈ 𝐴)
30	1	dalempea 40289	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
31	30	3ad2ant1 1149	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑃 ∈ 𝐴)
32		eqid 2769	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
33	32, 3, 4	hlatjcl 40030	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑐 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) → (𝑐 ∨ 𝑃) ∈ (Base‘𝐾))
34	27, 29, 31, 33	syl3anc 1396	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑐 ∨ 𝑃) ∈ (Base‘𝐾))
35	9	dalemddea 40347	. . . . . . . 8 ⊢ (𝜓 → 𝑑 ∈ 𝐴)
36	35	3ad2ant3 1151	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑑 ∈ 𝐴)
37	1	dalemsea 40292	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ 𝐴)
38	37	3ad2ant1 1149	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑆 ∈ 𝐴)
39	32, 3, 4	hlatjcl 40030	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑑 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) → (𝑑 ∨ 𝑆) ∈ (Base‘𝐾))
40	27, 36, 38, 39	syl3anc 1396	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑑 ∨ 𝑆) ∈ (Base‘𝐾))
41	32, 13	latmcom 18518	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑐 ∨ 𝑃) ∈ (Base‘𝐾) ∧ (𝑑 ∨ 𝑆) ∈ (Base‘𝐾)) → ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆)) = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)))
42	25, 34, 40, 41	syl3anc 1396	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑐 ∨ 𝑃) ∧ (𝑑 ∨ 𝑆)) = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)))
43	23, 42	eqtrid 2816	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐺 = ((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)))
44		dalem54.h	. . . . 5 ⊢ 𝐻 = ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇))
45	1	dalemqea 40290	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
46	45	3ad2ant1 1149	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑄 ∈ 𝐴)
47	32, 3, 4	hlatjcl 40030	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑐 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑐 ∨ 𝑄) ∈ (Base‘𝐾))
48	27, 29, 46, 47	syl3anc 1396	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑐 ∨ 𝑄) ∈ (Base‘𝐾))
49	1	dalemtea 40293	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ 𝐴)
50	49	3ad2ant1 1149	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑇 ∈ 𝐴)
51	32, 3, 4	hlatjcl 40030	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑑 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) → (𝑑 ∨ 𝑇) ∈ (Base‘𝐾))
52	27, 36, 50, 51	syl3anc 1396	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑑 ∨ 𝑇) ∈ (Base‘𝐾))
53	32, 13	latmcom 18518	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑐 ∨ 𝑄) ∈ (Base‘𝐾) ∧ (𝑑 ∨ 𝑇) ∈ (Base‘𝐾)) → ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇)) = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)))
54	25, 48, 52, 53	syl3anc 1396	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑐 ∨ 𝑄) ∧ (𝑑 ∨ 𝑇)) = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)))
55	44, 54	eqtrid 2816	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐻 = ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄)))
56	43, 55	oveq12d 7429	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝐺 ∨ 𝐻) = (((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))))
57	56	oveq1d 7426	. 2 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ (𝑆 ∨ 𝑇)) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (𝑆 ∨ 𝑇)))
58		dalem54.b1	. . . 4 ⊢ 𝐵 = (((𝐺 ∨ 𝐻) ∨ 𝐼) ∧ 𝑌)
59		dalem54.i	. . . . . . 7 ⊢ 𝐼 = ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈))
60	1	dalemrea 40291	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ 𝐴)
61	60	3ad2ant1 1149	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑅 ∈ 𝐴)
62	32, 3, 4	hlatjcl 40030	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑐 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) → (𝑐 ∨ 𝑅) ∈ (Base‘𝐾))
63	27, 29, 61, 62	syl3anc 1396	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑐 ∨ 𝑅) ∈ (Base‘𝐾))
64	1	dalemuea 40294	. . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ 𝐴)
65	64	3ad2ant1 1149	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝑈 ∈ 𝐴)
66	32, 3, 4	hlatjcl 40030	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑑 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) → (𝑑 ∨ 𝑈) ∈ (Base‘𝐾))
67	27, 36, 65, 66	syl3anc 1396	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (𝑑 ∨ 𝑈) ∈ (Base‘𝐾))
68	32, 13	latmcom 18518	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑐 ∨ 𝑅) ∈ (Base‘𝐾) ∧ (𝑑 ∨ 𝑈) ∈ (Base‘𝐾)) → ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈)) = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)))
69	25, 63, 67, 68	syl3anc 1396	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝑐 ∨ 𝑅) ∧ (𝑑 ∨ 𝑈)) = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)))
70	59, 69	eqtrid 2816	. . . . . 6 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐼 = ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅)))
71	56, 70	oveq12d 7429	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∨ 𝐼) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))))
72	71, 7	oveq12d 7429	. . . 4 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → (((𝐺 ∨ 𝐻) ∨ 𝐼) ∧ 𝑌) = (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍))
73	58, 72	eqtrid 2816	. . 3 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → 𝐵 = (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍))
74	56, 73	oveq12d 7429	. 2 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ 𝐵) = ((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∧ (((((𝑑 ∨ 𝑆) ∧ (𝑐 ∨ 𝑃)) ∨ ((𝑑 ∨ 𝑇) ∧ (𝑐 ∨ 𝑄))) ∨ ((𝑑 ∨ 𝑈) ∧ (𝑐 ∨ 𝑅))) ∧ 𝑍)))
75	22, 57, 74	3eqtr4d 2814	1 ⊢ ((𝜑 ∧ 𝑌 = 𝑍 ∧ 𝜓) → ((𝐺 ∨ 𝐻) ∧ (𝑆 ∨ 𝑇)) = ((𝐺 ∨ 𝐻) ∧ 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149   ≠ wne 2964   class class class wbr 5113  ‘cfv 6537  (class class class)co 7411  Basecbs 17268  lecple 17316  joincjn 18366  meetcmee 18367  Latclat 18486  Atomscatm 39926  HLchlt 40013  LPlanesclpl 40155

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-proset 18349  df-poset 18368  df-plt 18383  df-lub 18399  df-glb 18400  df-join 18401  df-meet 18402  df-p0 18478  df-lat 18487  df-clat 18554  df-oposet 39839  df-ol 39841  df-oml 39842  df-covers 39929  df-ats 39930  df-atl 39961  df-cvlat 39985  df-hlat 40014  df-llines 40161  df-lplanes 40162  df-lvols 40163

This theorem is referenced by:  dalem57  40392