Theorem csbmpo123 34615

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 34614	. . 3 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)})
2		sbcan 3821	. . . . 5 ⊢ ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷))
3		sbcan 3821	. . . . . . 7 ⊢ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍))
4		sbcel12 4360	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ ⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌)
5		csbconstg 3902	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑦 = 𝑦)
6	5	eleq1d 2897	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
7	4, 6	syl5bb 285	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
8		sbcel12 4360	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)
9		csbconstg 3902	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑧 = 𝑧)
10	9	eleq1d 2897	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
11	8, 10	syl5bb 285	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
12	7, 11	anbi12d 632	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
13	3, 12	syl5bb 285	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
14		sbceq2g 4368	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑑 = 𝐷 ↔ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷))
15	13, 14	anbi12d 632	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
16	2, 15	syl5bb 285	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
17	16	oprabbidv 7220	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
18	1, 17	eqtrd 2856	. 2 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
19		df-mpo 7161	. . 3 ⊢ (𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
20	19	csbeq2i 3891	. 2 ⊢ ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
21		df-mpo 7161	. 2 ⊢ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)}
22	18, 20, 21	3eqtr4g 2881	1 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷))

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114  [wsbc 3772  ⦋csb 3883  {coprab 7157   ∈ cmpo 7158

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-nul 4292  df-oprab 7160  df-mpo 7161

This theorem is referenced by:  csbfinxpg  34672