Proof of Theorem alephcard
| Step | Hyp | Ref
| Expression |
| 1 | | fveq2 2832 |
. . . . 5
⊢ (x =
∅ → (ℵ ‘x) =
(ℵ ‘∅)) |
| 2 | 1 | fveq2d 2836 |
. . . 4
⊢ (x =
∅ → (card ‘(ℵ ‘x)) = (card ‘(ℵ
‘∅))) |
| 3 | 2, 1 | cleq12d 1115 |
. . 3
⊢ (x =
∅ → ((card ‘(ℵ ‘x)) = (ℵ ‘x) ↔ (card ‘(ℵ ‘∅)) =
(ℵ ‘∅))) |
| 4 | | fveq2 2832 |
. . . . 5
⊢ (x =
y → (ℵ ‘x) = (ℵ ‘y)) |
| 5 | 4 | fveq2d 2836 |
. . . 4
⊢ (x =
y → (card ‘(ℵ
‘x)) = (card ‘(ℵ
‘y))) |
| 6 | 5, 4 | cleq12d 1115 |
. . 3
⊢ (x =
y → ((card ‘(ℵ
‘x)) = (ℵ ‘x) ↔ (card ‘(ℵ ‘y)) = (ℵ ‘y))) |
| 7 | | fveq2 2832 |
. . . . 5
⊢ (x =
suc y → (ℵ ‘x) = (ℵ ‘suc y)) |
| 8 | 7 | fveq2d 2836 |
. . . 4
⊢ (x =
suc y → (card ‘(ℵ
‘x)) = (card ‘(ℵ
‘suc y))) |
| 9 | 8, 7 | cleq12d 1115 |
. . 3
⊢ (x =
suc y → ((card ‘(ℵ
‘x)) = (ℵ ‘x) ↔ (card ‘(ℵ ‘suc y)) = (ℵ ‘suc y))) |
| 10 | | fveq2 2832 |
. . . . 5
⊢ (x =
A → (ℵ ‘x) = (ℵ ‘A)) |
| 11 | 10 | fveq2d 2836 |
. . . 4
⊢ (x =
A → (card ‘(ℵ
‘x)) = (card ‘(ℵ
‘A))) |
| 12 | 11, 10 | cleq12d 1115 |
. . 3
⊢ (x =
A → ((card ‘(ℵ
‘x)) = (ℵ ‘x) ↔ (card ‘(ℵ ‘A)) = (ℵ ‘A))) |
| 13 | | cardom 3632 |
. . . 4
⊢ (card ‘ω) = ω |
| 14 | | aleph0 3669 |
. . . . 5
⊢ (ℵ ‘∅) =
ω |
| 15 | 14 | fveq2i 2835 |
. . . 4
⊢ (card ‘(ℵ ‘∅)) =
(card ‘ω) |
| 16 | 13, 15, 14 | 3eqtr4 1126 |
. . 3
⊢ (card ‘(ℵ ‘∅)) =
(ℵ ‘∅) |
| 17 | | fvex 2838 |
. . . . . . 7
⊢ (ℵ ‘y) ∈ V |
| 18 | | cardmin 3666 |
. . . . . . 7
⊢ ((ℵ ‘y) ∈ V → (card ‘∩{x ∈
On∣(ℵ ‘y) ≺
x}) = ∩{x ∈ On∣(ℵ ‘y) ≺ x}) |
| 19 | 17, 18 | ax-mp 6 |
. . . . . 6
⊢ (card ‘∩{x ∈
On∣(ℵ ‘y) ≺
x}) = ∩{x ∈ On∣(ℵ ‘y) ≺ x} |
| 20 | 19 | a1i 7 |
. . . . 5
⊢ (y
∈ On → (card ‘∩{x ∈ On∣(ℵ ‘y) ≺ x}) =
∩{x ∈
On∣(ℵ ‘y) ≺
x}) |
| 21 | | alephsuc 3672 |
. . . . . 6
⊢ (y
∈ On → (ℵ ‘suc y) =
∩{x ∈
On∣(ℵ ‘y) ≺
x}) |
| 22 | 21 | fveq2d 2836 |
. . . . 5
⊢ (y
∈ On → (card ‘(ℵ ‘suc y)) = (card ‘∩{x ∈
On∣(ℵ ‘y) ≺
x})) |
| 23 | 20, 22, 21 | 3eqtr4d 1134 |
. . . 4
⊢ (y
∈ On → (card ‘(ℵ ‘suc y)) = (ℵ ‘suc y)) |
| 24 | 23 | a1d 14 |
. . 3
⊢ (y
∈ On → ((card ‘(ℵ ‘y)) = (ℵ ‘y) → (card ‘(ℵ ‘suc y)) = (ℵ ‘suc y))) |
| 25 | | visset 1350 |
. . . . . . 7
⊢ x
∈ V |
| 26 | | cardiun 3665 |
. . . . . . 7
⊢ (x
∈ V → (∀y ∈
x (card ‘(ℵ ‘y)) = (ℵ ‘y) → (card ‘∪y ∈ x (ℵ ‘y)) = ∪y ∈ x
(ℵ ‘y))) |
| 27 | 25, 26 | ax-mp 6 |
. . . . . 6
⊢ (∀y ∈ x (card
‘(ℵ ‘y)) = (ℵ
‘y) → (card ‘∪y ∈ x (ℵ ‘y)) = ∪y ∈ x
(ℵ ‘y)) |
| 28 | 27 | adantl 305 |
. . . . 5
⊢ ((Lim x ∧ ∀y ∈ x (card
‘(ℵ ‘y)) = (ℵ
‘y)) → (card ‘∪y ∈ x (ℵ ‘y)) = ∪y ∈ x
(ℵ ‘y)) |
| 29 | | alephlim 3670 |
. . . . . . . 8
⊢ ((x
∈ V ∧ Lim x) →
(ℵ ‘x) = ∪y ∈ x (ℵ ‘y)) |
| 30 | 25, 29 | mpan 518 |
. . . . . . 7
⊢ (Lim x
→ (ℵ ‘x) = ∪y ∈ x (ℵ ‘y)) |
| 31 | 30 | adantr 306 |
. . . . . 6
⊢ ((Lim x ∧ ∀y ∈ x (card
‘(ℵ ‘y)) = (ℵ
‘y)) → (ℵ ‘x) = ∪y ∈ x
(ℵ ‘y)) |
| 32 | 31 | fveq2d 2836 |
. . . . 5
⊢ ((Lim x ∧ ∀y ∈ x (card
‘(ℵ ‘y)) = (ℵ
‘y)) → (card ‘(ℵ
‘x)) = (card ‘∪y ∈ x (ℵ ‘y))) |
| 33 | 28, 32, 31 | 3eqtr4d 1134 |
. . . 4
⊢ ((Lim x ∧ ∀y ∈ x (card
‘(ℵ ‘y)) = (ℵ
‘y)) → (card ‘(ℵ
‘x)) = (ℵ ‘x)) |
| 34 | 33 | exp 291 |
. . 3
⊢ (Lim x
→ (∀y ∈ x (card ‘(ℵ ‘y)) = (ℵ ‘y) → (card ‘(ℵ ‘x)) = (ℵ ‘x))) |
| 35 | 3, 6, 9, 12, 16, 24, 34 | tfinds 2401 |
. 2
⊢ (A
∈ On → (card ‘(ℵ ‘A)) = (ℵ ‘A)) |
| 36 | | card0 3630 |
. . 3
⊢ (card ‘∅) = ∅ |
| 37 | | alephfnon 3668 |
. . . . . . . . 9
⊢ ℵ Fn On |
| 38 | | fndm 2723 |
. . . . . . . . 9
⊢ (ℵ Fn On → dom ℵ =
On) |
| 39 | 37, 38 | ax-mp 6 |
. . . . . . . 8
⊢ dom ℵ = On |
| 40 | 39 | eleq2i 1153 |
. . . . . . 7
⊢ (A
∈ dom ℵ ↔ A ∈
On) |
| 41 | 40 | negbii 162 |
. . . . . 6
⊢ (¬ A ∈ dom ℵ ↔ ¬ A ∈ On) |
| 42 | | ndmfv 2848 |
. . . . . 6
⊢ (¬ A ∈ dom ℵ → (ℵ ‘A) = ∅) |
| 43 | 41, 42 | sylbir 176 |
. . . . 5
⊢ (¬ A ∈ On → (ℵ ‘A) = ∅) |
| 44 | 43 | fveq2d 2836 |
. . . 4
⊢ (¬ A ∈ On → (card ‘(ℵ
‘A)) = (card
‘∅)) |
| 45 | 44, 43 | cleq12d 1115 |
. . 3
⊢ (¬ A ∈ On → ((card ‘(ℵ
‘A)) = (ℵ ‘A) ↔ (card ‘∅) =
∅)) |
| 46 | 36, 45 | mpbiri 169 |
. 2
⊢ (¬ A ∈ On → (card ‘(ℵ
‘A)) = (ℵ ‘A)) |
| 47 | 35, 46 | pm2.61i 110 |
1
⊢ (card ‘(ℵ ‘A)) = (ℵ ‘A) |