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

Theorem cardlim 7601
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  |-  ( om  C_  ( card `  A
)  <->  Lim  ( card `  A
) )
Dummy variable  x is distinct from all other variables.

Proof of Theorem cardlim
StepHypRef Expression
1 sseq2 3202 . . . . . . . . . . 11  |-  ( (
card `  A )  =  suc  x  ->  ( om  C_  ( card `  A
)  <->  om  C_  suc  x ) )
21biimpd 200 . . . . . . . . . 10  |-  ( (
card `  A )  =  suc  x  ->  ( om  C_  ( card `  A
)  ->  om  C_  suc  x ) )
3 limom 4671 . . . . . . . . . . . 12  |-  Lim  om
4 limsssuc 4641 . . . . . . . . . . . 12  |-  ( Lim 
om  ->  ( om  C_  x  <->  om  C_  suc  x ) )
53, 4ax-mp 10 . . . . . . . . . . 11  |-  ( om  C_  x  <->  om  C_  suc  x )
6 infensuc 7035 . . . . . . . . . . . 12  |-  ( ( x  e.  On  /\  om  C_  x )  ->  x  ~~  suc  x )
76ex 425 . . . . . . . . . . 11  |-  ( x  e.  On  ->  ( om  C_  x  ->  x  ~~  suc  x ) )
85, 7syl5bir 211 . . . . . . . . . 10  |-  ( x  e.  On  ->  ( om  C_  suc  x  ->  x  ~~  suc  x ) )
92, 8sylan9r 641 . . . . . . . . 9  |-  ( ( x  e.  On  /\  ( card `  A )  =  suc  x )  -> 
( om  C_  ( card `  A )  ->  x  ~~  suc  x ) )
10 breq2 4029 . . . . . . . . . 10  |-  ( (
card `  A )  =  suc  x  ->  (
x  ~~  ( card `  A )  <->  x  ~~  suc  x ) )
1110adantl 454 . . . . . . . . 9  |-  ( ( x  e.  On  /\  ( card `  A )  =  suc  x )  -> 
( x  ~~  ( card `  A )  <->  x  ~~  suc  x ) )
129, 11sylibrd 227 . . . . . . . 8  |-  ( ( x  e.  On  /\  ( card `  A )  =  suc  x )  -> 
( om  C_  ( card `  A )  ->  x  ~~  ( card `  A
) ) )
1312ex 425 . . . . . . 7  |-  ( x  e.  On  ->  (
( card `  A )  =  suc  x  ->  ( om  C_  ( card `  A
)  ->  x  ~~  ( card `  A )
) ) )
1413com3r 75 . . . . . 6  |-  ( om  C_  ( card `  A
)  ->  ( x  e.  On  ->  ( ( card `  A )  =  suc  x  ->  x  ~~  ( card `  A
) ) ) )
1514imp 420 . . . . 5  |-  ( ( om  C_  ( card `  A )  /\  x  e.  On )  ->  (
( card `  A )  =  suc  x  ->  x  ~~  ( card `  A
) ) )
16 vex 2793 . . . . . . . . . 10  |-  x  e. 
_V
1716sucid 4471 . . . . . . . . 9  |-  x  e. 
suc  x
18 eleq2 2346 . . . . . . . . 9  |-  ( (
card `  A )  =  suc  x  ->  (
x  e.  ( card `  A )  <->  x  e.  suc  x ) )
1917, 18mpbiri 226 . . . . . . . 8  |-  ( (
card `  A )  =  suc  x  ->  x  e.  ( card `  A
) )
20 cardidm 7588 . . . . . . . 8  |-  ( card `  ( card `  A
) )  =  (
card `  A )
2119, 20syl6eleqr 2376 . . . . . . 7  |-  ( (
card `  A )  =  suc  x  ->  x  e.  ( card `  ( card `  A ) ) )
22 cardne 7594 . . . . . . 7  |-  ( x  e.  ( card `  ( card `  A ) )  ->  -.  x  ~~  ( card `  A )
)
2321, 22syl 17 . . . . . 6  |-  ( (
card `  A )  =  suc  x  ->  -.  x  ~~  ( card `  A
) )
2423a1i 12 . . . . 5  |-  ( ( om  C_  ( card `  A )  /\  x  e.  On )  ->  (
( card `  A )  =  suc  x  ->  -.  x  ~~  ( card `  A
) ) )
2515, 24pm2.65d 168 . . . 4  |-  ( ( om  C_  ( card `  A )  /\  x  e.  On )  ->  -.  ( card `  A )  =  suc  x )
2625nrexdv 2648 . . 3  |-  ( om  C_  ( card `  A
)  ->  -.  E. x  e.  On  ( card `  A
)  =  suc  x
)
27 peano1 4675 . . . . . 6  |-  (/)  e.  om
28 ssel 3176 . . . . . 6  |-  ( om  C_  ( card `  A
)  ->  ( (/)  e.  om  -> 
(/)  e.  ( card `  A ) ) )
2927, 28mpi 18 . . . . 5  |-  ( om  C_  ( card `  A
)  ->  (/)  e.  (
card `  A )
)
30 n0i 3462 . . . . 5  |-  ( (/)  e.  ( card `  A
)  ->  -.  ( card `  A )  =  (/) )
31 cardon 7573 . . . . . . . . 9  |-  ( card `  A )  e.  On
3231onordi 4497 . . . . . . . 8  |-  Ord  ( card `  A )
33 ordzsl 4636 . . . . . . . 8  |-  ( Ord  ( card `  A
)  <->  ( ( card `  A )  =  (/)  \/ 
E. x  e.  On  ( card `  A )  =  suc  x  \/  Lim  ( card `  A )
) )
3432, 33mpbi 201 . . . . . . 7  |-  ( (
card `  A )  =  (/)  \/  E. x  e.  On  ( card `  A
)  =  suc  x  \/  Lim  ( card `  A
) )
35 3orass 939 . . . . . . 7  |-  ( ( ( card `  A
)  =  (/)  \/  E. x  e.  On  ( card `  A )  =  suc  x  \/  Lim  ( card `  A )
)  <->  ( ( card `  A )  =  (/)  \/  ( E. x  e.  On  ( card `  A
)  =  suc  x  \/  Lim  ( card `  A
) ) ) )
3634, 35mpbi 201 . . . . . 6  |-  ( (
card `  A )  =  (/)  \/  ( E. x  e.  On  ( card `  A )  =  suc  x  \/  Lim  ( card `  A )
) )
3736ori 366 . . . . 5  |-  ( -.  ( card `  A
)  =  (/)  ->  ( E. x  e.  On  ( card `  A )  =  suc  x  \/  Lim  ( card `  A )
) )
3829, 30, 373syl 20 . . . 4  |-  ( om  C_  ( card `  A
)  ->  ( E. x  e.  On  ( card `  A )  =  suc  x  \/  Lim  ( card `  A )
) )
3938ord 368 . . 3  |-  ( om  C_  ( card `  A
)  ->  ( -.  E. x  e.  On  ( card `  A )  =  suc  x  ->  Lim  ( card `  A )
) )
4026, 39mpd 16 . 2  |-  ( om  C_  ( card `  A
)  ->  Lim  ( card `  A ) )
41 limomss 4661 . 2  |-  ( Lim  ( card `  A
)  ->  om  C_  ( card `  A ) )
4240, 41impbii 182 1  |-  ( om  C_  ( card `  A
)  <->  Lim  ( card `  A
) )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    <-> wb 178    \/ wo 359    /\ wa 360    \/ w3o 935    = wceq 1624    e. wcel 1685   E.wrex 2546    C_ wss 3154   (/)c0 3457   class class class wbr 4025   Ord word 4391   Oncon0 4392   Lim wlim 4393   suc csuc 4394   omcom 4656   ` cfv 5222    ~~ cen 6856   cardccrd 7564
This theorem is referenced by:  infxpenlem  7637  alephislim  7706  cflim2  7885  winalim  8313  gruina  8436  cartarlim  25305
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-gen 1534  ax-5 1545  ax-17 1604  ax-9 1637  ax-8 1645  ax-13 1687  ax-14 1689  ax-6 1704  ax-7 1709  ax-11 1716  ax-12 1868  ax-ext 2266  ax-sep 4143  ax-nul 4151  ax-pow 4188  ax-pr 4214  ax-un 4512
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 937  df-3an 938  df-tru 1312  df-ex 1530  df-nf 1533  df-sb 1632  df-eu 2149  df-mo 2150  df-clab 2272  df-cleq 2278  df-clel 2281  df-nfc 2410  df-ne 2450  df-ral 2550  df-rex 2551  df-rab 2554  df-v 2792  df-sbc 2994  df-csb 3084  df-dif 3157  df-un 3159  df-in 3161  df-ss 3168  df-pss 3170  df-nul 3458  df-if 3568  df-pw 3629  df-sn 3648  df-pr 3649  df-tp 3650  df-op 3651  df-uni 3830  df-int 3865  df-br 4026  df-opab 4080  df-mpt 4081  df-tr 4116  df-eprel 4305  df-id 4309  df-po 4314  df-so 4315  df-fr 4352  df-we 4354  df-ord 4395  df-on 4396  df-lim 4397  df-suc 4398  df-om 4657  df-xp 4695  df-rel 4696  df-cnv 4697  df-co 4698  df-dm 4699  df-rn 4700  df-res 4701  df-ima 4702  df-fun 5224  df-fn 5225  df-f 5226  df-f1 5227  df-fo 5228  df-f1o 5229  df-fv 5230  df-1o 6475  df-er 6656  df-en 6860  df-dom 6861  df-card 7568
  Copyright terms: Public domain W3C validator