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

Theorem peano2nn 10610
Description: Peano postulate: a successor of a positive integer is a positive integer. (Contributed by NM, 11-Jan-1997.) (Revised by Mario Carneiro, 17-Nov-2014.)
Assertion
Ref Expression
peano2nn  |-  ( A  e.  NN  ->  ( A  +  1 )  e.  NN )

Proof of Theorem peano2nn
Dummy variables  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 frfnom 7151 . . . 4  |-  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om )  Fn  om
2 fvelrnb 5919 . . . 4  |-  ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om )  Fn  om  ->  ( A  e.  ran  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om )  <->  E. y  e.  om  (
( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y
)  =  A ) )
31, 2ax-mp 5 . . 3  |-  ( A  e.  ran  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om )  <->  E. y  e.  om  (
( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y
)  =  A )
4 ovex 6324 . . . . . . 7  |-  ( ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y
)  +  1 )  e.  _V
5 eqid 2420 . . . . . . . 8  |-  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om )  =  ( rec (
( x  e.  _V  |->  ( x  +  1
) ) ,  1 )  |`  om )
6 oveq1 6303 . . . . . . . 8  |-  ( z  =  x  ->  (
z  +  1 )  =  ( x  + 
1 ) )
7 oveq1 6303 . . . . . . . 8  |-  ( z  =  ( ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om ) `  y )  ->  (
z  +  1 )  =  ( ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y )  +  1 ) )
85, 6, 7frsucmpt2 7156 . . . . . . 7  |-  ( ( y  e.  om  /\  ( ( ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om ) `  y )  +  1 )  e.  _V )  ->  ( ( rec (
( x  e.  _V  |->  ( x  +  1
) ) ,  1 )  |`  om ) `  suc  y )  =  ( ( ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om ) `  y )  +  1 ) )
94, 8mpan2 675 . . . . . 6  |-  ( y  e.  om  ->  (
( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  suc  y )  =  ( ( ( rec (
( x  e.  _V  |->  ( x  +  1
) ) ,  1 )  |`  om ) `  y )  +  1 ) )
10 peano2 6718 . . . . . . . 8  |-  ( y  e.  om  ->  suc  y  e.  om )
11 fnfvelrn 6025 . . . . . . . 8  |-  ( ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om )  Fn  om  /\ 
suc  y  e.  om )  ->  ( ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om ) `  suc  y )  e. 
ran  ( rec (
( x  e.  _V  |->  ( x  +  1
) ) ,  1 )  |`  om )
)
121, 10, 11sylancr 667 . . . . . . 7  |-  ( y  e.  om  ->  (
( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  suc  y )  e.  ran  ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) )
13 df-nn 10599 . . . . . . . 8  |-  NN  =  ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 ) " om )
14 df-ima 4858 . . . . . . . 8  |-  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 ) " om )  =  ran  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om )
1513, 14eqtri 2449 . . . . . . 7  |-  NN  =  ran  ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om )
1612, 15syl6eleqr 2519 . . . . . 6  |-  ( y  e.  om  ->  (
( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  suc  y )  e.  NN )
179, 16eqeltrrd 2509 . . . . 5  |-  ( y  e.  om  ->  (
( ( rec (
( x  e.  _V  |->  ( x  +  1
) ) ,  1 )  |`  om ) `  y )  +  1 )  e.  NN )
18 oveq1 6303 . . . . . 6  |-  ( ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y
)  =  A  -> 
( ( ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om ) `  y )  +  1 )  =  ( A  +  1 ) )
1918eleq1d 2489 . . . . 5  |-  ( ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y
)  =  A  -> 
( ( ( ( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y )  +  1 )  e.  NN  <->  ( A  + 
1 )  e.  NN ) )
2017, 19syl5ibcom 223 . . . 4  |-  ( y  e.  om  ->  (
( ( rec (
( x  e.  _V  |->  ( x  +  1
) ) ,  1 )  |`  om ) `  y )  =  A  ->  ( A  + 
1 )  e.  NN ) )
2120rexlimiv 2909 . . 3  |-  ( E. y  e.  om  (
( rec ( ( x  e.  _V  |->  ( x  +  1 ) ) ,  1 )  |`  om ) `  y
)  =  A  -> 
( A  +  1 )  e.  NN )
223, 21sylbi 198 . 2  |-  ( A  e.  ran  ( rec ( ( x  e. 
_V  |->  ( x  + 
1 ) ) ,  1 )  |`  om )  ->  ( A  +  1 )  e.  NN )
2322, 15eleq2s 2528 1  |-  ( A  e.  NN  ->  ( A  +  1 )  e.  NN )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    = wceq 1437    e. wcel 1867   E.wrex 2774   _Vcvv 3078    |-> cmpt 4475   ran crn 4846    |` cres 4847   "cima 4848   suc csuc 5435    Fn wfn 5587   ` cfv 5592  (class class class)co 6296   omcom 6697   reccrdg 7126   1c1 9529    + caddc 9531   NNcn 10598
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1748  ax-6 1794  ax-7 1838  ax-8 1869  ax-9 1871  ax-10 1886  ax-11 1891  ax-12 1904  ax-13 2052  ax-ext 2398  ax-sep 4539  ax-nul 4547  ax-pow 4594  ax-pr 4652  ax-un 6588
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1660  df-nf 1664  df-sb 1787  df-eu 2267  df-mo 2268  df-clab 2406  df-cleq 2412  df-clel 2415  df-nfc 2570  df-ne 2618  df-ral 2778  df-rex 2779  df-reu 2780  df-rab 2782  df-v 3080  df-sbc 3297  df-csb 3393  df-dif 3436  df-un 3438  df-in 3440  df-ss 3447  df-pss 3449  df-nul 3759  df-if 3907  df-pw 3978  df-sn 3994  df-pr 3996  df-tp 3998  df-op 4000  df-uni 4214  df-iun 4295  df-br 4418  df-opab 4476  df-mpt 4477  df-tr 4512  df-eprel 4756  df-id 4760  df-po 4766  df-so 4767  df-fr 4804  df-we 4806  df-xp 4851  df-rel 4852  df-cnv 4853  df-co 4854  df-dm 4855  df-rn 4856  df-res 4857  df-ima 4858  df-pred 5390  df-ord 5436  df-on 5437  df-lim 5438  df-suc 5439  df-iota 5556  df-fun 5594  df-fn 5595  df-f 5596  df-f1 5597  df-fo 5598  df-f1o 5599  df-fv 5600  df-ov 6299  df-om 6698  df-wrecs 7027  df-recs 7089  df-rdg 7127  df-nn 10599
This theorem is referenced by:  dfnn2  10611  dfnn3  10612  peano2nnd  10615  nnind  10616  nnaddcl  10620  2nn  10756  3nn  10757  4nn  10758  5nn  10759  6nn  10760  7nn  10761  8nn  10762  9nn  10763  10nn  10764  nnunb  10854  nneo  11008  fzonn0p1p1  11978  ser1const  12255  expp1  12265  facp1  12450  relexpsucnnl  13063  isercolllem1  13695  isercoll2  13699  climcndslem2  13875  climcnds  13876  harmonic  13884  trireciplem  13887  trirecip  13888  rpnnen2lem9  14242  sqrt2irr  14268  rplpwr  14484  prmind2  14595  eulerthlem2  14690  pcmpt  14797  pockthi  14811  prmreclem6  14825  dec5nprm  14998  mulgnnp1  16718  chfacfisf  19815  chfacfisfcpmat  19816  cayhamlem1  19827  1stcfb  20397  bcthlem3  22213  bcthlem4  22214  ovolunlem1a  22356  ovolicc2lem4OLD  22380  ovolicc2lem4  22381  voliunlem1  22410  volsup  22416  volsup2  22470  itg1climres  22579  mbfi1fseqlem5  22584  itg2monolem1  22615  itg2i1fseqle  22619  itg2i1fseq  22620  itg2i1fseq2  22621  itg2addlem  22623  itg2gt0  22625  itg2cnlem1  22626  aaliou3lem7  23209  emcllem1  23825  emcllem2  23826  emcllem3  23827  emcllem5  23829  emcllem6  23830  emcllem7  23831  zetacvg  23844  lgam1  23893  bclbnd  24110  bposlem5  24118  2sqlem10  24204  dchrisumlem2  24230  logdivbnd  24296  pntrsumo1  24305  pntrsumbnd  24306  wwlkext2clwwlk  25417  numclwwlk2lem1  25716  numclwlk2lem2f  25717  gxnn0suc  25878  opsqrlem5  27673  opsqrlem6  27674  nnindf  28261  psgnfzto1st  28498  esumpmono  28780  fibp1  29101  rrvsum  29154  subfacp1lem6  29737  subfaclim  29740  bcprod  30202  bccolsum  30203  iprodgam  30206  faclimlem1  30207  faclimlem2  30208  faclim2  30212  nn0prpwlem  30804  mblfinlem2  31726  volsupnfl  31733  seqpo  31824  incsequz  31825  incsequz2  31826  geomcau  31836  heiborlem6  31896  bfplem1  31902  jm2.27dlem4  35621  sumnnodd  37330  stoweidlem20  37497  wallispilem4  37547  wallispi2lem1  37550  wallispi2lem2  37551  stirlinglem4  37556  stirlinglem8  37560  stirlinglem11  37563  stirlinglem12  37564  stirlinglem13  37565  nnfoctbdjlem  37850  deccarry  38162  iccpartres  38179  iccelpart  38194  nno  39146
  Copyright terms: Public domain W3C validator