Theorem csbfinxpg 33225

Description: Distribute proper substitution through Cartesian exponentiation. (Contributed by ML, 25-Oct-2020.)

Assertion

Ref	Expression
csbfinxpg	⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑈↑↑𝑁) = (⦋𝐴 / 𝑥⦌𝑈↑↑⦋𝐴 / 𝑥⦌𝑁))

Distinct variable group:   𝑥,𝑁

Allowed substitution hints:   𝐴(𝑥)   𝑈(𝑥)   𝑉(𝑥)

Proof of Theorem csbfinxpg

Dummy variables 𝑛 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-finxp 33221	. . 3 ⊢ (𝑈↑↑𝑁) = {𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))}
2	1	csbeq2i 3993	. 2 ⊢ ⦋𝐴 / 𝑥⦌(𝑈↑↑𝑁) = ⦋𝐴 / 𝑥⦌{𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))}
3		sbcan 3478	. . . . 5 ⊢ ([𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)) ↔ ([𝐴 / 𝑥]𝑁 ∈ ω ∧ [𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)))
4		sbcel1g 3987	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑁 ∈ ω ↔ ⦋𝐴 / 𝑥⦌𝑁 ∈ ω))
5		sbceq2g 3990	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) ↔ ∅ = ⦋𝐴 / 𝑥⦌(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)))
6		csbfv12 6231	. . . . . . . . 9 ⊢ ⦋𝐴 / 𝑥⦌(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) = (⦋𝐴 / 𝑥⦌rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁)
7		csbrdgg 33175	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩) = rec(⦋𝐴 / 𝑥⦌(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⦋𝐴 / 𝑥⦌⟨𝑁, 𝑦⟩))
8		csbmpt22g 33177	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛 ∈ ⦋𝐴 / 𝑥⦌ω, 𝑧 ∈ ⦋𝐴 / 𝑥⦌V ↦ ⦋𝐴 / 𝑥⦌if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))))
9		csbconstg 3546	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌ω = ω)
10		csbconstg 3546	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌V = V)
11		csbif 4138	. . . . . . . . . . . . . . 15 ⊢ ⦋𝐴 / 𝑥⦌if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩)) = if([𝐴 / 𝑥](𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ⦋𝐴 / 𝑥⦌∅, ⦋𝐴 / 𝑥⦌if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))
12		sbcan 3478	. . . . . . . . . . . . . . . . 17 ⊢ ([𝐴 / 𝑥](𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈) ↔ ([𝐴 / 𝑥]𝑛 = 1𝑜 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑈))
13		sbcg 3503	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑛 = 1𝑜 ↔ 𝑛 = 1𝑜))
14		sbcel12 3983	. . . . . . . . . . . . . . . . . . 19 ⊢ ([𝐴 / 𝑥]𝑧 ∈ 𝑈 ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈)
15		csbconstg 3546	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑧 = 𝑧)
16	15	eleq1d 2686	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈))
17	14, 16	syl5bb 272	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ 𝑈 ↔ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈))
18	13, 17	anbi12d 747	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑛 = 1𝑜 ∧ [𝐴 / 𝑥]𝑧 ∈ 𝑈) ↔ (𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈)))
19	12, 18	syl5bb 272	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈) ↔ (𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈)))
20		csbconstg 3546	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌∅ = ∅)
21		csbif 4138	. . . . . . . . . . . . . . . . 17 ⊢ ⦋𝐴 / 𝑥⦌if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩) = if([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈), ⦋𝐴 / 𝑥⦌⟨∪ 𝑛, (1st ‘𝑧)⟩, ⦋𝐴 / 𝑥⦌⟨𝑛, 𝑧⟩)
22		sbcel12 3983	. . . . . . . . . . . . . . . . . . 19 ⊢ ([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈) ↔ ⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌(V × 𝑈))
23		csbxp 5200	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ⦋𝐴 / 𝑥⦌(V × 𝑈) = (⦋𝐴 / 𝑥⦌V × ⦋𝐴 / 𝑥⦌𝑈)
24	10	xpeq1d 5138	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌V × ⦋𝐴 / 𝑥⦌𝑈) = (V × ⦋𝐴 / 𝑥⦌𝑈))
25	23, 24	syl5eq 2668	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(V × 𝑈) = (V × ⦋𝐴 / 𝑥⦌𝑈))
26	15, 25	eleq12d 2695	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌𝑧 ∈ ⦋𝐴 / 𝑥⦌(V × 𝑈) ↔ 𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈)))
27	22, 26	syl5bb 272	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈) ↔ 𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈)))
28		csbconstg 3546	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌⟨∪ 𝑛, (1st ‘𝑧)⟩ = ⟨∪ 𝑛, (1st ‘𝑧)⟩)
29		csbconstg 3546	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌⟨𝑛, 𝑧⟩ = ⟨𝑛, 𝑧⟩)
30	27, 28, 29	ifbieq12d 4113	. . . . . . . . . . . . . . . . 17 ⊢ (𝐴 ∈ 𝑉 → if([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈), ⦋𝐴 / 𝑥⦌⟨∪ 𝑛, (1st ‘𝑧)⟩, ⦋𝐴 / 𝑥⦌⟨𝑛, 𝑧⟩) = if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))
31	21, 30	syl5eq 2668	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩) = if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))
32	19, 20, 31	ifbieq12d 4113	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ 𝑉 → if([𝐴 / 𝑥](𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ⦋𝐴 / 𝑥⦌∅, ⦋𝐴 / 𝑥⦌if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩)) = if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩)))
33	11, 32	syl5eq 2668	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩)) = if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩)))
34	9, 10, 33	mpt2eq123dv 6717	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ 𝑉 → (𝑛 ∈ ⦋𝐴 / 𝑥⦌ω, 𝑧 ∈ ⦋𝐴 / 𝑥⦌V ↦ ⦋𝐴 / 𝑥⦌if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))))
35	8, 34	eqtrd 2656	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))))
36		csbopg 4420	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌⟨𝑁, 𝑦⟩ = ⟨⦋𝐴 / 𝑥⦌𝑁, ⦋𝐴 / 𝑥⦌𝑦⟩)
37		csbconstg 3546	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌𝑦 = 𝑦)
38	37	opeq2d 4409	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ 𝑉 → ⟨⦋𝐴 / 𝑥⦌𝑁, ⦋𝐴 / 𝑥⦌𝑦⟩ = ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)
39	36, 38	eqtrd 2656	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌⟨𝑁, 𝑦⟩ = ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)
40		rdgeq12 7509	. . . . . . . . . . . 12 ⊢ ((⦋𝐴 / 𝑥⦌(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))) ∧ ⦋𝐴 / 𝑥⦌⟨𝑁, 𝑦⟩ = ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩) → rec(⦋𝐴 / 𝑥⦌(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⦋𝐴 / 𝑥⦌⟨𝑁, 𝑦⟩) = rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩))
41	35, 39, 40	syl2anc 693	. . . . . . . . . . 11 ⊢ (𝐴 ∈ 𝑉 → rec(⦋𝐴 / 𝑥⦌(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⦋𝐴 / 𝑥⦌⟨𝑁, 𝑦⟩) = rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩))
42	7, 41	eqtrd 2656	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩) = rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩))
43	42	fveq1d 6193	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑉 → (⦋𝐴 / 𝑥⦌rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁) = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁))
44	6, 43	syl5eq 2668	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁))
45	44	eqeq2d 2632	. . . . . . 7 ⊢ (𝐴 ∈ 𝑉 → (∅ = ⦋𝐴 / 𝑥⦌(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) ↔ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁)))
46	5, 45	bitrd 268	. . . . . 6 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) ↔ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁)))
47	4, 46	anbi12d 747	. . . . 5 ⊢ (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑁 ∈ ω ∧ [𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)) ↔ (⦋𝐴 / 𝑥⦌𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁))))
48	3, 47	syl5bb 272	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)) ↔ (⦋𝐴 / 𝑥⦌𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁))))
49	48	abbidv 2741	. . 3 ⊢ (𝐴 ∈ 𝑉 → {𝑦 ∣ [𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))} = {𝑦 ∣ (⦋𝐴 / 𝑥⦌𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁))})
50		csbab 4008	. . 3 ⊢ ⦋𝐴 / 𝑥⦌{𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))} = {𝑦 ∣ [𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))}
51		df-finxp 33221	. . 3 ⊢ (⦋𝐴 / 𝑥⦌𝑈↑↑⦋𝐴 / 𝑥⦌𝑁) = {𝑦 ∣ (⦋𝐴 / 𝑥⦌𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ ⦋𝐴 / 𝑥⦌𝑈), ∅, if(𝑧 ∈ (V × ⦋𝐴 / 𝑥⦌𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨⦋𝐴 / 𝑥⦌𝑁, 𝑦⟩)‘⦋𝐴 / 𝑥⦌𝑁))}
52	49, 50, 51	3eqtr4g 2681	. 2 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌{𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜 ∧ 𝑧 ∈ 𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨∪ 𝑛, (1st ‘𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))} = (⦋𝐴 / 𝑥⦌𝑈↑↑⦋𝐴 / 𝑥⦌𝑁))
53	2, 52	syl5eq 2668	1 ⊢ (𝐴 ∈ 𝑉 → ⦋𝐴 / 𝑥⦌(𝑈↑↑𝑁) = (⦋𝐴 / 𝑥⦌𝑈↑↑⦋𝐴 / 𝑥⦌𝑁))

Syntax hints:   → wi 4   ∧ wa 384   = wceq 1483   ∈ wcel 1990  {cab 2608  Vcvv 3200  [wsbc 3435  ⦋csb 3533  ∅c0 3915  ifcif 4086  ⟨cop 4183  ∪ cuni 4436   × cxp 5112  ‘cfv 5888   ↦ cmpt2 6652  ωcom 7065  1^st c1st 7166  reccrdg 7505  1_𝑜c1o 7553  ↑↑cfinxp 33220

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-opab 4713  df-mpt 4730  df-xp 5120  df-cnv 5122  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-iota 5851  df-fv 5896  df-oprab 6654  df-mpt2 6655  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-finxp 33221

This theorem is referenced by: (None)