Theorem peano2nn 9214

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 9204	. . . . . 6 |- NN = |^| { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) }
2	1	eleq2i 2298	. . . . 5 |- ( A e. NN <-> A e. |^| { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } )
3		elintg 3941	. . . . 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 2806	. . . . . . . 8 |- z e. _V
7		eleq2 2295	. . . . . . . . 9 |- ( x = z -> ( 1 e. x <-> 1 e. z ) )
8		eleq2 2295	. . . . . . . . . 10 |- ( x = z -> ( ( y + 1 ) e. x <-> ( y + 1 ) e. z ) )
9	8	raleqbi1dv 2743	. . . . . . . . 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 2951	. . . . . . 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 6035	. . . . . . . 8 |- ( y = A -> ( y + 1 ) = ( A + 1 ) )
14	13	eleq1d 2300	. . . . . . 7 |- ( y = A -> ( ( y + 1 ) e. z <-> ( A + 1 ) e. z ) )
15	14	rspcva 2909	. . . . . 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 2594	. . 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 9209	. . . 4 |- ( A e. NN -> A e. RR )
21		1red 8254	. . . 4 |- ( A e. NN -> 1 e. RR )
22	20, 21	readdcld 8268	. . 3 |- ( A e. NN -> ( A + 1 ) e. RR )
23	1	eleq2i 2298	. . . 4 |- ( ( A + 1 ) e. NN <-> ( A + 1 ) e. |^| { x | ( 1 e. x /\ A. y e. x ( y + 1 ) e. x ) } )
24		elintg 3941	. . . 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 1398   e. wcel 2202   {cab 2217   A.wral 2511   |^|cint 3933  (class class class)co 6028   RRcr 8091   1c1 8093   + caddc 8095   NNcn 9202

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 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-ext 2213  ax-sep 4212  ax-cnex 8183  ax-resscn 8184  ax-1re 8186  ax-addrcl 8189

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ral 2516  df-rex 2517  df-v 2805  df-un 3205  df-in 3207  df-ss 3214  df-sn 3679  df-pr 3680  df-op 3682  df-uni 3899  df-int 3934  df-br 4094  df-iota 5293  df-fv 5341  df-ov 6031  df-inn 9203

This theorem is referenced by:  peano2nnd  9217  nnind  9218  nnaddcl  9222  2nn  9364  3nn  9365  4nn  9366  5nn  9367  6nn  9368  7nn  9369  8nn  9370  9nn  9371  nneoor  9643  10nn  9687  nnsplit  10434  fzonn0p1p1  10521  expp1  10871  facp1  11055  resqrexlemfp1  11649  resqrexlemcalc3  11656  trireciplem  12141  trirecip  12142  cvgratnnlemnexp  12165  cvgratz  12173  nno  12547  nnoddm1d2  12551  rplpwr  12678  prmind2  12772  sqrt2irr  12814  pcmpt  12996  pockthi  13011  dec5nprm  13067  mulgnnp1  13797  2sqlem10  15944