Theorem csbmpo123 37349

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 37348	. . 3 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)})
2		sbcan 3815	. . . . 5 ⊢ ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷))
3		sbcan 3815	. . . . . . 7 ⊢ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍))
4		sbcel12 4386	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ ⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌)
5		csbconstg 3893	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑦 = 𝑦)
6	5	eleq1d 2819	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
7	4, 6	bitrid 283	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
8		sbcel12 4386	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)
9		csbconstg 3893	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑧 = 𝑧)
10	9	eleq1d 2819	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
11	8, 10	bitrid 283	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
12	7, 11	anbi12d 632	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
13	3, 12	bitrid 283	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
14		sbceq2g 4394	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑑 = 𝐷 ↔ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷))
15	13, 14	anbi12d 632	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
16	2, 15	bitrid 283	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
17	16	oprabbidv 7473	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
18	1, 17	eqtrd 2770	. 2 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
19		df-mpo 7410	. . 3 ⊢ (𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
20	19	csbeq2i 3882	. 2 ⊢ ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
21		df-mpo 7410	. 2 ⊢ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)}
22	18, 20, 21	3eqtr4g 2795	1 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2108  [wsbc 3765  ⦋csb 3874  {coprab 7406   ∈ cmpo 7407

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-nul 4309  df-oprab 7409  df-mpo 7410

This theorem is referenced by:  csbfinxpg  37406