Theorem peano2 4693

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 2814	. 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 2294	. . . . . . . 8 |- ( x = A -> ( x e. z <-> A e. z ) )
4		suceq 4499	. . . . . . . . 9 |- ( x = A -> suc x = suc A )
5	4	eleq1d 2300	. . . . . . . 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 2218	. . . . . . . . 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 2515	. . . . . . . . . . . 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 1812	. . . . . . . . . 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 2006	. . . . . . . . . . . 12 |- ( [ z / y ] ( x e. y -> suc x e. y ) <-> ( [ z / y ] x e. y -> [ z / y ] suc x e. y ) )
14		clelsb2 2337	. . . . . . . . . . . . 13 |- ( [ z / y ] x e. y <-> x e. z )
15		clelsb2 2337	. . . . . . . . . . . . 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 2058	. . . . . . . . . 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 1606	. . . . . . 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 1576	. . . . . . 7 |- F/ x A e. _V
24		nfv 1576	. . . . . . . . 9 |- F/ x (/) e. y
25		nfra1 2563	. . . . . . . . 9 |- F/ x A. x e. y suc x e. y
26	24, 25	nfan 1613	. . . . . . . 8 |- F/ x ( (/) e. y /\ A. x e. y suc x e. y )
27	26	nfsab 2223	. . . . . . 7 |- F/ x z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) }
28	23, 27	nfan 1613	. . . . . 6 |- F/ x ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } )
29		nfcvd 2375	. . . . . 6 |- ( ( A e. _V /\ z e. { y | ( (/) e. y /\ A. x e. y suc x e. y ) } ) -> F/_ x A )
30		nfvd 1577	. . . . . 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 2855	. . . . 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 2605	. . . 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 2591	. . . . 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 3936	. . . . . 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 4596	. . . . . . 7 |- ( A e. _V -> suc A e. _V )
36		elintg 3936	. . . . . . 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 4690	. . . 4 |- om = |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) }
42	41	eleq2i 2298	. . 3 |- ( A e. om <-> A e. |^| { y | ( (/) e. y /\ A. x e. y suc x e. y ) } )
43	41	eleq2i 2298	. . 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 1395   = wceq 1397   [wsb 1810   e. wcel 2202   {cab 2217   A.wral 2510   _Vcvv 2802   (/)c0 3494   |^|cint 3928   suc csuc 4462   omcom 4688

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 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-sep 4207  ax-pow 4264  ax-pr 4299  ax-un 4530

This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-nf 1509  df-sb 1811  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ral 2515  df-rex 2516  df-v 2804  df-un 3204  df-in 3206  df-ss 3213  df-pw 3654  df-sn 3675  df-pr 3676  df-uni 3894  df-int 3929  df-suc 4468  df-iom 4689

This theorem is referenced by:  peano5  4696  limom  4712  peano2b  4713  nnregexmid  4719  omsinds  4720  freccllem  6567  frecfcllem  6569  frecsuclem  6571  frecrdg  6573  nnacl  6647  nnacom  6651  nnmsucr  6655  nnsucsssuc  6659  nnaword  6678  1onn  6687  2onn  6688  3onn  6689  4onn  6690  nnaordex  6695  php5  7043  phplem4dom  7047  php5dom  7048  phplem4on  7053  dif1en  7067  findcard  7076  findcard2  7077  findcard2s  7078  infnfi  7083  unsnfi  7110  omp1eomlem  7292  ctmlemr  7306  nninfninc  7321  infnninf  7322  infnninfOLD  7323  nnnninf  7324  nnnninfeq  7326  nninfwlpoimlemg  7373  nninfwlpoimlemginf  7374  frec2uzrand  10666  frecuzrdgsuc  10675  frecuzrdgsuctlem  10684  frecfzennn  10687  hashunlem  11066  ennnfonelemk  13020  ennnfonelemg  13023  ennnfonelemkh  13032  ennnfonelemhf1o  13033  ennnfonelemex  13034  ennnfonelemrn  13039  ennnfonelemnn0  13042  ctinfomlemom  13047  0nninf  16606  nnsf  16607  peano4nninf  16608  nninfsellemdc  16612  nninfsellemsuc  16614  nninfself  16615  nninfsellemeqinf  16618  nnnninfex  16624