MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  peano5 Structured version   Visualization version   GIF version

Theorem peano5 7131
Description: The induction postulate: any class containing zero and closed under the successor operation contains all natural numbers. One of Peano's five postulates for arithmetic. Proposition 7.30(5) of [TakeutiZaring] p. 43, except our proof does not require the Axiom of Infinity. The more traditional statement of mathematical induction as a theorem schema, with a basis and an induction step, is derived from this theorem as theorem findes 7138. (Contributed by NM, 18-Feb-2004.)
Assertion
Ref Expression
peano5 ((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) → ω ⊆ 𝐴)
Distinct variable group:   𝑥,𝐴

Proof of Theorem peano5
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 eldifn 3766 . . . . . 6 (𝑦 ∈ (ω ∖ 𝐴) → ¬ 𝑦𝐴)
21adantl 481 . . . . 5 (((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) ∧ 𝑦 ∈ (ω ∖ 𝐴)) → ¬ 𝑦𝐴)
3 eldifi 3765 . . . . . . . . . 10 (𝑦 ∈ (ω ∖ 𝐴) → 𝑦 ∈ ω)
43adantl 481 . . . . . . . . 9 ((∅ ∈ 𝐴𝑦 ∈ (ω ∖ 𝐴)) → 𝑦 ∈ ω)
5 elndif 3767 . . . . . . . . . 10 (∅ ∈ 𝐴 → ¬ ∅ ∈ (ω ∖ 𝐴))
6 eleq1 2718 . . . . . . . . . . . 12 (𝑦 = ∅ → (𝑦 ∈ (ω ∖ 𝐴) ↔ ∅ ∈ (ω ∖ 𝐴)))
76biimpcd 239 . . . . . . . . . . 11 (𝑦 ∈ (ω ∖ 𝐴) → (𝑦 = ∅ → ∅ ∈ (ω ∖ 𝐴)))
87necon3bd 2837 . . . . . . . . . 10 (𝑦 ∈ (ω ∖ 𝐴) → (¬ ∅ ∈ (ω ∖ 𝐴) → 𝑦 ≠ ∅))
95, 8mpan9 485 . . . . . . . . 9 ((∅ ∈ 𝐴𝑦 ∈ (ω ∖ 𝐴)) → 𝑦 ≠ ∅)
10 nnsuc 7124 . . . . . . . . 9 ((𝑦 ∈ ω ∧ 𝑦 ≠ ∅) → ∃𝑥 ∈ ω 𝑦 = suc 𝑥)
114, 9, 10syl2anc 694 . . . . . . . 8 ((∅ ∈ 𝐴𝑦 ∈ (ω ∖ 𝐴)) → ∃𝑥 ∈ ω 𝑦 = suc 𝑥)
1211adantlr 751 . . . . . . 7 (((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) ∧ 𝑦 ∈ (ω ∖ 𝐴)) → ∃𝑥 ∈ ω 𝑦 = suc 𝑥)
1312adantr 480 . . . . . 6 ((((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) ∧ 𝑦 ∈ (ω ∖ 𝐴)) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → ∃𝑥 ∈ ω 𝑦 = suc 𝑥)
14 nfra1 2970 . . . . . . . . . . 11 𝑥𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)
15 nfv 1883 . . . . . . . . . . 11 𝑥(𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅)
1614, 15nfan 1868 . . . . . . . . . 10 𝑥(∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴) ∧ (𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅))
17 nfv 1883 . . . . . . . . . 10 𝑥 𝑦𝐴
18 rsp 2958 . . . . . . . . . . 11 (∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴) → (𝑥 ∈ ω → (𝑥𝐴 → suc 𝑥𝐴)))
19 vex 3234 . . . . . . . . . . . . . . . . . 18 𝑥 ∈ V
2019sucid 5842 . . . . . . . . . . . . . . . . 17 𝑥 ∈ suc 𝑥
21 eleq2 2719 . . . . . . . . . . . . . . . . 17 (𝑦 = suc 𝑥 → (𝑥𝑦𝑥 ∈ suc 𝑥))
2220, 21mpbiri 248 . . . . . . . . . . . . . . . 16 (𝑦 = suc 𝑥𝑥𝑦)
23 eleq1 2718 . . . . . . . . . . . . . . . . . 18 (𝑦 = suc 𝑥 → (𝑦 ∈ ω ↔ suc 𝑥 ∈ ω))
24 peano2b 7123 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ ω ↔ suc 𝑥 ∈ ω)
2523, 24syl6bbr 278 . . . . . . . . . . . . . . . . 17 (𝑦 = suc 𝑥 → (𝑦 ∈ ω ↔ 𝑥 ∈ ω))
26 minel 4066 . . . . . . . . . . . . . . . . . . 19 ((𝑥𝑦 ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → ¬ 𝑥 ∈ (ω ∖ 𝐴))
27 neldif 3768 . . . . . . . . . . . . . . . . . . 19 ((𝑥 ∈ ω ∧ ¬ 𝑥 ∈ (ω ∖ 𝐴)) → 𝑥𝐴)
2826, 27sylan2 490 . . . . . . . . . . . . . . . . . 18 ((𝑥 ∈ ω ∧ (𝑥𝑦 ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅)) → 𝑥𝐴)
2928exp32 630 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ ω → (𝑥𝑦 → (((ω ∖ 𝐴) ∩ 𝑦) = ∅ → 𝑥𝐴)))
3025, 29syl6bi 243 . . . . . . . . . . . . . . . 16 (𝑦 = suc 𝑥 → (𝑦 ∈ ω → (𝑥𝑦 → (((ω ∖ 𝐴) ∩ 𝑦) = ∅ → 𝑥𝐴))))
3122, 30mpid 44 . . . . . . . . . . . . . . 15 (𝑦 = suc 𝑥 → (𝑦 ∈ ω → (((ω ∖ 𝐴) ∩ 𝑦) = ∅ → 𝑥𝐴)))
323, 31syl5 34 . . . . . . . . . . . . . 14 (𝑦 = suc 𝑥 → (𝑦 ∈ (ω ∖ 𝐴) → (((ω ∖ 𝐴) ∩ 𝑦) = ∅ → 𝑥𝐴)))
3332impd 446 . . . . . . . . . . . . 13 (𝑦 = suc 𝑥 → ((𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → 𝑥𝐴))
34 eleq1a 2725 . . . . . . . . . . . . . 14 (suc 𝑥𝐴 → (𝑦 = suc 𝑥𝑦𝐴))
3534com12 32 . . . . . . . . . . . . 13 (𝑦 = suc 𝑥 → (suc 𝑥𝐴𝑦𝐴))
3633, 35imim12d 81 . . . . . . . . . . . 12 (𝑦 = suc 𝑥 → ((𝑥𝐴 → suc 𝑥𝐴) → ((𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → 𝑦𝐴)))
3736com13 88 . . . . . . . . . . 11 ((𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → ((𝑥𝐴 → suc 𝑥𝐴) → (𝑦 = suc 𝑥𝑦𝐴)))
3818, 37sylan9 690 . . . . . . . . . 10 ((∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴) ∧ (𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅)) → (𝑥 ∈ ω → (𝑦 = suc 𝑥𝑦𝐴)))
3916, 17, 38rexlimd 3055 . . . . . . . . 9 ((∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴) ∧ (𝑦 ∈ (ω ∖ 𝐴) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅)) → (∃𝑥 ∈ ω 𝑦 = suc 𝑥𝑦𝐴))
4039exp32 630 . . . . . . . 8 (∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴) → (𝑦 ∈ (ω ∖ 𝐴) → (((ω ∖ 𝐴) ∩ 𝑦) = ∅ → (∃𝑥 ∈ ω 𝑦 = suc 𝑥𝑦𝐴))))
4140a1i 11 . . . . . . 7 (∅ ∈ 𝐴 → (∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴) → (𝑦 ∈ (ω ∖ 𝐴) → (((ω ∖ 𝐴) ∩ 𝑦) = ∅ → (∃𝑥 ∈ ω 𝑦 = suc 𝑥𝑦𝐴)))))
4241imp41 618 . . . . . 6 ((((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) ∧ 𝑦 ∈ (ω ∖ 𝐴)) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → (∃𝑥 ∈ ω 𝑦 = suc 𝑥𝑦𝐴))
4313, 42mpd 15 . . . . 5 ((((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) ∧ 𝑦 ∈ (ω ∖ 𝐴)) ∧ ((ω ∖ 𝐴) ∩ 𝑦) = ∅) → 𝑦𝐴)
442, 43mtand 692 . . . 4 (((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) ∧ 𝑦 ∈ (ω ∖ 𝐴)) → ¬ ((ω ∖ 𝐴) ∩ 𝑦) = ∅)
4544nrexdv 3030 . . 3 ((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) → ¬ ∃𝑦 ∈ (ω ∖ 𝐴)((ω ∖ 𝐴) ∩ 𝑦) = ∅)
46 ordom 7116 . . . . 5 Ord ω
47 difss 3770 . . . . 5 (ω ∖ 𝐴) ⊆ ω
48 tz7.5 5782 . . . . 5 ((Ord ω ∧ (ω ∖ 𝐴) ⊆ ω ∧ (ω ∖ 𝐴) ≠ ∅) → ∃𝑦 ∈ (ω ∖ 𝐴)((ω ∖ 𝐴) ∩ 𝑦) = ∅)
4946, 47, 48mp3an12 1454 . . . 4 ((ω ∖ 𝐴) ≠ ∅ → ∃𝑦 ∈ (ω ∖ 𝐴)((ω ∖ 𝐴) ∩ 𝑦) = ∅)
5049necon1bi 2851 . . 3 (¬ ∃𝑦 ∈ (ω ∖ 𝐴)((ω ∖ 𝐴) ∩ 𝑦) = ∅ → (ω ∖ 𝐴) = ∅)
5145, 50syl 17 . 2 ((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) → (ω ∖ 𝐴) = ∅)
52 ssdif0 3975 . 2 (ω ⊆ 𝐴 ↔ (ω ∖ 𝐴) = ∅)
5351, 52sylibr 224 1 ((∅ ∈ 𝐴 ∧ ∀𝑥 ∈ ω (𝑥𝐴 → suc 𝑥𝐴)) → ω ⊆ 𝐴)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 383   = wceq 1523  wcel 2030  wne 2823  wral 2941  wrex 2942  cdif 3604  cin 3606  wss 3607  c0 3948  Ord word 5760  suc csuc 5763  ωcom 7107
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-sep 4814  ax-nul 4822  ax-pr 4936  ax-un 6991
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-ral 2946  df-rex 2947  df-rab 2950  df-v 3233  df-sbc 3469  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-br 4686  df-opab 4746  df-tr 4786  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-we 5104  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-om 7108
This theorem is referenced by:  find  7133  finds  7134  finds2  7136  omex  8578  dfom3  8582
  Copyright terms: Public domain W3C validator