Theorem peano2 4336

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 2610	. 2 ⊢ (𝐴 ∈ ω → 𝐴 ∈ V)
2		simpl 107	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → 𝐴 ∈ V)
3		eleq1 2141	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → (𝑥 ∈ 𝑧 ↔ 𝐴 ∈ 𝑧))
4		suceq 4157	. . . . . . . . 9 ⊢ (𝑥 = 𝐴 → suc 𝑥 = suc 𝐴)
5	4	eleq1d 2147	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → (suc 𝑥 ∈ 𝑧 ↔ suc 𝐴 ∈ 𝑧))
6	3, 5	imbi12d 232	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ((𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧) ↔ (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧)))
7	6	adantl 271	. . . . . 6 ⊢ (((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) ∧ 𝑥 = 𝐴) → ((𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧) ↔ (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧)))
8		df-clab 2068	. . . . . . . . 9 ⊢ (𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ [𝑧 / 𝑦](∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦))
9		simpr 108	. . . . . . . . . . . 12 ⊢ ((∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)
10		df-ral 2353	. . . . . . . . . . . 12 ⊢ (∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦 ↔ ∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦))
11	9, 10	sylib 120	. . . . . . . . . . 11 ⊢ ((∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → ∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦))
12	11	sbimi 1687	. . . . . . . . . 10 ⊢ ([𝑧 / 𝑦](∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → [𝑧 / 𝑦]∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦))
13		sbim 1868	. . . . . . . . . . . 12 ⊢ ([𝑧 / 𝑦](𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦) ↔ ([𝑧 / 𝑦]𝑥 ∈ 𝑦 → [𝑧 / 𝑦]suc 𝑥 ∈ 𝑦))
14		elsb4 1894	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑦]𝑥 ∈ 𝑦 ↔ 𝑥 ∈ 𝑧)
15		clelsb4 2184	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑦]suc 𝑥 ∈ 𝑦 ↔ suc 𝑥 ∈ 𝑧)
16	14, 15	imbi12i 237	. . . . . . . . . . . 12 ⊢ (([𝑧 / 𝑦]𝑥 ∈ 𝑦 → [𝑧 / 𝑦]suc 𝑥 ∈ 𝑦) ↔ (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
17	13, 16	bitri 182	. . . . . . . . . . 11 ⊢ ([𝑧 / 𝑦](𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦) ↔ (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
18	17	sbalv 1922	. . . . . . . . . 10 ⊢ ([𝑧 / 𝑦]∀𝑥(𝑥 ∈ 𝑦 → suc 𝑥 ∈ 𝑦) ↔ ∀𝑥(𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
19	12, 18	sylib 120	. . . . . . . . 9 ⊢ ([𝑧 / 𝑦](∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦) → ∀𝑥(𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
20	8, 19	sylbi 119	. . . . . . . 8 ⊢ (𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → ∀𝑥(𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
21	20	19.21bi 1490	. . . . . . 7 ⊢ (𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
22	21	adantl 271	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → (𝑥 ∈ 𝑧 → suc 𝑥 ∈ 𝑧))
23		nfv 1461	. . . . . . 7 ⊢ Ⅎ𝑥 𝐴 ∈ V
24		nfv 1461	. . . . . . . . 9 ⊢ Ⅎ𝑥∅ ∈ 𝑦
25		nfra1 2397	. . . . . . . . 9 ⊢ Ⅎ𝑥∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦
26	24, 25	nfan 1497	. . . . . . . 8 ⊢ Ⅎ𝑥(∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)
27	26	nfsab 2073	. . . . . . 7 ⊢ Ⅎ𝑥 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}
28	23, 27	nfan 1497	. . . . . 6 ⊢ Ⅎ𝑥(𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})
29		nfcvd 2220	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → Ⅎ𝑥𝐴)
30		nfvd 1462	. . . . . 6 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → Ⅎ𝑥(𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧))
31	2, 7, 22, 28, 29, 30	vtocldf 2650	. . . . 5 ⊢ ((𝐴 ∈ V ∧ 𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) → (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧))
32	31	ralrimiva 2434	. . . 4 ⊢ (𝐴 ∈ V → ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧))
33		ralim 2422	. . . . 5 ⊢ (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧) → (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}𝐴 ∈ 𝑧 → ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧))
34		elintg 3644	. . . . . 6 ⊢ (𝐴 ∈ V → (𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}𝐴 ∈ 𝑧))
35		sucexg 4242	. . . . . . 7 ⊢ (𝐴 ∈ V → suc 𝐴 ∈ V)
36		elintg 3644	. . . . . . 7 ⊢ (suc 𝐴 ∈ V → (suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧))
37	35, 36	syl 14	. . . . . 6 ⊢ (𝐴 ∈ V → (suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} ↔ ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧))
38	34, 37	imbi12d 232	. . . . 5 ⊢ (𝐴 ∈ V → ((𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}) ↔ (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}𝐴 ∈ 𝑧 → ∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}suc 𝐴 ∈ 𝑧)))
39	33, 38	syl5ibr 154	. . . 4 ⊢ (𝐴 ∈ V → (∀𝑧 ∈ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} (𝐴 ∈ 𝑧 → suc 𝐴 ∈ 𝑧) → (𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})))
40	32, 39	mpd 13	. . 3 ⊢ (𝐴 ∈ V → (𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)} → suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}))
41		dfom3 4333	. . . 4 ⊢ ω = ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)}
42	41	eleq2i 2145	. . 3 ⊢ (𝐴 ∈ ω ↔ 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})
43	41	eleq2i 2145	. . 3 ⊢ (suc 𝐴 ∈ ω ↔ suc 𝐴 ∈ ∩ {𝑦 ∣ (∅ ∈ 𝑦 ∧ ∀𝑥 ∈ 𝑦 suc 𝑥 ∈ 𝑦)})
44	40, 42, 43	3imtr4g 203	. 2 ⊢ (𝐴 ∈ V → (𝐴 ∈ ω → suc 𝐴 ∈ ω))
45	1, 44	mpcom 36	1 ⊢ (𝐴 ∈ ω → suc 𝐴 ∈ ω)

Syntax hints:   → wi 4   ∧ wa 102   ↔ wb 103  ∀wal 1282   = wceq 1284   ∈ wcel 1433  [wsb 1685  {cab 2067  ∀wral 2348  Vcvv 2601  ∅c0 3251  ∩ cint 3636  suc csuc 4120  ωcom 4331

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-13 1444  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-sep 3896  ax-pow 3948  ax-pr 3964  ax-un 4188

This theorem depends on definitions:  df-bi 115  df-3an 921  df-tru 1287  df-nf 1390  df-sb 1686  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ral 2353  df-rex 2354  df-v 2603  df-un 2977  df-in 2979  df-ss 2986  df-pw 3384  df-sn 3404  df-pr 3405  df-uni 3602  df-int 3637  df-suc 4126  df-iom 4332

This theorem is referenced by:  peano5  4339  limom  4354  peano2b  4355  nnregexmid  4360  frecsuclem1  6010  frecsuclem3  6013  frecrdg  6015  nnacl  6082  nnacom  6086  nnmsucr  6090  nnsucsssuc  6094  nnaword  6107  1onn  6116  2onn  6117  3onn  6118  4onn  6119  nnaordex  6123  php5  6344  phplem4dom  6348  php5dom  6349  phplem4on  6353  dif1en  6364  findcard  6372  findcard2  6373  findcard2s  6374  unsnfi  6384  frec2uzrand  9407  frecuzrdgsuc  9417  frecfzennn  9419