Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cdleme40v Structured version   Visualization version   GIF version

Theorem cdleme40v 41526
Description: Part of proof of Lemma E in [Crawley] p. 113. Change bound variables in ⦋𝑆 / 𝑢⦌𝑉 (but we use ⦋𝑅 / 𝑢⦌𝑉 for convenience since we have its hypotheses available). (Contributed by NM, 18-Mar-2013.)
Hypotheses
Ref Expression
cdleme40.b 𝐵 = (Base‘𝐾)
cdleme40.l ≤ = (le‘𝐾)
cdleme40.j ∨ = (join‘𝐾)
cdleme40.m ∧ = (meet‘𝐾)
cdleme40.a 𝐴 = (Atoms‘𝐾)
cdleme40.h 𝐻 = (LHyp‘𝐾)
cdleme40.u 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
cdleme40.e 𝐸 = ((𝑡 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑡) ∧ 𝑊)))
cdleme40.g 𝐺 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊)))
cdleme40.i 𝐼 = (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐺))
cdleme40.n 𝑁 = if(𝑠 ≤ (𝑃 ∨ 𝑄), 𝐼, 𝐷)
cdleme40.d 𝐷 = ((𝑠 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑠) ∧ 𝑊)))
cdleme40r.y 𝑌 = ((𝑢 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑢) ∧ 𝑊)))
cdleme40r.t 𝑇 = ((𝑣 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑣) ∧ 𝑊)))
cdleme40r.x 𝑋 = ((𝑃 ∨ 𝑄) ∧ (𝑇 ∨ ((𝑢 ∨ 𝑣) ∧ 𝑊)))
cdleme40r.o 𝑂 = (℩𝑧 ∈ 𝐵 ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋))
cdleme40r.v 𝑉 = if(𝑢 ≤ (𝑃 ∨ 𝑄), 𝑂, 𝑌)
Assertion
Ref Expression
cdleme40v (𝑅 ∈ 𝐴 → ⦋𝑅 / 𝑠⦌𝑁 = ⦋𝑅 / 𝑢⦌𝑉)
Distinct variable groups:   ∧ ,𝑠,𝑡,𝑦   𝑧,𝑈   𝑧,𝑅   𝑇,𝑠,𝑡,𝑦   𝑅,𝑠,𝑡,𝑣,𝑦   𝑄,𝑠,𝑡,𝑦   𝑧,𝐾   𝑢,𝑃,𝑧   𝑢,𝑄,𝑣,𝑧   𝑧,𝐻   𝑃,𝑠,𝑡,𝑣,𝑦   𝐸,𝑠   𝑢,𝑊,𝑧,𝑠,𝑡,𝑣,𝑦   𝐵,𝑠,𝑡,𝑦,𝑢,𝑣,𝑧   𝑦,𝑌   𝑢, ∨ ,𝑧,𝑠,𝑡,𝑣,𝑦   𝑢, ≤ ,𝑧,𝑠,𝑡,𝑣,𝑦   𝐴,𝑠,𝑡,𝑣,𝑦   𝑢, ∧ ,𝑣,𝑧   𝑡,𝑈,𝑣,𝑦   𝑡,𝐾,𝑣,𝑦   𝑡,𝐻,𝑣,𝑦   𝑢,𝐴,𝑧   𝑢,𝑇   𝑣,𝐸,𝑧   𝑢,𝑁,𝑣   𝑢,𝑅   𝑉,𝑠   𝑡,𝑋,𝑦   𝑢,𝑠,𝑧,𝑡,𝑦
Allowed substitution hints:   𝐷(𝑦, 𝑧, 𝑣, 𝑢, 𝑡, 𝑠)   𝑇(𝑧, 𝑣)   𝑈(𝑢, 𝑠)   𝐸(𝑦, 𝑢, 𝑡)   𝐺(𝑦, 𝑧, 𝑣, 𝑢, 𝑡, 𝑠)   𝐻(𝑢, 𝑠)   𝐼(𝑦, 𝑧, 𝑣, 𝑢, 𝑡, 𝑠)   𝐾(𝑢, 𝑠)   𝑁(𝑦, 𝑧, 𝑡, 𝑠)   𝑂(𝑦, 𝑧, 𝑣, 𝑢, 𝑡, 𝑠)   𝑉(𝑦, 𝑧, 𝑣, 𝑢, 𝑡)   𝑋(𝑧, 𝑣, 𝑢, 𝑠)   𝑌(𝑧, 𝑣, 𝑢, 𝑡, 𝑠)

Proof of Theorem cdleme40v
StepHypRef Expression
1 breq1 5106 . . . . 5 (𝑠 = 𝑢 → (𝑠 ≤ (𝑃 ∨ 𝑄) ↔ 𝑢 ≤ (𝑃 ∨ 𝑄)))
2 cdleme40.g . . . . . . . . . . . 12 𝐺 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊)))
3 oveq1 7427 . . . . . . . . . . . . . . 15 (𝑠 = 𝑢 → (𝑠 ∨ 𝑡) = (𝑢 ∨ 𝑡))
43oveq1d 7435 . . . . . . . . . . . . . 14 (𝑠 = 𝑢 → ((𝑠 ∨ 𝑡) ∧ 𝑊) = ((𝑢 ∨ 𝑡) ∧ 𝑊))
54oveq2d 7436 . . . . . . . . . . . . 13 (𝑠 = 𝑢 → (𝐸 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊)) = (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))
65oveq2d 7436 . . . . . . . . . . . 12 (𝑠 = 𝑢 → ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑠 ∨ 𝑡) ∧ 𝑊))) = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))
72, 6eqtrid 2808 . . . . . . . . . . 11 (𝑠 = 𝑢 → 𝐺 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))
87eqeq2d 2772 . . . . . . . . . 10 (𝑠 = 𝑢 → (𝑦 = 𝐺 ↔ 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))))
98imbi2d 343 . . . . . . . . 9 (𝑠 = 𝑢 → (((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐺) ↔ ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))))
109ralbidv 3186 . . . . . . . 8 (𝑠 = 𝑢 → (∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐺) ↔ ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))))
1110riotabidv 7379 . . . . . . 7 (𝑠 = 𝑢 → (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐺)) = (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))))
12 eqeq1 2765 . . . . . . . . . . 11 (𝑦 = 𝑧 → (𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))) ↔ 𝑧 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))))
1312imbi2d 343 . . . . . . . . . 10 (𝑦 = 𝑧 → (((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))) ↔ ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))))
1413ralbidv 3186 . . . . . . . . 9 (𝑦 = 𝑧 → (∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))) ↔ ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))))
15 breq1 5106 . . . . . . . . . . . . 13 (𝑡 = 𝑣 → (𝑡 ≤ 𝑊 ↔ 𝑣 ≤ 𝑊))
1615notbid 321 . . . . . . . . . . . 12 (𝑡 = 𝑣 → (¬ 𝑡 ≤ 𝑊 ↔ ¬ 𝑣 ≤ 𝑊))
17 breq1 5106 . . . . . . . . . . . . 13 (𝑡 = 𝑣 → (𝑡 ≤ (𝑃 ∨ 𝑄) ↔ 𝑣 ≤ (𝑃 ∨ 𝑄)))
1817notbid 321 . . . . . . . . . . . 12 (𝑡 = 𝑣 → (¬ 𝑡 ≤ (𝑃 ∨ 𝑄) ↔ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)))
1916, 18anbi12d 644 . . . . . . . . . . 11 (𝑡 = 𝑣 → ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) ↔ (¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄))))
20 oveq1 7427 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑣 → (𝑡 ∨ 𝑈) = (𝑣 ∨ 𝑈))
21 oveq2 7428 . . . . . . . . . . . . . . . . . . 19 (𝑡 = 𝑣 → (𝑃 ∨ 𝑡) = (𝑃 ∨ 𝑣))
2221oveq1d 7435 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑣 → ((𝑃 ∨ 𝑡) ∧ 𝑊) = ((𝑃 ∨ 𝑣) ∧ 𝑊))
2322oveq2d 7436 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑣 → (𝑄 ∨ ((𝑃 ∨ 𝑡) ∧ 𝑊)) = (𝑄 ∨ ((𝑃 ∨ 𝑣) ∧ 𝑊)))
2420, 23oveq12d 7438 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑣 → ((𝑡 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑡) ∧ 𝑊))) = ((𝑣 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑣) ∧ 𝑊))))
25 cdleme40.e . . . . . . . . . . . . . . . 16 𝐸 = ((𝑡 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑡) ∧ 𝑊)))
26 cdleme40r.t . . . . . . . . . . . . . . . 16 𝑇 = ((𝑣 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑣) ∧ 𝑊)))
2724, 25, 263eqtr4g 2821 . . . . . . . . . . . . . . 15 (𝑡 = 𝑣 → 𝐸 = 𝑇)
28 oveq2 7428 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑣 → (𝑢 ∨ 𝑡) = (𝑢 ∨ 𝑣))
2928oveq1d 7435 . . . . . . . . . . . . . . 15 (𝑡 = 𝑣 → ((𝑢 ∨ 𝑡) ∧ 𝑊) = ((𝑢 ∨ 𝑣) ∧ 𝑊))
3027, 29oveq12d 7438 . . . . . . . . . . . . . 14 (𝑡 = 𝑣 → (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)) = (𝑇 ∨ ((𝑢 ∨ 𝑣) ∧ 𝑊)))
3130oveq2d 7436 . . . . . . . . . . . . 13 (𝑡 = 𝑣 → ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))) = ((𝑃 ∨ 𝑄) ∧ (𝑇 ∨ ((𝑢 ∨ 𝑣) ∧ 𝑊))))
32 cdleme40r.x . . . . . . . . . . . . 13 𝑋 = ((𝑃 ∨ 𝑄) ∧ (𝑇 ∨ ((𝑢 ∨ 𝑣) ∧ 𝑊)))
3331, 32eqtr4di 2814 . . . . . . . . . . . 12 (𝑡 = 𝑣 → ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))) = 𝑋)
3433eqeq2d 2772 . . . . . . . . . . 11 (𝑡 = 𝑣 → (𝑧 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))) ↔ 𝑧 = 𝑋))
3519, 34imbi12d 347 . . . . . . . . . 10 (𝑡 = 𝑣 → (((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))) ↔ ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋)))
3635cbvralvw 3241 . . . . . . . . 9 (∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))) ↔ ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋))
3714, 36bitrdi 290 . . . . . . . 8 (𝑦 = 𝑧 → (∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊)))) ↔ ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋)))
3837cbvriotavw 7387 . . . . . . 7 (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = ((𝑃 ∨ 𝑄) ∧ (𝐸 ∨ ((𝑢 ∨ 𝑡) ∧ 𝑊))))) = (℩𝑧 ∈ 𝐵 ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋))
3911, 38eqtrdi 2812 . . . . . 6 (𝑠 = 𝑢 → (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐺)) = (℩𝑧 ∈ 𝐵 ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋)))
40 cdleme40.i . . . . . 6 𝐼 = (℩𝑦 ∈ 𝐵 ∀𝑡 ∈ 𝐴 ((¬ 𝑡 ≤ 𝑊 ∧ ¬ 𝑡 ≤ (𝑃 ∨ 𝑄)) → 𝑦 = 𝐺))
41 cdleme40r.o . . . . . 6 𝑂 = (℩𝑧 ∈ 𝐵 ∀𝑣 ∈ 𝐴 ((¬ 𝑣 ≤ 𝑊 ∧ ¬ 𝑣 ≤ (𝑃 ∨ 𝑄)) → 𝑧 = 𝑋))
4239, 40, 413eqtr4g 2821 . . . . 5 (𝑠 = 𝑢 → 𝐼 = 𝑂)
43 oveq1 7427 . . . . . . 7 (𝑠 = 𝑢 → (𝑠 ∨ 𝑈) = (𝑢 ∨ 𝑈))
44 oveq2 7428 . . . . . . . . 9 (𝑠 = 𝑢 → (𝑃 ∨ 𝑠) = (𝑃 ∨ 𝑢))
4544oveq1d 7435 . . . . . . . 8 (𝑠 = 𝑢 → ((𝑃 ∨ 𝑠) ∧ 𝑊) = ((𝑃 ∨ 𝑢) ∧ 𝑊))
4645oveq2d 7436 . . . . . . 7 (𝑠 = 𝑢 → (𝑄 ∨ ((𝑃 ∨ 𝑠) ∧ 𝑊)) = (𝑄 ∨ ((𝑃 ∨ 𝑢) ∧ 𝑊)))
4743, 46oveq12d 7438 . . . . . 6 (𝑠 = 𝑢 → ((𝑠 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑠) ∧ 𝑊))) = ((𝑢 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑢) ∧ 𝑊))))
48 cdleme40.d . . . . . 6 𝐷 = ((𝑠 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑠) ∧ 𝑊)))
49 cdleme40r.y . . . . . 6 𝑌 = ((𝑢 ∨ 𝑈) ∧ (𝑄 ∨ ((𝑃 ∨ 𝑢) ∧ 𝑊)))
5047, 48, 493eqtr4g 2821 . . . . 5 (𝑠 = 𝑢 → 𝐷 = 𝑌)
511, 42, 50ifbieq12d 4511 . . . 4 (𝑠 = 𝑢 → if(𝑠 ≤ (𝑃 ∨ 𝑄), 𝐼, 𝐷) = if(𝑢 ≤ (𝑃 ∨ 𝑄), 𝑂, 𝑌))
52 cdleme40.n . . . 4 𝑁 = if(𝑠 ≤ (𝑃 ∨ 𝑄), 𝐼, 𝐷)
53 cdleme40r.v . . . 4 𝑉 = if(𝑢 ≤ (𝑃 ∨ 𝑄), 𝑂, 𝑌)
5451, 52, 533eqtr4g 2821 . . 3 (𝑠 = 𝑢 → 𝑁 = 𝑉)
5554cbvcsbv 3859 . 2 ⦋𝑅 / 𝑠⦌𝑁 = ⦋𝑅 / 𝑢⦌𝑉
5655a1i 11 1 (𝑅 ∈ 𝐴 → ⦋𝑅 / 𝑠⦌𝑁 = ⦋𝑅 / 𝑢⦌𝑉)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2145  ∀wral 3077  ⦋csb 3847  ifcif 4482   class class class wbr 5103  ‘cfv 6538  ℩crio 7376  (class class class)co 7420  Basecbs 17387  lecple 17435  joincjn 18485  meetcmee 18486  Atomscatm 40320  LHypclh 41041
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-ext 2733
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2100  df-clab 2740  df-cleq 2753  df-clel 2836  df-ral 3078  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-iota 6494  df-fv 6546  df-riota 7377  df-ov 7423
This theorem is used by:  cdleme40w  41527
  Copyright terms: Public domain W3C validator