Theorem csbmpo123 38018

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 38017	. . 3 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)})
2		sbcan 3796	. . . . 5 ⊢ ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷))
3		sbcan 3796	. . . . . . 7 ⊢ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍))
4		sbcel12 4379	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ ⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌)
5		csbconstg 3875	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑦 = 𝑦)
6	5	eleq1d 2851	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
7	4, 6	bitrid 286	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
8		sbcel12 4379	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)
9		csbconstg 3875	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑧 = 𝑧)
10	9	eleq1d 2851	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
11	8, 10	bitrid 286	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
12	7, 11	anbi12d 644	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
13	3, 12	bitrid 286	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
14		sbceq2g 4387	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑑 = 𝐷 ↔ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷))
15	13, 14	anbi12d 644	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
16	2, 15	bitrid 286	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
17	16	oprabbidv 7489	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
18	1, 17	eqtrd 2801	. 2 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
19		df-mpo 7428	. . 3 ⊢ (𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
20	19	csbeq2i 3864	. 2 ⊢ ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
21		df-mpo 7428	. 2 ⊢ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)}
22	18, 20, 21	3eqtr4g 2826	1 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  [wsbc 3747  ⦋csb 3856  {coprab 7424   ∈ cmpo 7425

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-nul 4290  df-oprab 7427  df-mpo 7428

This theorem is used by:  csbfinxpg  38075