ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  peano2nn Unicode version

Theorem peano2nn 8689
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 dfnn2 8679 . . . . . 6  |-  NN  =  |^| { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }
21eleq2i 2182 . . . . 5  |-  ( A  e.  NN  <->  A  e.  |^|
{ x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } )
3 elintg 3747 . . . . 5  |-  ( A  e.  NN  ->  ( A  e.  |^| { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  <->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } A  e.  z ) )
42, 3syl5bb 191 . . . 4  |-  ( A  e.  NN  ->  ( A  e.  NN  <->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } A  e.  z ) )
54ibi 175 . . 3  |-  ( A  e.  NN  ->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } A  e.  z )
6 vex 2661 . . . . . . . 8  |-  z  e. 
_V
7 eleq2 2179 . . . . . . . . 9  |-  ( x  =  z  ->  (
1  e.  x  <->  1  e.  z ) )
8 eleq2 2179 . . . . . . . . . 10  |-  ( x  =  z  ->  (
( y  +  1 )  e.  x  <->  ( y  +  1 )  e.  z ) )
98raleqbi1dv 2609 . . . . . . . . 9  |-  ( x  =  z  ->  ( A. y  e.  x  ( y  +  1 )  e.  x  <->  A. y  e.  z  ( y  +  1 )  e.  z ) )
107, 9anbi12d 462 . . . . . . . 8  |-  ( x  =  z  ->  (
( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x )  <-> 
( 1  e.  z  /\  A. y  e.  z  ( y  +  1 )  e.  z ) ) )
116, 10elab 2800 . . . . . . 7  |-  ( z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  <->  ( 1  e.  z  /\  A. y  e.  z  ( y  +  1 )  e.  z ) )
1211simprbi 271 . . . . . 6  |-  ( z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ->  A. y  e.  z  ( y  +  1 )  e.  z )
13 oveq1 5747 . . . . . . . 8  |-  ( y  =  A  ->  (
y  +  1 )  =  ( A  + 
1 ) )
1413eleq1d 2184 . . . . . . 7  |-  ( y  =  A  ->  (
( y  +  1 )  e.  z  <->  ( A  +  1 )  e.  z ) )
1514rspcva 2759 . . . . . 6  |-  ( ( A  e.  z  /\  A. y  e.  z  ( y  +  1 )  e.  z )  -> 
( A  +  1 )  e.  z )
1612, 15sylan2 282 . . . . 5  |-  ( ( A  e.  z  /\  z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } )  ->  ( A  + 
1 )  e.  z )
1716expcom 115 . . . 4  |-  ( z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ->  ( A  e.  z  ->  ( A  +  1 )  e.  z ) )
1817ralimia 2468 . . 3  |-  ( A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } A  e.  z  ->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ( A  +  1 )  e.  z )
195, 18syl 14 . 2  |-  ( A  e.  NN  ->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ( A  +  1 )  e.  z )
20 nnre 8684 . . . 4  |-  ( A  e.  NN  ->  A  e.  RR )
21 1red 7745 . . . 4  |-  ( A  e.  NN  ->  1  e.  RR )
2220, 21readdcld 7759 . . 3  |-  ( A  e.  NN  ->  ( A  +  1 )  e.  RR )
231eleq2i 2182 . . . 4  |-  ( ( A  +  1 )  e.  NN  <->  ( A  +  1 )  e. 
|^| { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) } )
24 elintg 3747 . . . 4  |-  ( ( A  +  1 )  e.  RR  ->  (
( A  +  1 )  e.  |^| { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  <->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ( A  +  1 )  e.  z ) )
2523, 24syl5bb 191 . . 3  |-  ( ( A  +  1 )  e.  RR  ->  (
( A  +  1 )  e.  NN  <->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ( A  +  1 )  e.  z ) )
2622, 25syl 14 . 2  |-  ( A  e.  NN  ->  (
( A  +  1 )  e.  NN  <->  A. z  e.  { x  |  ( 1  e.  x  /\  A. y  e.  x  ( y  +  1 )  e.  x ) }  ( A  +  1 )  e.  z ) )
2719, 26mpbird 166 1  |-  ( A  e.  NN  ->  ( A  +  1 )  e.  NN )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    <-> wb 104    = wceq 1314    e. wcel 1463   {cab 2101   A.wral 2391   |^|cint 3739  (class class class)co 5740   RRcr 7583   1c1 7585    + caddc 7587   NNcn 8677
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-sep 4014  ax-cnex 7675  ax-resscn 7676  ax-1re 7678  ax-addrcl 7681
This theorem depends on definitions:  df-bi 116  df-3an 947  df-tru 1317  df-nf 1420  df-sb 1719  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ral 2396  df-rex 2397  df-v 2660  df-un 3043  df-in 3045  df-ss 3052  df-sn 3501  df-pr 3502  df-op 3504  df-uni 3705  df-int 3740  df-br 3898  df-iota 5056  df-fv 5099  df-ov 5743  df-inn 8678
This theorem is referenced by:  peano2nnd  8692  nnind  8693  nnaddcl  8697  2nn  8832  3nn  8833  4nn  8834  5nn  8835  6nn  8836  7nn  8837  8nn  8838  9nn  8839  nneoor  9104  10nn  9148  nnsplit  9854  fzonn0p1p1  9930  expp1  10240  facp1  10416  resqrexlemfp1  10721  resqrexlemcalc3  10728  trireciplem  11209  trirecip  11210  cvgratnnlemnexp  11233  cvgratz  11241  nno  11499  nnoddm1d2  11503  rplpwr  11611  prmind2  11697  sqrt2irr  11736
  Copyright terms: Public domain W3C validator