MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  cardlim Structured version   Visualization version   GIF version

Theorem cardlim 8654
Description: An infinite cardinal is a limit ordinal. Equivalent to Exercise 4 of [TakeutiZaring] p. 91. (Contributed by Mario Carneiro, 13-Jan-2013.)
Assertion
Ref Expression
cardlim (ω ⊆ (card‘𝐴) ↔ Lim (card‘𝐴))

Proof of Theorem cardlim
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 sseq2 3585 . . . . . . . . . . 11 ((card‘𝐴) = suc 𝑥 → (ω ⊆ (card‘𝐴) ↔ ω ⊆ suc 𝑥))
21biimpd 217 . . . . . . . . . 10 ((card‘𝐴) = suc 𝑥 → (ω ⊆ (card‘𝐴) → ω ⊆ suc 𝑥))
3 limom 6945 . . . . . . . . . . . 12 Lim ω
4 limsssuc 6915 . . . . . . . . . . . 12 (Lim ω → (ω ⊆ 𝑥 ↔ ω ⊆ suc 𝑥))
53, 4ax-mp 5 . . . . . . . . . . 11 (ω ⊆ 𝑥 ↔ ω ⊆ suc 𝑥)
6 infensuc 7996 . . . . . . . . . . . 12 ((𝑥 ∈ On ∧ ω ⊆ 𝑥) → 𝑥 ≈ suc 𝑥)
76ex 448 . . . . . . . . . . 11 (𝑥 ∈ On → (ω ⊆ 𝑥𝑥 ≈ suc 𝑥))
85, 7syl5bir 231 . . . . . . . . . 10 (𝑥 ∈ On → (ω ⊆ suc 𝑥𝑥 ≈ suc 𝑥))
92, 8sylan9r 687 . . . . . . . . 9 ((𝑥 ∈ On ∧ (card‘𝐴) = suc 𝑥) → (ω ⊆ (card‘𝐴) → 𝑥 ≈ suc 𝑥))
10 breq2 4577 . . . . . . . . . 10 ((card‘𝐴) = suc 𝑥 → (𝑥 ≈ (card‘𝐴) ↔ 𝑥 ≈ suc 𝑥))
1110adantl 480 . . . . . . . . 9 ((𝑥 ∈ On ∧ (card‘𝐴) = suc 𝑥) → (𝑥 ≈ (card‘𝐴) ↔ 𝑥 ≈ suc 𝑥))
129, 11sylibrd 247 . . . . . . . 8 ((𝑥 ∈ On ∧ (card‘𝐴) = suc 𝑥) → (ω ⊆ (card‘𝐴) → 𝑥 ≈ (card‘𝐴)))
1312ex 448 . . . . . . 7 (𝑥 ∈ On → ((card‘𝐴) = suc 𝑥 → (ω ⊆ (card‘𝐴) → 𝑥 ≈ (card‘𝐴))))
1413com3r 84 . . . . . 6 (ω ⊆ (card‘𝐴) → (𝑥 ∈ On → ((card‘𝐴) = suc 𝑥𝑥 ≈ (card‘𝐴))))
1514imp 443 . . . . 5 ((ω ⊆ (card‘𝐴) ∧ 𝑥 ∈ On) → ((card‘𝐴) = suc 𝑥𝑥 ≈ (card‘𝐴)))
16 vex 3171 . . . . . . . . . 10 𝑥 ∈ V
1716sucid 5703 . . . . . . . . 9 𝑥 ∈ suc 𝑥
18 eleq2 2672 . . . . . . . . 9 ((card‘𝐴) = suc 𝑥 → (𝑥 ∈ (card‘𝐴) ↔ 𝑥 ∈ suc 𝑥))
1917, 18mpbiri 246 . . . . . . . 8 ((card‘𝐴) = suc 𝑥𝑥 ∈ (card‘𝐴))
20 cardidm 8641 . . . . . . . 8 (card‘(card‘𝐴)) = (card‘𝐴)
2119, 20syl6eleqr 2694 . . . . . . 7 ((card‘𝐴) = suc 𝑥𝑥 ∈ (card‘(card‘𝐴)))
22 cardne 8647 . . . . . . 7 (𝑥 ∈ (card‘(card‘𝐴)) → ¬ 𝑥 ≈ (card‘𝐴))
2321, 22syl 17 . . . . . 6 ((card‘𝐴) = suc 𝑥 → ¬ 𝑥 ≈ (card‘𝐴))
2423a1i 11 . . . . 5 ((ω ⊆ (card‘𝐴) ∧ 𝑥 ∈ On) → ((card‘𝐴) = suc 𝑥 → ¬ 𝑥 ≈ (card‘𝐴)))
2515, 24pm2.65d 185 . . . 4 ((ω ⊆ (card‘𝐴) ∧ 𝑥 ∈ On) → ¬ (card‘𝐴) = suc 𝑥)
2625nrexdv 2979 . . 3 (ω ⊆ (card‘𝐴) → ¬ ∃𝑥 ∈ On (card‘𝐴) = suc 𝑥)
27 peano1 6950 . . . . . 6 ∅ ∈ ω
28 ssel 3557 . . . . . 6 (ω ⊆ (card‘𝐴) → (∅ ∈ ω → ∅ ∈ (card‘𝐴)))
2927, 28mpi 20 . . . . 5 (ω ⊆ (card‘𝐴) → ∅ ∈ (card‘𝐴))
30 n0i 3874 . . . . 5 (∅ ∈ (card‘𝐴) → ¬ (card‘𝐴) = ∅)
31 cardon 8626 . . . . . . . . 9 (card‘𝐴) ∈ On
3231onordi 5731 . . . . . . . 8 Ord (card‘𝐴)
33 ordzsl 6910 . . . . . . . 8 (Ord (card‘𝐴) ↔ ((card‘𝐴) = ∅ ∨ ∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴)))
3432, 33mpbi 218 . . . . . . 7 ((card‘𝐴) = ∅ ∨ ∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴))
35 3orass 1033 . . . . . . 7 (((card‘𝐴) = ∅ ∨ ∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴)) ↔ ((card‘𝐴) = ∅ ∨ (∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴))))
3634, 35mpbi 218 . . . . . 6 ((card‘𝐴) = ∅ ∨ (∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴)))
3736ori 388 . . . . 5 (¬ (card‘𝐴) = ∅ → (∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴)))
3829, 30, 373syl 18 . . . 4 (ω ⊆ (card‘𝐴) → (∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 ∨ Lim (card‘𝐴)))
3938ord 390 . . 3 (ω ⊆ (card‘𝐴) → (¬ ∃𝑥 ∈ On (card‘𝐴) = suc 𝑥 → Lim (card‘𝐴)))
4026, 39mpd 15 . 2 (ω ⊆ (card‘𝐴) → Lim (card‘𝐴))
41 limomss 6935 . 2 (Lim (card‘𝐴) → ω ⊆ (card‘𝐴))
4240, 41impbii 197 1 (ω ⊆ (card‘𝐴) ↔ Lim (card‘𝐴))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 194  wo 381  wa 382  w3o 1029   = wceq 1474  wcel 1975  wrex 2892  wss 3535  c0 3869   class class class wbr 4573  Ord word 5621  Oncon0 5622  Lim wlim 5623  suc csuc 5624  cfv 5786  ωcom 6930  cen 7811  cardccrd 8617
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-ral 2896  df-rex 2897  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-pss 3551  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-tp 4125  df-op 4127  df-uni 4363  df-int 4401  df-br 4574  df-opab 4634  df-mpt 4635  df-tr 4671  df-eprel 4935  df-id 4939  df-po 4945  df-so 4946  df-fr 4983  df-we 4985  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-ord 5625  df-on 5626  df-lim 5627  df-suc 5628  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-om 6931  df-1o 7420  df-er 7602  df-en 7815  df-dom 7816  df-card 8621
This theorem is referenced by:  infxpenlem  8692  alephislim  8762  cflim2  8941  winalim  9369  gruina  9492
  Copyright terms: Public domain W3C validator