Theorem csbmpo123 38459

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 38458	. . 3 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)})
2		sbcan 3791	. . . . 5 ⊢ ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷))
3		sbcan 3791	. . . . . . 7 ⊢ ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍))
4		sbcel12 4372	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ ⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌)
5		csbconstg 3870	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑦 = 𝑦)
6	5	eleq1d 2849	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
7	4, 6	bitrid 286	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝑌 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌))
8		sbcel12 4372	. . . . . . . . 9 ⊢ ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)
9		csbconstg 3870	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑧 = 𝑧)
10	9	eleq1d 2849	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
11	8, 10	bitrid 286	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ 𝑍 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍))
12	7, 11	anbi12d 644	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑦 ∈ 𝑌 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
13	3, 12	bitrid 286	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍)))
14		sbceq2g 4380	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑑 = 𝐷 ↔ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷))
15	13, 14	anbi12d 644	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥](𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ [𝐴 / 𝑥]𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
16	2, 15	bitrid 286	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷) ↔ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)))
17	16	oprabbidv 7512	. . 3 ⊢ (𝐴 ∈ 𝑉 → {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ [𝐴 / 𝑥]((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
18	1, 17	eqtrd 2798	. 2 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)} = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)})
19		df-mpo 7451	. . 3 ⊢ (𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
20	19	csbeq2i 3859	. 2 ⊢ ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = ⦋𝐴 / 𝑥⦌{⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ 𝑌 ∧ 𝑧 ∈ 𝑍) ∧ 𝑑 = 𝐷)}
21		df-mpo 7451	. 2 ⊢ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷) = {⟨⟨𝑦, 𝑧⟩, 𝑑⟩ ∣ ((𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍) ∧ 𝑑 = ⦋𝐴 / 𝑥⦌𝐷)}
22	18, 20, 21	3eqtr4g 2823	1 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑦 ∈ 𝑌, 𝑧 ∈ 𝑍 ↦ 𝐷) = (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝑌, 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑍 ↦ ⦋𝐴 / 𝑥⦌𝐷))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  [wsbc 3742  ⦋csb 3851  {coprab 7447   ∈ cmpo 7448

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735

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 2102  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-v 3456  df-sbc 3743  df-csb 3852  df-dif 4050  df-nul 4282  df-oprab 7450  df-mpo 7451

This theorem is used by:  csbfinxpg  38516