Theorem peano2 4687

Description: The successor of any natural number is a natural number. One of Peano's five postulates for arithmetic. Proposition 7.30(2) of [TakeutiZaring] p. 42. (Contributed by NM, 3-Sep-2003.)

Assertion

Ref	Expression
peano2	|- ( A e. om -> suc A e. om )

Proof of Theorem peano2

Dummy variables x y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 2811	. 2 |- ( A e. om -> A e. _V )
2		simpl 109	. . . . . 6 |- ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) -> A e. _V )
3		eleq1 2292	. . . . . . . 8 |- ( x = A -> ( x e. z <-> A e. z ) )
4		suceq 4493	. . . . . . . . 9 |- ( x = A -> suc x = suc A )
5	4	eleq1d 2298	. . . . . . . 8 |- ( x = A -> ( suc x e. z <-> suc A e. z ) )
6	3, 5	imbi12d 234	. . . . . . 7 |- ( x = A -> ( ( x e. z -> suc x e. z ) <-> ( A e. z -> suc A e. z ) ) )
7	6	adantl 277	. . . . . 6 |- ( ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) /\ x = A ) -> ( ( x e. z -> suc x e. z ) <-> ( A e. z -> suc A e. z ) ) )
8		df-clab 2216	. . . . . . . . 9 |- ( z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } <-> [ z / y ] ( (/) e. y /\ A. x e. y suc x e. y ) )
9		simpr 110	. . . . . . . . . . . 12 |- ( ( (/) e. y /\ A. x e. y suc x e. y ) -> A. x e. y suc x e. y )
10		df-ral 2513	. . . . . . . . . . . 12 |- ( A. x e. y suc x e. y <-> A. x ( x e. y -> suc x e. y ) )
11	9, 10	sylib 122	. . . . . . . . . . 11 |- ( ( (/) e. y /\ A. x e. y suc x e. y ) -> A. x ( x e. y -> suc x e. y ) )
12	11	sbimi 1810	. . . . . . . . . 10 |- ( [ z / y ] ( (/) e. y /\ A. x e. y suc x e. y ) -> [ z / y ] A. x ( x e. y -> suc x e. y ) )
13		sbim 2004	. . . . . . . . . . . 12 |- ( [ z / y ] ( x e. y -> suc x e. y ) <-> ( [ z / y ] x e. y -> [ z / y ] suc x e. y ) )
14		clelsb2 2335	. . . . . . . . . . . . 13 |- ( [ z / y ] x e. y <-> x e. z )
15		clelsb2 2335	. . . . . . . . . . . . 13 |- ( [ z / y ] suc x e. y <-> suc x e. z )
16	14, 15	imbi12i 239	. . . . . . . . . . . 12 |- ( ( [ z / y ] x e. y -> [ z / y ] suc x e. y ) <-> ( x e. z -> suc x e. z ) )
17	13, 16	bitri 184	. . . . . . . . . . 11 |- ( [ z / y ] ( x e. y -> suc x e. y ) <-> ( x e. z -> suc x e. z ) )
18	17	sbalv 2056	. . . . . . . . . 10 |- ( [ z / y ] A. x ( x e. y -> suc x e. y ) <-> A. x ( x e. z -> suc x e. z ) )
19	12, 18	sylib 122	. . . . . . . . 9 |- ( [ z / y ] ( (/) e. y /\ A. x e. y suc x e. y ) -> A. x ( x e. z -> suc x e. z ) )
20	8, 19	sylbi 121	. . . . . . . 8 |- ( z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } -> A. x ( x e. z -> suc x e. z ) )
21	20	19.21bi 1604	. . . . . . 7 |- ( z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } -> ( x e. z -> suc x e. z ) )
22	21	adantl 277	. . . . . 6 |- ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) -> ( x e. z -> suc x e. z ) )
23		nfv 1574	. . . . . . 7 |- F/ x A e. _V
24		nfv 1574	. . . . . . . . 9 |- F/ x (/) e. y
25		nfra1 2561	. . . . . . . . 9 |- F/ x A. x e. y suc x e. y
26	24, 25	nfan 1611	. . . . . . . 8 |- F/ x ( (/) e. y /\ A. x e. y suc x e. y )
27	26	nfsab 2221	. . . . . . 7 |- F/ x z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) }
28	23, 27	nfan 1611	. . . . . 6 |- F/ x ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } )
29		nfcvd 2373	. . . . . 6 |- ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) -> F/_ x A )
30		nfvd 1575	. . . . . 6 |- ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) -> F/ x ( A e. z -> suc A e. z ) )
31	2, 7, 22, 28, 29, 30	vtocldf 2852	. . . . 5 |- ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) -> ( A e. z -> suc A e. z ) )
32	31	ralrimiva 2603	. . . 4 |- ( A e. _V -> A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ( A e. z -> suc A e. z ) )
33		ralim 2589	. . . . 5 |- ( A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ( A e. z -> suc A e. z ) -> ( A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } A e. z -> A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } suc A e. z ) )
34		elintg 3931	. . . . . 6 |- ( A e. _V -> ( A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } <-> A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } A e. z ) )
35		sucexg 4590	. . . . . . 7 |- ( A e. _V -> suc A e. _V )
36		elintg 3931	. . . . . . 7 |- ( suc A e. _V -> ( suc A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } <-> A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } suc A e. z ) )
37	35, 36	syl 14	. . . . . 6 |- ( A e. _V -> ( suc A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } <-> A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } suc A e. z ) )
38	34, 37	imbi12d 234	. . . . 5 |- ( A e. _V -> ( ( A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } -> suc A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) <-> ( A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } A e. z -> A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } suc A e. z ) ) )
39	33, 38	imbitrrid 156	. . . 4 |- ( A e. _V -> ( A. z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ( A e. z -> suc A e. z ) -> ( A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } -> suc A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) ) )
40	32, 39	mpd 13	. . 3 |- ( A e. _V -> ( A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } -> suc A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) )
41		dfom3 4684	. . . 4 |- om = |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) }
42	41	eleq2i 2296	. . 3 |- ( A e. om <-> A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } )
43	41	eleq2i 2296	. . 3 |- ( suc A e. om <-> suc A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } )
44	40, 42, 43	3imtr4g 205	. 2 |- ( A e. _V -> ( A e. om -> suc A e. om ) )
45	1, 44	mpcom 36	1 |- ( A e. om -> suc A e. om )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   A.wal 1393   = wceq 1395   [wsb 1808   e. wcel 2200   {cab 2215   A.wral 2508   _Vcvv 2799   (/)c0 3491   |^|cint 3923   suc csuc 4456   omcom 4682

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 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-sep 4202  ax-pow 4258  ax-pr 4293  ax-un 4524

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-nf 1507  df-sb 1809  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ral 2513  df-rex 2514  df-v 2801  df-un 3201  df-in 3203  df-ss 3210  df-pw 3651  df-sn 3672  df-pr 3673  df-uni 3889  df-int 3924  df-suc 4462  df-iom 4683

This theorem is referenced by:  peano5  4690  limom  4706  peano2b  4707  nnregexmid  4713  omsinds  4714  freccllem  6554  frecfcllem  6556  frecsuclem  6558  frecrdg  6560  nnacl  6634  nnacom  6638  nnmsucr  6642  nnsucsssuc  6646  nnaword  6665  1onn  6674  2onn  6675  3onn  6676  4onn  6677  nnaordex  6682  php5  7027  phplem4dom  7031  php5dom  7032  phplem4on  7037  dif1en  7049  findcard  7058  findcard2  7059  findcard2s  7060  infnfi  7065  unsnfi  7092  omp1eomlem  7272  ctmlemr  7286  nninfninc  7301  infnninf  7302  infnninfOLD  7303  nnnninf  7304  nnnninfeq  7306  nninfwlpoimlemg  7353  nninfwlpoimlemginf  7354  frec2uzrand  10639  frecuzrdgsuc  10648  frecuzrdgsuctlem  10657  frecfzennn  10660  hashunlem  11038  ennnfonelemk  12987  ennnfonelemg  12990  ennnfonelemkh  12999  ennnfonelemhf1o  13000  ennnfonelemex  13001  ennnfonelemrn  13006  ennnfonelemnn0  13009  ctinfomlemom  13014  0nninf  16458  nnsf  16459  peano4nninf  16460  nninfsellemdc  16464  nninfsellemsuc  16466  nninfself  16467  nninfsellemeqinf  16470  nnnninfex  16476