Theorem csbmpo123 37958

Description: Move class substitution in and out of maps-to notation for operations. (Contributed by ML, 25-Oct-2020.)

Assertion

Ref	Expression
csbmpo123	⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷))

Distinct variable groups:   𝑦,𝐴   𝑧,𝐴   𝑦,𝑉   𝑧,𝑉   𝑥,𝑦   𝑥,𝑧

Allowed substitution hints:   𝐴(𝑥)   𝐷(𝑥,𝑦,𝑧)   𝑉(𝑥)   𝑌(𝑥,𝑦,𝑧)   𝑍(𝑥,𝑦,𝑧)

Proof of Theorem csbmpo123

Dummy variable 𝑑 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		csboprabg 37957	. . 3 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)})
2		sbcan 3794	. . . . 5 ⊢ ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷))
3		sbcan 3794	. . . . . . 7 ⊢ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍))
4		sbcel12 4377	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ ⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌)
5		csbconstg 3873	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑦 = 𝑦)
6	5	eleq1d 2848	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
7	4, 6	bitrid 286	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
8		sbcel12 4377	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)
9		csbconstg 3873	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑧 = 𝑧)
10	9	eleq1d 2848	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
11	8, 10	bitrid 286	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
12	7, 11	anbi12d 643	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
13	3, 12	bitrid 286	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
14		sbceq2g 4385	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑑 = 𝐷 ↔ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷))
15	13, 14	anbi12d 643	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
16	2, 15	bitrid 286	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
17	16	oprabbidv 7478	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
18	1, 17	eqtrd 2798	. 2 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
19		df-mpo 7417	. . 3 ⊢ (𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
20	19	csbeq2i 3862	. 2 ⊢ ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
21		df-mpo 7417	. 2 ⊢ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)}
22	18, 20, 21	3eqtr4g 2823	1 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷))

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143  [wsbc 3745  ⦋csb 3854  {coprab 7413   ∈ cmpo 7414

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-nul 4288  df-oprab 7416  df-mpo 7417

This theorem is referenced by:  csbfinxpg  38015