Proof of Theorem alephadd
| Step | Hyp | Ref
| Expression |
| 1 | | 0ex 2726 |
. . . . . . . 8
⊢ ∅ ∈
V |
| 2 | 1, 1 | cdavali 4940 |
. . . . . . 7
⊢ (∅ +c ∅) = ((∅
× {∅}) ∪ (∅ × {1o})) |
| 3 | | xpundi 3241 |
. . . . . . 7
⊢ (∅ × ({∅}
∪ {1o})) = ((∅ ×
{∅}) ∪ (∅ × {1o})) |
| 4 | | xp0r 3255 |
. . . . . . 7
⊢ (∅ × ({∅}
∪ {1o})) = ∅ |
| 5 | 2, 3, 4 | 3eqtr2i 1508 |
. . . . . 6
⊢ (∅ +c ∅) = ∅ |
| 6 | | ndmfv 3761 |
. . . . . . 7
⊢ (¬ A ∈ dom ℵ → (ℵ
‘A) = ∅) |
| 7 | | ndmfv 3761 |
. . . . . . 7
⊢ (¬ B ∈ dom ℵ → (ℵ
‘B) = ∅) |
| 8 | 6, 7 | opreqan12d 3995 |
. . . . . 6
⊢ ((¬ A ∈ dom ℵ ⋀ ¬
B ∈ dom
ℵ) → ((ℵ ‘A)
+c (ℵ ‘B)) = (∅
+c ∅)) |
| 9 | 6 | adantr 391 |
. . . . . . . 8
⊢ ((¬ A ∈ dom ℵ ⋀ ¬
B ∈ dom
ℵ) → (ℵ ‘A) =
∅) |
| 10 | 7 | adantl 390 |
. . . . . . . 8
⊢ ((¬ A ∈ dom ℵ ⋀ ¬
B ∈ dom
ℵ) → (ℵ ‘B) =
∅) |
| 11 | 9, 10 | uneq12d 2196 |
. . . . . . 7
⊢ ((¬ A ∈ dom ℵ ⋀ ¬
B ∈ dom
ℵ) → ((ℵ ‘A)
∪ (ℵ ‘B)) = (∅ ∪
∅)) |
| 12 | | un0 2309 |
. . . . . . 7
⊢ (∅ ∪ ∅) =
∅ |
| 13 | 11, 12 | syl6eq 1530 |
. . . . . 6
⊢ ((¬ A ∈ dom ℵ ⋀ ¬
B ∈ dom
ℵ) → ((ℵ ‘A)
∪ (ℵ ‘B)) = ∅) |
| 14 | 5, 8, 13 | 3eqtr4a 1539 |
. . . . 5
⊢ ((¬ A ∈ dom ℵ ⋀ ¬
B ∈ dom
ℵ) → ((ℵ ‘A)
+c (ℵ ‘B)) = ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 15 | | alephfnon 4882 |
. . . . . . . 8
⊢ ℵ Fn On |
| 16 | | fndm 3603 |
. . . . . . . 8
⊢ (ℵ Fn On → dom ℵ = On) |
| 17 | 15, 16 | ax-mp 7 |
. . . . . . 7
⊢ dom ℵ = On |
| 18 | 17 | eleq2i 1545 |
. . . . . 6
⊢ (A ∈ dom ℵ ↔ A
∈ On) |
| 19 | 18 | notbii 187 |
. . . . 5
⊢ (¬ A ∈ dom ℵ ↔ ¬ A ∈ On) |
| 20 | 17 | eleq2i 1545 |
. . . . . 6
⊢ (B ∈ dom ℵ ↔ B
∈ On) |
| 21 | 20 | notbii 187 |
. . . . 5
⊢ (¬ B ∈ dom ℵ ↔ ¬ B ∈ On) |
| 22 | 14, 19, 21 | syl2anbr 459 |
. . . 4
⊢ ((¬ A ∈ On ⋀ ¬ B
∈ On) → ((ℵ ‘A)
+c (ℵ ‘B)) = ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 23 | | oprex 3999 |
. . . . 5
⊢ ((ℵ ‘A)
+c (ℵ ‘B)) ∈
V |
| 24 | | eqeng 4410 |
. . . . 5
⊢ (((ℵ ‘A)
+c (ℵ ‘B)) ∈ V
→ (((ℵ ‘A) +c (ℵ ‘B)) =
((ℵ ‘A) ∪ (ℵ
‘B)) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B)))) |
| 25 | 23, 24 | ax-mp 7 |
. . . 4
⊢ (((ℵ ‘A)
+c (ℵ ‘B)) = ((ℵ
‘A) ∪ (ℵ ‘B))
→ ((ℵ ‘A) +c (ℵ ‘B))
≈ ((ℵ ‘A) ∪ (ℵ
‘B))) |
| 26 | 22, 25 | syl 10 |
. . 3
⊢ ((¬ A ∈ On ⋀ ¬ B
∈ On) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 27 | 26 | ex 373 |
. 2
⊢ (¬ A ∈ On →
(¬ B ∈ On → ((ℵ
‘A) +c (ℵ ‘B))
≈ ((ℵ ‘A) ∪ (ℵ
‘B)))) |
| 28 | | alephgeom 4902 |
. . 3
⊢ (A ∈ On ↔
ω ⊆ (ℵ ‘A)) |
| 29 | | fvex 3748 |
. . . . 5
⊢ (ℵ ‘A)
∈ V |
| 30 | | ssdom2g 4427 |
. . . . 5
⊢ ((ℵ ‘A)
∈ V → (ω ⊆ (ℵ
‘A) → ω ≼ (ℵ
‘A))) |
| 31 | 29, 30 | ax-mp 7 |
. . . 4
⊢ (ω ⊆ (ℵ
‘A) → ω ≼ (ℵ
‘A)) |
| 32 | | fvex 3748 |
. . . . 5
⊢ (ℵ ‘B)
∈ V |
| 33 | 29, 32 | infcda 7600 |
. . . 4
⊢ (ω ≼ (ℵ
‘A) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 34 | 31, 33 | syl 10 |
. . 3
⊢ (ω ⊆ (ℵ
‘A) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 35 | 28, 34 | sylbi 199 |
. 2
⊢ (A ∈ On →
((ℵ ‘A) +c (ℵ ‘B))
≈ ((ℵ ‘A) ∪ (ℵ
‘B))) |
| 36 | | alephgeom 4902 |
. . 3
⊢ (B ∈ On ↔
ω ⊆ (ℵ ‘B)) |
| 37 | | ssdom2g 4427 |
. . . . 5
⊢ ((ℵ ‘B)
∈ V → (ω ⊆ (ℵ
‘B) → ω ≼ (ℵ
‘B))) |
| 38 | 32, 37 | ax-mp 7 |
. . . 4
⊢ (ω ⊆ (ℵ
‘B) → ω ≼ (ℵ
‘B)) |
| 39 | 32, 29 | infcda 7600 |
. . . . . 6
⊢ (ω ≼ (ℵ
‘B) → ((ℵ ‘B)
+c (ℵ ‘A)) ≈ ((ℵ
‘B) ∪ (ℵ ‘A))) |
| 40 | 29, 32 | cdacomen 4949 |
. . . . . . 7
⊢ ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘B) +c (ℵ ‘A)) |
| 41 | | entr 4432 |
. . . . . . 7
⊢ ((((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘B) +c (ℵ ‘A))
⋀ ((ℵ
‘B) +c (ℵ ‘A))
≈ ((ℵ ‘B) ∪ (ℵ
‘A))) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘B) ∪ (ℵ ‘A))) |
| 42 | 40, 41 | mpan 699 |
. . . . . 6
⊢ (((ℵ ‘B)
+c (ℵ ‘A)) ≈ ((ℵ
‘B) ∪ (ℵ ‘A))
→ ((ℵ ‘A) +c (ℵ ‘B))
≈ ((ℵ ‘B) ∪ (ℵ
‘A))) |
| 43 | 39, 42 | syl 10 |
. . . . 5
⊢ (ω ≼ (ℵ
‘B) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘B) ∪ (ℵ ‘A))) |
| 44 | | uncom 2187 |
. . . . 5
⊢ ((ℵ ‘B)
∪ (ℵ ‘A)) = ((ℵ
‘A) ∪ (ℵ ‘B)) |
| 45 | 43, 44 | syl6breq 2669 |
. . . 4
⊢ (ω ≼ (ℵ
‘B) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 46 | 38, 45 | syl 10 |
. . 3
⊢ (ω ⊆ (ℵ
‘B) → ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B))) |
| 47 | 36, 46 | sylbi 199 |
. 2
⊢ (B ∈ On →
((ℵ ‘A) +c (ℵ ‘B))
≈ ((ℵ ‘A) ∪ (ℵ
‘B))) |
| 48 | 27, 35, 47 | pm2.61ii 130 |
1
⊢ ((ℵ ‘A)
+c (ℵ ‘B)) ≈ ((ℵ
‘A) ∪ (ℵ ‘B)) |