Proof of Theorem cardlim
| Step | Hyp | Ref
| Expression |
| 1 | | sseq2 1522 |
. . . . . . . . . . 11
⊢ ((card ‘A) = suc x
→ (ω ⊆ (card ‘A)
↔ ω ⊆ suc x)) |
| 2 | 1 | biimpd 135 |
. . . . . . . . . 10
⊢ ((card ‘A) = suc x
→ (ω ⊆ (card ‘A)
→ ω ⊆ suc x)) |
| 3 | | infensuc 3484 |
. . . . . . . . . . . 12
⊢ ((x
∈ On ∧ ω ⊆ x) →
x ≈ suc x) |
| 4 | 3 | exp 291 |
. . . . . . . . . . 11
⊢ (x
∈ On → (ω ⊆ x →
x ≈ suc x)) |
| 5 | | limom 2387 |
. . . . . . . . . . . 12
⊢ Lim ω |
| 6 | | limsssuc 2362 |
. . . . . . . . . . . 12
⊢ (Lim ω → (ω ⊆
x ↔ ω ⊆ suc x)) |
| 7 | 5, 6 | ax-mp 6 |
. . . . . . . . . . 11
⊢ (ω ⊆ x ↔ ω ⊆ suc x) |
| 8 | 4, 7 | syl5ibr 182 |
. . . . . . . . . 10
⊢ (x
∈ On → (ω ⊆ suc x
→ x ≈ suc x)) |
| 9 | 2, 8 | sylan9r 360 |
. . . . . . . . 9
⊢ ((x
∈ On ∧ (card ‘A) = suc
x) → (ω ⊆ (card
‘A) → x ≈ suc x)) |
| 10 | | breq2 2066 |
. . . . . . . . . 10
⊢ ((card ‘A) = suc x
→ (x ≈ (card ‘A) ↔ x
≈ suc x)) |
| 11 | 10 | adantl 305 |
. . . . . . . . 9
⊢ ((x
∈ On ∧ (card ‘A) = suc
x) → (x ≈ (card ‘A) ↔ x
≈ suc x)) |
| 12 | 9, 11 | sylibrd 179 |
. . . . . . . 8
⊢ ((x
∈ On ∧ (card ‘A) = suc
x) → (ω ⊆ (card
‘A) → x ≈ (card ‘A))) |
| 13 | 12 | exp 291 |
. . . . . . 7
⊢ (x
∈ On → ((card ‘A) = suc
x → (ω ⊆ (card
‘A) → x ≈ (card ‘A)))) |
| 14 | 13 | com3r 35 |
. . . . . 6
⊢ (ω ⊆ (card ‘A) → (x
∈ On → ((card ‘A) = suc
x → x ≈ (card ‘A)))) |
| 15 | 14 | imp 277 |
. . . . 5
⊢ ((ω ⊆ (card ‘A) ∧ x
∈ On) → ((card ‘A) = suc
x → x ≈ (card ‘A))) |
| 16 | | visset 1350 |
. . . . . . . . . 10
⊢ x
∈ V |
| 17 | 16 | sucid 2304 |
. . . . . . . . 9
⊢ x
∈ suc x |
| 18 | | eleq2 1150 |
. . . . . . . . 9
⊢ ((card ‘A) = suc x
→ (x ∈ (card ‘A) ↔ x
∈ suc x)) |
| 19 | 17, 18 | mpbiri 169 |
. . . . . . . 8
⊢ ((card ‘A) = suc x
→ x ∈ (card ‘A)) |
| 20 | | cardcard 3655 |
. . . . . . . . 9
⊢ (card ‘(card ‘A)) = (card ‘A) |
| 21 | 20 | eleq2i 1153 |
. . . . . . . 8
⊢ (x
∈ (card ‘(card ‘A)) ↔
x ∈ (card ‘A)) |
| 22 | 19, 21 | sylibr 175 |
. . . . . . 7
⊢ ((card ‘A) = suc x
→ x ∈ (card ‘(card
‘A))) |
| 23 | | cardne 3637 |
. . . . . . 7
⊢ (x
∈ (card ‘(card ‘A)) →
¬ x ≈ (card ‘A)) |
| 24 | 22, 23 | syl 12 |
. . . . . 6
⊢ ((card ‘A) = suc x
→ ¬ x ≈ (card
‘A)) |
| 25 | 24 | a1i 7 |
. . . . 5
⊢ ((ω ⊆ (card ‘A) ∧ x
∈ On) → ((card ‘A) = suc
x → ¬ x ≈ (card ‘A))) |
| 26 | 15, 25 | pm2.65d 117 |
. . . 4
⊢ ((ω ⊆ (card ‘A) ∧ x
∈ On) → ¬ (card ‘A) =
suc x) |
| 27 | 26 | nrexdv 1271 |
. . 3
⊢ (ω ⊆ (card ‘A) → ¬ ∃x ∈ On (card ‘A) = suc x) |
| 28 | | peano1 2390 |
. . . . . 6
⊢ ∅ ∈ ω |
| 29 | | ssel 1502 |
. . . . . 6
⊢ (ω ⊆ (card ‘A) → (∅ ∈ ω → ∅
∈ (card ‘A))) |
| 30 | 28, 29 | mpi 44 |
. . . . 5
⊢ (ω ⊆ (card ‘A) → ∅ ∈ (card ‘A)) |
| 31 | | n0i 1712 |
. . . . 5
⊢ (∅ ∈ (card ‘A) → ¬ (card ‘A) = ∅) |
| 32 | | cardon 3634 |
. . . . . . . . 9
⊢ (card ‘A) ∈ On |
| 33 | 32 | onord 2343 |
. . . . . . . 8
⊢ Ord (card ‘A) |
| 34 | | ordzsl 2366 |
. . . . . . . 8
⊢ (Ord (card ‘A) ↔ ((card ‘A) = ∅ ∨ ∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A))) |
| 35 | 33, 34 | mpbi 164 |
. . . . . . 7
⊢ ((card ‘A) = ∅ ∨ ∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A)) |
| 36 | | 3orass 584 |
. . . . . . 7
⊢ (((card ‘A) = ∅ ∨ ∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A)) ↔ ((card
‘A) = ∅ ∨ (∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A)))) |
| 37 | 35, 36 | mpbi 164 |
. . . . . 6
⊢ ((card ‘A) = ∅ ∨ (∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A))) |
| 38 | 37 | ori 200 |
. . . . 5
⊢ (¬ (card ‘A) = ∅ → (∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A))) |
| 39 | 30, 31, 38 | 3syl 21 |
. . . 4
⊢ (ω ⊆ (card ‘A) → (∃x ∈ On (card ‘A) = suc x ∨
Lim (card ‘A))) |
| 40 | 39 | ord 202 |
. . 3
⊢ (ω ⊆ (card ‘A) → (¬ ∃x ∈ On (card ‘A) = suc x
→ Lim (card ‘A))) |
| 41 | 27, 40 | mpd 46 |
. 2
⊢ (ω ⊆ (card ‘A) → Lim (card ‘A)) |
| 42 | | limomss 2378 |
. 2
⊢ (Lim (card ‘A) → ω ⊆ (card ‘A)) |
| 43 | 41, 42 | impbi 139 |
1
⊢ (ω ⊆ (card ‘A) ↔ Lim (card ‘A)) |