Theorem cdlemeg46rjgN 40887

Description: NOT NEEDED? TODO FIX COMMENT. r ∨ g(s) = r ∨ v₂ p. 115 last line. (Contributed by NM, 2-Apr-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
cdlemef46g.b	⊢ 𝐵 = (Base‘𝐾)
cdlemef46g.l	⊢ ≤ = (le‘𝐾)
cdlemef46g.j	⊢ ∨ = (join‘𝐾)
cdlemef46g.m	⊢ ∧ = (meet‘𝐾)
cdlemef46g.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemef46g.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemef46g.u	⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
cdlemef46g.d	⊢ 𝐷 = ((𝑡 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑡) ∧ 𝑊)))
cdlemefs46g.e	⊢ 𝐸 = ((𝑃 ∨ 𝑄) ∧ (𝐷 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊)))
cdlemef46g.f	⊢ 𝐹 = (𝑥 ∈ 𝐵 ↦ if((𝑃 ≠ 𝑄 ∧ ¬ 𝑥 ≤ 𝑊), (℩𝑧 ∈ 𝐵 ∀𝑠 ∈ 𝐴 ((¬ 𝑠 ≤ 𝑊 ∧ (𝑠 ∨ (𝑥 ∧ 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 ≤ (𝑃 ∨ 𝑄), (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐸)), ⦋𝑠 / 𝑡⦌𝐷) ∨ (𝑥 ∧ 𝑊)))), 𝑥))
cdlemef46.v	⊢ 𝑉 = ((𝑄 ∨ 𝑃) ∧ 𝑊)
cdlemef46.n	⊢ 𝑁 = ((𝑣 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑣) ∧ 𝑊)))
cdlemefs46.o	⊢ 𝑂 = ((𝑄 ∨ 𝑃) ∧ (𝑁 ∨ ((𝑢 ∨ 𝑣) ∧ 𝑊)))
cdlemef46.g	⊢ 𝐺 = (𝑎 ∈ 𝐵 ↦ if((𝑄 ≠ 𝑃 ∧ ¬ 𝑎 ≤ 𝑊), (℩𝑐 ∈ 𝐵 ∀𝑢 ∈ 𝐴 ((¬ 𝑢 ≤ 𝑊 ∧ (𝑢 ∨ (𝑎 ∧ 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 ≤ (𝑄 ∨ 𝑃), (℩𝑏 ∈ 𝐵 ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑄 ∨ 𝑃)) → 𝑏 = 𝑂)), ⦋𝑢 / 𝑣⦌𝑁) ∨ (𝑎 ∧ 𝑊)))), 𝑎))
cdlemeg46.y	⊢ 𝑌 = ((𝑅 ∨ (𝐺‘𝑆)) ∧ 𝑊)

Assertion

Ref	Expression
cdlemeg46rjgN	⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ (𝐺‘𝑆)) = (𝑅 ∨ 𝑌))

Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠,𝑥,𝑦,𝑧   𝑥,𝐸,𝑦,𝑧   𝐻,𝑠,𝑡,𝑥,𝑦,𝑧   ∨ ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑥,𝑦,𝑧   ≤ ,𝑠,𝑡,𝑥,𝑦,𝑧   ∧ ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑃,𝑠,𝑡,𝑥,𝑦,𝑧   𝑄,𝑠,𝑡,𝑥,𝑦,𝑧   𝑅,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝑆,𝑠,𝑡,𝑥,𝑦,𝑧   𝑎,𝑏,𝑐,𝑢,𝑣,𝐴   𝐵,𝑎,𝑏,𝑐,𝑢,𝑣   𝑣,𝐷   𝐺,𝑠,𝑡,𝑥,𝑦,𝑧   𝐻,𝑎,𝑏,𝑐,𝑢,𝑣   ∨ ,𝑎,𝑏,𝑐,𝑢,𝑣   𝐾,𝑎,𝑏,𝑐,𝑢,𝑣   ≤ ,𝑎,𝑏,𝑐,𝑢,𝑣   ∧ ,𝑎,𝑏,𝑐,𝑢,𝑣   𝑁,𝑎,𝑏,𝑐   𝑂,𝑎,𝑏,𝑐   𝑃,𝑎,𝑏,𝑐,𝑢,𝑣   𝑄,𝑎,𝑏,𝑐,𝑢,𝑣   𝑅,𝑎,𝑏,𝑐,𝑢,𝑣   𝑆,𝑎,𝑏,𝑐,𝑢,𝑣   𝑉,𝑎,𝑏,𝑐   𝑊,𝑎,𝑏,𝑐,𝑢,𝑣   𝑥,𝑢,𝑦,𝑧,𝑁   𝑥,𝑂,𝑦,𝑧   𝑣,𝑡   𝑢,𝑉   𝑥,𝑣,𝑦,𝑧,𝑉   𝐷,𝑎,𝑏,𝑐   𝐸,𝑎,𝑏,𝑐   𝐹,𝑎,𝑏,𝑐,𝑢,𝑣   𝑡,𝑁   𝑈,𝑎,𝑏,𝑐,𝑣   𝑡,𝑉   𝑠,𝑎,𝑡,𝑏,𝑐

Allowed substitution hints:   𝐷(𝑢,𝑡)   𝑈(𝑢)   𝐸(𝑣,𝑢,𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐺(𝑣,𝑢,𝑎,𝑏,𝑐)   𝑁(𝑣,𝑠)   𝑂(𝑣,𝑢,𝑡,𝑠)   𝑉(𝑠)   𝑌(𝑥,𝑦,𝑧,𝑣,𝑢,𝑡,𝑠,𝑎,𝑏,𝑐)

Proof of Theorem cdlemeg46rjgN

Step	Hyp	Ref	Expression
1		cdlemef46g.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
2		cdlemef46g.l	. . . 4 ⊢ ≤ = (le‘𝐾)
3		cdlemef46g.j	. . . 4 ⊢ ∨ = (join‘𝐾)
4		cdlemef46g.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
5		cdlemef46g.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
6		cdlemef46g.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
7		cdlemef46g.u	. . . 4 ⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
8		cdlemef46.v	. . . 4 ⊢ 𝑉 = ((𝑄 ∨ 𝑃) ∧ 𝑊)
9		eqid 2737	. . . 4 ⊢ ((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) = ((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊)))
10		eqid 2737	. . . 4 ⊢ ((𝑃 ∨ 𝑄) ∧ (((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) = ((𝑃 ∨ 𝑄) ∧ (((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊)))
11		eqid 2737	. . . 4 ⊢ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))) = ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))
12		eqid 2737	. . . 4 ⊢ ((𝑄 ∨ 𝑃) ∧ (((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))) ∨ ((((𝑃 ∨ 𝑄) ∧ (((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∨ 𝑆) ∧ 𝑊))) = ((𝑄 ∨ 𝑃) ∧ (((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))) ∨ ((((𝑃 ∨ 𝑄) ∧ (((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∨ 𝑆) ∧ 𝑊)))
13		eqid 2737	. . . 4 ⊢ ((((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))) ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊))) = ((((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))) ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊)))
14		eqid 2737	. . . 4 ⊢ ((((𝑃 ∨ 𝑄) ∧ (((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∨ 𝑆) ∧ 𝑊) = ((((𝑃 ∨ 𝑄) ∧ (((𝑆 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑆) ∧ 𝑊))) ∨ ((𝑅 ∨ 𝑆) ∧ 𝑊))) ∨ 𝑆) ∧ 𝑊)
15		eqid 2737	. . . 4 ⊢ ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊) = ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊)
16	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15	cdleme43cN 40856	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄)) → (𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) = (𝑅 ∨ ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊)))
17	16	3adant3l 1182	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) = (𝑅 ∨ ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊)))
18		simp1 1137	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)))
19		simp21 1208	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → 𝑃 ≠ 𝑄)
20		simp23 1210	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊))
21		simp3r 1204	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))
22		cdlemef46.n	. . . . . 6 ⊢ 𝑁 = ((𝑣 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑣) ∧ 𝑊)))
23		cdlemefs46.o	. . . . . 6 ⊢ 𝑂 = ((𝑄 ∨ 𝑃) ∧ (𝑁 ∨ ((𝑢 ∨ 𝑣) ∧ 𝑊)))
24		cdlemef46.g	. . . . . 6 ⊢ 𝐺 = (𝑎 ∈ 𝐵 ↦ if((𝑄 ≠ 𝑃 ∧ ¬ 𝑎 ≤ 𝑊), (℩𝑐 ∈ 𝐵 ∀𝑢 ∈ 𝐴 ((¬ 𝑢 ≤ 𝑊 ∧ (𝑢 ∨ (𝑎 ∧ 𝑊)) = 𝑎) → 𝑐 = (if(𝑢 ≤ (𝑄 ∨ 𝑃), (℩𝑏 ∈ 𝐵 ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑄 ∨ 𝑃)) → 𝑏 = 𝑂)), ⦋𝑢 / 𝑣⦌𝑁) ∨ (𝑎 ∧ 𝑊)))), 𝑎))
25	1, 2, 3, 4, 5, 6, 8, 22, 23, 24	cdlemeg47b 40873	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄)) → (𝐺‘𝑆) = ⦋𝑆 / 𝑣⦌𝑁)
26	18, 19, 20, 21, 25	syl121anc 1378	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝐺‘𝑆) = ⦋𝑆 / 𝑣⦌𝑁)
27		simp23l 1296	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → 𝑆 ∈ 𝐴)
28	22, 11	cdleme31sc 40749	. . . . 5 ⊢ (𝑆 ∈ 𝐴 → ⦋𝑆 / 𝑣⦌𝑁 = ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))))
29	27, 28	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → ⦋𝑆 / 𝑣⦌𝑁 = ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))))
30	26, 29	eqtrd 2772	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝐺‘𝑆) = ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊))))
31	30	oveq2d 7384	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ (𝐺‘𝑆)) = (𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))))
32		cdlemeg46.y	. . . 4 ⊢ 𝑌 = ((𝑅 ∨ (𝐺‘𝑆)) ∧ 𝑊)
33	31	oveq1d 7383	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → ((𝑅 ∨ (𝐺‘𝑆)) ∧ 𝑊) = ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊))
34	32, 33	eqtrid 2784	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → 𝑌 = ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊))
35	34	oveq2d 7384	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ 𝑌) = (𝑅 ∨ ((𝑅 ∨ ((𝑆 ∨ 𝑉) ∧ (𝑃 ∨ ((𝑄 ∨ 𝑆) ∧ 𝑊)))) ∧ 𝑊)))
36	17, 31, 35	3eqtr4d 2782	1 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑃 ≠ 𝑄 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊) ∧ (𝑆 ∈ 𝐴 ∧ ¬ 𝑆 ≤ 𝑊)) ∧ (𝑅 ≤ (𝑃 ∨ 𝑄) ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))) → (𝑅 ∨ (𝐺‘𝑆)) = (𝑅 ∨ 𝑌))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2933  ∀wral 3052  ⦋csb 3851  ifcif 4481   class class class wbr 5100   ↦ cmpt 5181  ‘cfv 6500  ℩crio 7324  (class class class)co 7368  Basecbs 17148  lecple 17196  joincjn 18246  meetcmee 18247  Atomscatm 39628  HLchlt 39715  LHypclh 40349

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 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690

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 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-1st 7943  df-2nd 7944  df-proset 18229  df-poset 18248  df-plt 18263  df-lub 18279  df-glb 18280  df-join 18281  df-meet 18282  df-p0 18358  df-p1 18359  df-lat 18367  df-clat 18434  df-oposet 39541  df-ol 39543  df-oml 39544  df-covers 39631  df-ats 39632  df-atl 39663  df-cvlat 39687  df-hlat 39716  df-lines 39866  df-psubsp 39868  df-pmap 39869  df-padd 40161  df-lhyp 40353

This theorem is referenced by: (None)