| Step | Hyp | Ref
| Expression |
| 1 | | iuneq1 4971 |
. . . . 5
⊢ (𝑧 = 𝑢 → ∪
𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤) = ∪ 𝑤 ∈ 𝑢 ({𝑤} × 𝒫 𝑤)) |
| 2 | 1 | fveq2d 6909 |
. . . 4
⊢ (𝑧 = 𝑢 → (card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)) = (card‘∪ 𝑤 ∈ 𝑢 ({𝑤} × 𝒫 𝑤))) |
| 3 | 2 | cbvmptv 5212 |
. . 3
⊢ (𝑧 ∈ (𝒫 ω ∩
Fin) ↦ (card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤))) = (𝑢 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑢 ({𝑤} × 𝒫 𝑤))) |
| 4 | | sneq 4594 |
. . . . . . 7
⊢ (𝑤 = 𝑣 → {𝑤} = {𝑣}) |
| 5 | | pweq 4574 |
. . . . . . 7
⊢ (𝑤 = 𝑣 → 𝒫 𝑤 = 𝒫 𝑣) |
| 6 | 4, 5 | xpeq12d 5686 |
. . . . . 6
⊢ (𝑤 = 𝑣 → ({𝑤} × 𝒫 𝑤) = ({𝑣} × 𝒫 𝑣)) |
| 7 | 6 | cbviunv 5000 |
. . . . 5
⊢ ∪ 𝑤 ∈ 𝑢 ({𝑤} × 𝒫 𝑤) = ∪ 𝑣 ∈ 𝑢 ({𝑣} × 𝒫 𝑣) |
| 8 | 7 | fveq2i 6908 |
. . . 4
⊢
(card‘∪ 𝑤 ∈ 𝑢 ({𝑤} × 𝒫 𝑤)) = (card‘∪ 𝑣 ∈ 𝑢 ({𝑣} × 𝒫 𝑣)) |
| 9 | 8 | mpteq2i 5204 |
. . 3
⊢ (𝑢 ∈ (𝒫 ω ∩
Fin) ↦ (card‘∪ 𝑤 ∈ 𝑢 ({𝑤} × 𝒫 𝑤))) = (𝑢 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑣 ∈ 𝑢 ({𝑣} × 𝒫 𝑣))) |
| 10 | 3, 9 | eqtri 2786 |
. 2
⊢ (𝑧 ∈ (𝒫 ω ∩
Fin) ↦ (card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤))) = (𝑢 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑣 ∈ 𝑢 ({𝑣} × 𝒫 𝑣))) |
| 11 | | dmeq 5891 |
. . . . . 6
⊢ (𝑥 = 𝑢 → dom 𝑥 = dom 𝑢) |
| 12 | 11 | pweqd 4577 |
. . . . 5
⊢ (𝑥 = 𝑢 → 𝒫 dom 𝑥 = 𝒫 dom 𝑢) |
| 13 | | imaeq1 6058 |
. . . . . 6
⊢ (𝑥 = 𝑢 → (𝑥 “ 𝑦) = (𝑢 “ 𝑦)) |
| 14 | 13 | fveq2d 6909 |
. . . . 5
⊢ (𝑥 = 𝑢 → ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑥 “ 𝑦)) = ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑦))) |
| 15 | 12, 14 | mpteq12dv 5195 |
. . . 4
⊢ (𝑥 = 𝑢 → (𝑦 ∈ 𝒫 dom 𝑥 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑥 “ 𝑦))) = (𝑦 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑦)))) |
| 16 | 15 | cbvmptv 5212 |
. . 3
⊢ (𝑥 ∈ V ↦ (𝑦 ∈ 𝒫 dom 𝑥 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑥 “ 𝑦)))) = (𝑢 ∈ V ↦ (𝑦 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑦)))) |
| 17 | | imaeq2 6059 |
. . . . . 6
⊢ (𝑦 = 𝑣 → (𝑢 “ 𝑦) = (𝑢 “ 𝑣)) |
| 18 | 17 | fveq2d 6909 |
. . . . 5
⊢ (𝑦 = 𝑣 → ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑦)) = ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑣))) |
| 19 | 18 | cbvmptv 5212 |
. . . 4
⊢ (𝑦 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑦))) = (𝑣 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑣))) |
| 20 | 19 | mpteq2i 5204 |
. . 3
⊢ (𝑢 ∈ V ↦ (𝑦 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑦)))) = (𝑢 ∈ V ↦ (𝑣 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑣)))) |
| 21 | 16, 20 | eqtri 2786 |
. 2
⊢ (𝑥 ∈ V ↦ (𝑦 ∈ 𝒫 dom 𝑥 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑥 “ 𝑦)))) = (𝑢 ∈ V ↦ (𝑣 ∈ 𝒫 dom 𝑢 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑢 “ 𝑣)))) |
| 22 | | df-ackbij 46217 |
. 2
⊢ ackBij =
∪ (rec((𝑥 ∈ V ↦ (𝑦 ∈ 𝒫 dom 𝑥 ↦ ((𝑧 ∈ (𝒫 ω ∩ Fin) ↦
(card‘∪ 𝑤 ∈ 𝑧 ({𝑤} × 𝒫 𝑤)))‘(𝑥 “ 𝑦)))), ∅) “
ω) |
| 23 | 10, 21, 22 | ackbij2 10344 |
1
⊢ ackBij:
HF ⟶1-1ontoω |