Theorem peano2nn 8994

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.

Step	Hyp	Ref	Expression
1		dfnn2 8984	. . . . . 6 |- NN = |^| { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) }
2	1	eleq2i 2260	. . . . 5 |- ( A e. NN <-> A e. |^| { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } )
3		elintg 3878	. . . . 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 ) )
4	2, 3	bitrid 192	. . . 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 ) )
5	4	ibi 176	. . 3 |- ( A e. NN -> A. z e. { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } A e. z )
6		vex 2763	. . . . . . . 8 |- z e. _V
7		eleq2 2257	. . . . . . . . 9 |- ( x = z -> ( 1 e. x <-> 1 e. z ) )
8		eleq2 2257	. . . . . . . . . 10 |- ( x = z -> ( ( y + 1 ) e. x <-> ( y + 1 ) e. z ) )
9	8	raleqbi1dv 2702	. . . . . . . . 9 |- ( x = z -> ( A. y e. x ( y + 1 ) e. x <-> A. y e. z ( y + 1 ) e. z ) )
10	7, 9	anbi12d 473	. . . . . . . 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 ) ) )
11	6, 10	elab 2904	. . . . . . 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 ) )
12	11	simprbi 275	. . . . . 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 5925	. . . . . . . 8 |- ( y = A -> ( y + 1 ) = ( A + 1 ) )
14	13	eleq1d 2262	. . . . . . 7 |- ( y = A -> ( ( y + 1 ) e. z <-> ( A + 1 ) e. z ) )
15	14	rspcva 2862	. . . . . 6 |- ( ( A e. z /\ A. y e. z ( y + 1 ) e. z ) -> ( A + 1 ) e. z )
16	12, 15	sylan2 286	. . . . 5 |- ( ( A e. z /\ z e. { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } ) -> ( A + 1 ) e. z )
17	16	expcom 116	. . . 4 |- ( z e. { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } -> ( A e. z -> ( A + 1 ) e. z ) )
18	17	ralimia 2555	. . 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 )
19	5, 18	syl 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 8989	. . . 4 |- ( A e. NN -> A e. RR )
21		1red 8034	. . . 4 |- ( A e. NN -> 1 e. RR )
22	20, 21	readdcld 8049	. . 3 |- ( A e. NN -> ( A + 1 ) e. RR )
23	1	eleq2i 2260	. . . 4 |- ( ( A + 1 ) e. NN <-> ( A + 1 ) e. |^| { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } )
24		elintg 3878	. . . 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 ) )
25	23, 24	bitrid 192	. . 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 ) )
26	22, 25	syl 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 ) )
27	19, 26	mpbird 167	1 |- ( A e. NN -> ( A + 1 ) e. NN )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1364   e. wcel 2164   {cab 2179   A.wral 2472   |^|cint 3870  (class class class)co 5918   RRcr 7871   1c1 7873   + caddc 7875   NNcn 8982

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-ext 2175  ax-sep 4147  ax-cnex 7963  ax-resscn 7964  ax-1re 7966  ax-addrcl 7969

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-nf 1472  df-sb 1774  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ral 2477  df-rex 2478  df-v 2762  df-un 3157  df-in 3159  df-ss 3166  df-sn 3624  df-pr 3625  df-op 3627  df-uni 3836  df-int 3871  df-br 4030  df-iota 5215  df-fv 5262  df-ov 5921  df-inn 8983

This theorem is referenced by:  peano2nnd  8997  nnind  8998  nnaddcl  9002  2nn  9143  3nn  9144  4nn  9145  5nn  9146  6nn  9147  7nn  9148  8nn  9149  9nn  9150  nneoor  9419  10nn  9463  nnsplit  10203  fzonn0p1p1  10280  expp1  10617  facp1  10801  resqrexlemfp1  11153  resqrexlemcalc3  11160  trireciplem  11643  trirecip  11644  cvgratnnlemnexp  11667  cvgratz  11675  nno  12047  nnoddm1d2  12051  rplpwr  12164  prmind2  12258  sqrt2irr  12300  pcmpt  12481  pockthi  12496  mulgnnp1  13200  2sqlem10  15212