Theorem peano2 4641

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	⊢ (𝐴 ∈ ω → suc 𝐴 ∈ ω)

Proof of Theorem peano2

Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elex 2782	. 2 ⊢ (𝐴 ∈ ω → 𝐴 ∈ V)
2		simpl 109	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → 𝐴 ∈ V)
3		eleq1 2267	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → (𝑥 ∈ 𝑧 ↔ 𝐴 ∈ 𝑧))
4		suceq 4447	. . . . . . . . 9 ⊢ (𝑥 = 𝐴 → suc 𝑥 = suc 𝐴)
5	4	eleq1d 2273	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → (suc 𝑥 ∈ 𝑧 ↔ suc 𝐴 ∈ 𝑧))
6	3, 5	imbi12d 234	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ((𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧) ↔ (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧)))
7	6	adantl 277	. . . . . 6 ⊢ (((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) ∧ 𝑥 = 𝐴) → ((𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧) ↔ (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧)))
8		df-clab 2191	. . . . . . . . 9 ⊢ (𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ [𝑧 / 𝑦](∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦))
9		simpr 110	. . . . . . . . . . . 12 ⊢ ((∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)
10		df-ral 2488	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦 ↔ ∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦))
11	9, 10	sylib 122	. . . . . . . . . . 11 ⊢ ((∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → ∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦))
12	11	sbimi 1786	. . . . . . . . . 10 ⊢ ([𝑧 / 𝑦](∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → [𝑧 / 𝑦]∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦))
13		sbim 1980	. . . . . . . . . . . 12 ⊢ ([𝑧 / 𝑦](𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦) ↔ ([𝑧 / 𝑦]𝑥 ∈ 𝑦 → [𝑧 / 𝑦]suc 𝑥 ∈ 𝑦))
14		clelsb2 2310	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝑧)
15		clelsb2 2310	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑦]suc 𝑥 ∈ 𝑦 ↔ suc 𝑥 ∈ 𝑧)
16	14, 15	imbi12i 239	. . . . . . . . . . . 12 ⊢ (([𝑧 / 𝑦]𝑥 ∈ 𝑦 → [𝑧 / 𝑦]suc 𝑥 ∈ 𝑦) ↔ (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
17	13, 16	bitri 184	. . . . . . . . . . 11 ⊢ ([𝑧 / 𝑦](𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦) ↔ (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
18	17	sbalv 2032	. . . . . . . . . 10 ⊢ ([𝑧 / 𝑦]∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦) ↔ ∀𝑥(𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
19	12, 18	sylib 122	. . . . . . . . 9 ⊢ ([𝑧 / 𝑦](∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → ∀𝑥(𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
20	8, 19	sylbi 121	. . . . . . . 8 ⊢ (𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → ∀𝑥(𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
21	20	19.21bi 1580	. . . . . . 7 ⊢ (𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
22	21	adantl 277	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
23		nfv 1550	. . . . . . 7 ⊢ Ⅎ𝑥 𝐴 ∈ V
24		nfv 1550	. . . . . . . . 9 ⊢ Ⅎ𝑥∅ ∈ 𝑦
25		nfra1 2536	. . . . . . . . 9 ⊢ Ⅎ𝑥∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦
26	24, 25	nfan 1587	. . . . . . . 8 ⊢ Ⅎ𝑥(∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)
27	26	nfsab 2196	. . . . . . 7 ⊢ Ⅎ𝑥 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}
28	23, 27	nfan 1587	. . . . . 6 ⊢ Ⅎ𝑥(𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})
29		nfcvd 2348	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → Ⅎ𝑥𝐴)
30		nfvd 1551	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → Ⅎ𝑥(𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧))
31	2, 7, 22, 28, 29, 30	vtocldf 2823	. . . . 5 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧))
32	31	ralrimiva 2578	. . . 4 ⊢ (𝐴 ∈ V → ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧))
33		ralim 2564	. . . . 5 ⊢ (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧) → (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}𝐴 ∈ 𝑧 → ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧))
34		elintg 3892	. . . . . 6 ⊢ (𝐴 ∈ V → (𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}𝐴 ∈ 𝑧))
35		sucexg 4544	. . . . . . 7 ⊢ (𝐴 ∈ V → suc 𝐴 ∈ V)
36		elintg 3892	. . . . . . 7 ⊢ (suc 𝐴 ∈ V → (suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧))
37	35, 36	syl 14	. . . . . 6 ⊢ (𝐴 ∈ V → (suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧))
38	34, 37	imbi12d 234	. . . . 5 ⊢ (𝐴 ∈ V → ((𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) ↔ (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}𝐴 ∈ 𝑧 → ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧)))
39	33, 38	imbitrrid 156	. . . 4 ⊢ (𝐴 ∈ V → (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧) → (𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})))
40	32, 39	mpd 13	. . 3 ⊢ (𝐴 ∈ V → (𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}))
41		dfom3 4638	. . . 4 ⊢ ω = ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}
42	41	eleq2i 2271	. . 3 ⊢ (𝐴 ∈ ω ↔ 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})
43	41	eleq2i 2271	. . 3 ⊢ (suc 𝐴 ∈ ω ↔ suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})
44	40, 42, 43	3imtr4g 205	. 2 ⊢ (𝐴 ∈ V → (𝐴 ∈ ω → suc 𝐴 ∈ ω))
45	1, 44	mpcom 36	1 ⊢ (𝐴 ∈ ω → suc 𝐴 ∈ ω)

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105  ∀wal 1370   = wceq 1372  [wsb 1784   ∈ wcel 2175  {cab 2190  ∀wral 2483  Vcvv 2771  ∅c0 3459  ∩ cint 3884  suc csuc 4410  ωcom 4636

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 1469  ax-7 1470  ax-gen 1471  ax-ie1 1515  ax-ie2 1516  ax-8 1526  ax-10 1527  ax-11 1528  ax-i12 1529  ax-bndl 1531  ax-4 1532  ax-17 1548  ax-i9 1552  ax-ial 1556  ax-i5r 1557  ax-13 2177  ax-14 2178  ax-ext 2186  ax-sep 4161  ax-pow 4217  ax-pr 4252  ax-un 4478

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1375  df-nf 1483  df-sb 1785  df-clab 2191  df-cleq 2197  df-clel 2200  df-nfc 2336  df-ral 2488  df-rex 2489  df-v 2773  df-un 3169  df-in 3171  df-ss 3178  df-pw 3617  df-sn 3638  df-pr 3639  df-uni 3850  df-int 3885  df-suc 4416  df-iom 4637

This theorem is referenced by:  peano5  4644  limom  4660  peano2b  4661  nnregexmid  4667  omsinds  4668  freccllem  6478  frecfcllem  6480  frecsuclem  6482  frecrdg  6484  nnacl  6556  nnacom  6560  nnmsucr  6564  nnsucsssuc  6568  nnaword  6587  1onn  6596  2onn  6597  3onn  6598  4onn  6599  nnaordex  6604  php5  6937  phplem4dom  6941  php5dom  6942  phplem4on  6946  dif1en  6958  findcard  6967  findcard2  6968  findcard2s  6969  infnfi  6974  unsnfi  6998  omp1eomlem  7178  ctmlemr  7192  nninfninc  7207  infnninf  7208  infnninfOLD  7209  nnnninf  7210  nnnninfeq  7212  nninfwlpoimlemg  7259  nninfwlpoimlemginf  7260  frec2uzrand  10531  frecuzrdgsuc  10540  frecuzrdgsuctlem  10549  frecfzennn  10552  hashunlem  10930  ennnfonelemk  12690  ennnfonelemg  12693  ennnfonelemkh  12702  ennnfonelemhf1o  12703  ennnfonelemex  12704  ennnfonelemrn  12709  ennnfonelemnn0  12712  ctinfomlemom  12717  0nninf  15805  nnsf  15806  peano4nninf  15807  nninfsellemdc  15811  nninfsellemsuc  15813  nninfself  15814  nninfsellemeqinf  15817  nnnninfex  15823