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

Theorem peano5nni 10872
Description: Peano's inductive postulate. Theorem I.36 (principle of mathematical induction) of [Apostol] p. 34. (Contributed by NM, 10-Jan-1997.) (Revised by Mario Carneiro, 17-Nov-2014.)
Assertion
Ref Expression
peano5nni ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → ℕ ⊆ 𝐴)
Distinct variable group:   𝑥,𝐴

Proof of Theorem peano5nni
Dummy variables 𝑛 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-nn 10870 . . 3 ℕ = (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) “ ω)
2 df-ima 5040 . . 3 (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) “ ω) = ran (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)
31, 2eqtri 2631 . 2 ℕ = ran (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)
4 frfnom 7394 . . . . 5 (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω) Fn ω
54a1i 11 . . . 4 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω) Fn ω)
6 fveq2 6087 . . . . . . . 8 (𝑦 = ∅ → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) = ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘∅))
76eleq1d 2671 . . . . . . 7 (𝑦 = ∅ → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴 ↔ ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘∅) ∈ 𝐴))
8 fveq2 6087 . . . . . . . 8 (𝑦 = 𝑧 → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) = ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧))
98eleq1d 2671 . . . . . . 7 (𝑦 = 𝑧 → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴 ↔ ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) ∈ 𝐴))
10 fveq2 6087 . . . . . . . 8 (𝑦 = suc 𝑧 → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) = ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧))
1110eleq1d 2671 . . . . . . 7 (𝑦 = suc 𝑧 → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴 ↔ ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) ∈ 𝐴))
12 ax-1cn 9850 . . . . . . . . 9 1 ∈ ℂ
13 fr0g 7395 . . . . . . . . 9 (1 ∈ ℂ → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘∅) = 1)
1412, 13ax-mp 5 . . . . . . . 8 ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘∅) = 1
15 simpl 471 . . . . . . . 8 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → 1 ∈ 𝐴)
1614, 15syl5eqel 2691 . . . . . . 7 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘∅) ∈ 𝐴)
17 oveq1 6533 . . . . . . . . . . . 12 (𝑥 = ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) → (𝑥 + 1) = (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1))
1817eleq1d 2671 . . . . . . . . . . 11 (𝑥 = ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) → ((𝑥 + 1) ∈ 𝐴 ↔ (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ 𝐴))
1918rspccv 3278 . . . . . . . . . 10 (∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴 → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) ∈ 𝐴 → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ 𝐴))
2019ad2antlr 758 . . . . . . . . 9 (((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) ∧ 𝑧 ∈ ω) → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) ∈ 𝐴 → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ 𝐴))
21 ovex 6554 . . . . . . . . . . . 12 (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ V
22 eqid 2609 . . . . . . . . . . . . 13 (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω) = (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)
23 oveq1 6533 . . . . . . . . . . . . 13 (𝑦 = 𝑛 → (𝑦 + 1) = (𝑛 + 1))
24 oveq1 6533 . . . . . . . . . . . . 13 (𝑦 = ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) → (𝑦 + 1) = (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1))
2522, 23, 24frsucmpt2 7399 . . . . . . . . . . . 12 ((𝑧 ∈ ω ∧ (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ V) → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) = (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1))
2621, 25mpan2 702 . . . . . . . . . . 11 (𝑧 ∈ ω → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) = (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1))
2726eleq1d 2671 . . . . . . . . . 10 (𝑧 ∈ ω → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) ∈ 𝐴 ↔ (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ 𝐴))
2827adantl 480 . . . . . . . . 9 (((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) ∧ 𝑧 ∈ ω) → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) ∈ 𝐴 ↔ (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) + 1) ∈ 𝐴))
2920, 28sylibrd 247 . . . . . . . 8 (((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) ∧ 𝑧 ∈ ω) → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) ∈ 𝐴 → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) ∈ 𝐴))
3029expcom 449 . . . . . . 7 (𝑧 ∈ ω → ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → (((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑧) ∈ 𝐴 → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘suc 𝑧) ∈ 𝐴)))
317, 9, 11, 16, 30finds2 6963 . . . . . 6 (𝑦 ∈ ω → ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴))
3231com12 32 . . . . 5 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → (𝑦 ∈ ω → ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴))
3332ralrimiv 2947 . . . 4 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → ∀𝑦 ∈ ω ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴)
34 ffnfv 6279 . . . 4 ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω):ω⟶𝐴 ↔ ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω) Fn ω ∧ ∀𝑦 ∈ ω ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω)‘𝑦) ∈ 𝐴))
355, 33, 34sylanbrc 694 . . 3 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω):ω⟶𝐴)
36 frn 5951 . . 3 ((rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω):ω⟶𝐴 → ran (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω) ⊆ 𝐴)
3735, 36syl 17 . 2 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → ran (rec((𝑛 ∈ V ↦ (𝑛 + 1)), 1) ↾ ω) ⊆ 𝐴)
383, 37syl5eqss 3611 1 ((1 ∈ 𝐴 ∧ ∀𝑥𝐴 (𝑥 + 1) ∈ 𝐴) → ℕ ⊆ 𝐴)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 194  wa 382   = wceq 1474  wcel 1976  wral 2895  Vcvv 3172  wss 3539  c0 3873  cmpt 4637  ran crn 5028  cres 5029  cima 5030  suc csuc 5627   Fn wfn 5784  wf 5785  cfv 5789  (class class class)co 6526  ωcom 6934  reccrdg 7369  cc 9790  1c1 9793   + caddc 9795  cn 10869
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1712  ax-4 1727  ax-5 1826  ax-6 1874  ax-7 1921  ax-8 1978  ax-9 1985  ax-10 2005  ax-11 2020  ax-12 2033  ax-13 2233  ax-ext 2589  ax-sep 4703  ax-nul 4711  ax-pow 4763  ax-pr 4827  ax-un 6824  ax-1cn 9850
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1867  df-eu 2461  df-mo 2462  df-clab 2596  df-cleq 2602  df-clel 2605  df-nfc 2739  df-ne 2781  df-ral 2900  df-rex 2901  df-reu 2902  df-rab 2904  df-v 3174  df-sbc 3402  df-csb 3499  df-dif 3542  df-un 3544  df-in 3546  df-ss 3553  df-pss 3555  df-nul 3874  df-if 4036  df-pw 4109  df-sn 4125  df-pr 4127  df-tp 4129  df-op 4131  df-uni 4367  df-iun 4451  df-br 4578  df-opab 4638  df-mpt 4639  df-tr 4675  df-eprel 4938  df-id 4942  df-po 4948  df-so 4949  df-fr 4986  df-we 4988  df-xp 5033  df-rel 5034  df-cnv 5035  df-co 5036  df-dm 5037  df-rn 5038  df-res 5039  df-ima 5040  df-pred 5582  df-ord 5628  df-on 5629  df-lim 5630  df-suc 5631  df-iota 5753  df-fun 5791  df-fn 5792  df-f 5793  df-f1 5794  df-fo 5795  df-f1o 5796  df-fv 5797  df-ov 6529  df-om 6935  df-wrecs 7271  df-recs 7332  df-rdg 7370  df-nn 10870
This theorem is referenced by:  nnssre  10873  dfnn2  10882  nnind  10887  nnindf  28745
  Copyright terms: Public domain W3C validator