Users' Mathboxes Mathbox for ML < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  csbfinxpg Structured version   Visualization version   GIF version

Theorem csbfinxpg 33536
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.
StepHypRef Expression
1 df-finxp 33532 . . 3 (𝑈↑↑𝑁) = {𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))}
21csbeq2i 4190 . 2 𝐴 / 𝑥(𝑈↑↑𝑁) = 𝐴 / 𝑥{𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))}
3 sbcan 3676 . . . . 5 ([𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)) ↔ ([𝐴 / 𝑥]𝑁 ∈ ω ∧ [𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)))
4 sbcel1g 4184 . . . . . 6 (𝐴𝑉 → ([𝐴 / 𝑥]𝑁 ∈ ω ↔ 𝐴 / 𝑥𝑁 ∈ ω))
5 sbceq2g 4187 . . . . . . 7 (𝐴𝑉 → ([𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) ↔ ∅ = 𝐴 / 𝑥(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)))
6 csbfv12 6447 . . . . . . . . 9 𝐴 / 𝑥(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) = (𝐴 / 𝑥rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁)
7 csbrdgg 33487 . . . . . . . . . . 11 (𝐴𝑉𝐴 / 𝑥rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩) = rec(𝐴 / 𝑥(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), 𝐴 / 𝑥𝑁, 𝑦⟩))
8 csbmpt22g 33489 . . . . . . . . . . . . 13 (𝐴𝑉𝐴 / 𝑥(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛𝐴 / 𝑥ω, 𝑧𝐴 / 𝑥V ↦ 𝐴 / 𝑥if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))))
9 csbconstg 3741 . . . . . . . . . . . . . 14 (𝐴𝑉𝐴 / 𝑥ω = ω)
10 csbconstg 3741 . . . . . . . . . . . . . 14 (𝐴𝑉𝐴 / 𝑥V = V)
11 csbif 4334 . . . . . . . . . . . . . . 15 𝐴 / 𝑥if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩)) = if([𝐴 / 𝑥](𝑛 = 1𝑜𝑧𝑈), 𝐴 / 𝑥∅, 𝐴 / 𝑥if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))
12 sbcan 3676 . . . . . . . . . . . . . . . . 17 ([𝐴 / 𝑥](𝑛 = 1𝑜𝑧𝑈) ↔ ([𝐴 / 𝑥]𝑛 = 1𝑜[𝐴 / 𝑥]𝑧𝑈))
13 sbcg 3699 . . . . . . . . . . . . . . . . . 18 (𝐴𝑉 → ([𝐴 / 𝑥]𝑛 = 1𝑜𝑛 = 1𝑜))
14 sbcel12 4180 . . . . . . . . . . . . . . . . . . 19 ([𝐴 / 𝑥]𝑧𝑈𝐴 / 𝑥𝑧𝐴 / 𝑥𝑈)
15 csbconstg 3741 . . . . . . . . . . . . . . . . . . . 20 (𝐴𝑉𝐴 / 𝑥𝑧 = 𝑧)
1615eleq1d 2870 . . . . . . . . . . . . . . . . . . 19 (𝐴𝑉 → (𝐴 / 𝑥𝑧𝐴 / 𝑥𝑈𝑧𝐴 / 𝑥𝑈))
1714, 16syl5bb 274 . . . . . . . . . . . . . . . . . 18 (𝐴𝑉 → ([𝐴 / 𝑥]𝑧𝑈𝑧𝐴 / 𝑥𝑈))
1813, 17anbi12d 618 . . . . . . . . . . . . . . . . 17 (𝐴𝑉 → (([𝐴 / 𝑥]𝑛 = 1𝑜[𝐴 / 𝑥]𝑧𝑈) ↔ (𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈)))
1912, 18syl5bb 274 . . . . . . . . . . . . . . . 16 (𝐴𝑉 → ([𝐴 / 𝑥](𝑛 = 1𝑜𝑧𝑈) ↔ (𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈)))
20 csbconstg 3741 . . . . . . . . . . . . . . . 16 (𝐴𝑉𝐴 / 𝑥∅ = ∅)
21 csbif 4334 . . . . . . . . . . . . . . . . 17 𝐴 / 𝑥if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩) = if([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈), 𝐴 / 𝑥 𝑛, (1st𝑧)⟩, 𝐴 / 𝑥𝑛, 𝑧⟩)
22 sbcel12 4180 . . . . . . . . . . . . . . . . . . 19 ([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈) ↔ 𝐴 / 𝑥𝑧𝐴 / 𝑥(V × 𝑈))
23 csbxp 5402 . . . . . . . . . . . . . . . . . . . . 21 𝐴 / 𝑥(V × 𝑈) = (𝐴 / 𝑥V × 𝐴 / 𝑥𝑈)
2410xpeq1d 5339 . . . . . . . . . . . . . . . . . . . . 21 (𝐴𝑉 → (𝐴 / 𝑥V × 𝐴 / 𝑥𝑈) = (V × 𝐴 / 𝑥𝑈))
2523, 24syl5eq 2852 . . . . . . . . . . . . . . . . . . . 20 (𝐴𝑉𝐴 / 𝑥(V × 𝑈) = (V × 𝐴 / 𝑥𝑈))
2615, 25eleq12d 2879 . . . . . . . . . . . . . . . . . . 19 (𝐴𝑉 → (𝐴 / 𝑥𝑧𝐴 / 𝑥(V × 𝑈) ↔ 𝑧 ∈ (V × 𝐴 / 𝑥𝑈)))
2722, 26syl5bb 274 . . . . . . . . . . . . . . . . . 18 (𝐴𝑉 → ([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈) ↔ 𝑧 ∈ (V × 𝐴 / 𝑥𝑈)))
28 csbconstg 3741 . . . . . . . . . . . . . . . . . 18 (𝐴𝑉𝐴 / 𝑥 𝑛, (1st𝑧)⟩ = ⟨ 𝑛, (1st𝑧)⟩)
29 csbconstg 3741 . . . . . . . . . . . . . . . . . 18 (𝐴𝑉𝐴 / 𝑥𝑛, 𝑧⟩ = ⟨𝑛, 𝑧⟩)
3027, 28, 29ifbieq12d 4306 . . . . . . . . . . . . . . . . 17 (𝐴𝑉 → if([𝐴 / 𝑥]𝑧 ∈ (V × 𝑈), 𝐴 / 𝑥 𝑛, (1st𝑧)⟩, 𝐴 / 𝑥𝑛, 𝑧⟩) = if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))
3121, 30syl5eq 2852 . . . . . . . . . . . . . . . 16 (𝐴𝑉𝐴 / 𝑥if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩) = if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))
3219, 20, 31ifbieq12d 4306 . . . . . . . . . . . . . . 15 (𝐴𝑉 → if([𝐴 / 𝑥](𝑛 = 1𝑜𝑧𝑈), 𝐴 / 𝑥∅, 𝐴 / 𝑥if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩)) = if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩)))
3311, 32syl5eq 2852 . . . . . . . . . . . . . 14 (𝐴𝑉𝐴 / 𝑥if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩)) = if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩)))
349, 10, 33mpt2eq123dv 6943 . . . . . . . . . . . . 13 (𝐴𝑉 → (𝑛𝐴 / 𝑥ω, 𝑧𝐴 / 𝑥V ↦ 𝐴 / 𝑥if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))))
358, 34eqtrd 2840 . . . . . . . . . . . 12 (𝐴𝑉𝐴 / 𝑥(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))) = (𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))))
36 csbopg 4613 . . . . . . . . . . . . 13 (𝐴𝑉𝐴 / 𝑥𝑁, 𝑦⟩ = ⟨𝐴 / 𝑥𝑁, 𝐴 / 𝑥𝑦⟩)
37 csbconstg 3741 . . . . . . . . . . . . . 14 (𝐴𝑉𝐴 / 𝑥𝑦 = 𝑦)
3837opeq2d 4602 . . . . . . . . . . . . 13 (𝐴𝑉 → ⟨𝐴 / 𝑥𝑁, 𝐴 / 𝑥𝑦⟩ = ⟨𝐴 / 𝑥𝑁, 𝑦⟩)
3936, 38eqtrd 2840 . . . . . . . . . . . 12 (𝐴𝑉𝐴 / 𝑥𝑁, 𝑦⟩ = ⟨𝐴 / 𝑥𝑁, 𝑦⟩)
40 rdgeq12 7741 . . . . . . . . . . . 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𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩))
4135, 39, 40syl2anc 575 . . . . . . . . . . 11 (𝐴𝑉 → rec(𝐴 / 𝑥(𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), 𝐴 / 𝑥𝑁, 𝑦⟩) = rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩))
427, 41eqtrd 2840 . . . . . . . . . 10 (𝐴𝑉𝐴 / 𝑥rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩) = rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩))
4342fveq1d 6406 . . . . . . . . 9 (𝐴𝑉 → (𝐴 / 𝑥rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁) = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁))
446, 43syl5eq 2852 . . . . . . . 8 (𝐴𝑉𝐴 / 𝑥(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁))
4544eqeq2d 2816 . . . . . . 7 (𝐴𝑉 → (∅ = 𝐴 / 𝑥(rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) ↔ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁)))
465, 45bitrd 270 . . . . . 6 (𝐴𝑉 → ([𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁) ↔ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁)))
474, 46anbi12d 618 . . . . 5 (𝐴𝑉 → (([𝐴 / 𝑥]𝑁 ∈ ω ∧ [𝐴 / 𝑥]∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)) ↔ (𝐴 / 𝑥𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁))))
483, 47syl5bb 274 . . . 4 (𝐴𝑉 → ([𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁)) ↔ (𝐴 / 𝑥𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁))))
4948abbidv 2925 . . 3 (𝐴𝑉 → {𝑦[𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))} = {𝑦 ∣ (𝐴 / 𝑥𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁))})
50 csbab 4206 . . 3 𝐴 / 𝑥{𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))} = {𝑦[𝐴 / 𝑥](𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))}
51 df-finxp 33532 . . 3 (𝐴 / 𝑥𝑈↑↑𝐴 / 𝑥𝑁) = {𝑦 ∣ (𝐴 / 𝑥𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝐴 / 𝑥𝑈), ∅, if(𝑧 ∈ (V × 𝐴 / 𝑥𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝐴 / 𝑥𝑁, 𝑦⟩)‘𝐴 / 𝑥𝑁))}
5249, 50, 513eqtr4g 2865 . 2 (𝐴𝑉𝐴 / 𝑥{𝑦 ∣ (𝑁 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑧 ∈ V ↦ if((𝑛 = 1𝑜𝑧𝑈), ∅, if(𝑧 ∈ (V × 𝑈), ⟨ 𝑛, (1st𝑧)⟩, ⟨𝑛, 𝑧⟩))), ⟨𝑁, 𝑦⟩)‘𝑁))} = (𝐴 / 𝑥𝑈↑↑𝐴 / 𝑥𝑁))
532, 52syl5eq 2852 1 (𝐴𝑉𝐴 / 𝑥(𝑈↑↑𝑁) = (𝐴 / 𝑥𝑈↑↑𝐴 / 𝑥𝑁))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 384   = wceq 1637  wcel 2156  {cab 2792  Vcvv 3391  [wsbc 3633  csb 3728  c0 4116  ifcif 4279  cop 4376   cuni 4630   × cxp 5309  cfv 6097  cmpt2 6872  ωcom 7291  1st c1st 7392  reccrdg 7737  1𝑜c1o 7785  ↑↑cfinxp 33531
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2068  ax-7 2104  ax-8 2158  ax-9 2165  ax-10 2185  ax-11 2201  ax-12 2214  ax-13 2420  ax-ext 2784  ax-sep 4975  ax-nul 4983  ax-pow 5035  ax-pr 5096
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3an 1102  df-tru 1641  df-fal 1651  df-ex 1860  df-nf 1864  df-sb 2061  df-eu 2634  df-mo 2635  df-clab 2793  df-cleq 2799  df-clel 2802  df-nfc 2937  df-ne 2979  df-ral 3101  df-rex 3102  df-rab 3105  df-v 3393  df-sbc 3634  df-csb 3729  df-dif 3772  df-un 3774  df-in 3776  df-ss 3783  df-nul 4117  df-if 4280  df-sn 4371  df-pr 4373  df-op 4377  df-uni 4631  df-br 4845  df-opab 4907  df-mpt 4924  df-xp 5317  df-cnv 5319  df-dm 5321  df-rn 5322  df-res 5323  df-ima 5324  df-pred 5893  df-iota 6060  df-fv 6105  df-oprab 6874  df-mpt2 6875  df-wrecs 7638  df-recs 7700  df-rdg 7738  df-finxp 33532
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator