ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  peano2nn GIF version

Theorem peano2nn 8001
Description: Peano postulate: a successor of a positive integer is a positive integer. (Contributed by NM, 11-Jan-1997.) (Revised by Mario Carneiro, 17-Nov-2014.)
Assertion
Ref Expression
peano2nn (𝐴 ∈ ℕ → (𝐴 + 1) ∈ ℕ)

Proof of Theorem peano2nn
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dfnn2 7991 . . . . . 6 ℕ = {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)}
21eleq2i 2120 . . . . 5 (𝐴 ∈ ℕ ↔ 𝐴 {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)})
3 elintg 3650 . . . . 5 (𝐴 ∈ ℕ → (𝐴 {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} ↔ ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)}𝐴𝑧))
42, 3syl5bb 185 . . . 4 (𝐴 ∈ ℕ → (𝐴 ∈ ℕ ↔ ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)}𝐴𝑧))
54ibi 169 . . 3 (𝐴 ∈ ℕ → ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)}𝐴𝑧)
6 vex 2577 . . . . . . . 8 𝑧 ∈ V
7 eleq2 2117 . . . . . . . . 9 (𝑥 = 𝑧 → (1 ∈ 𝑥 ↔ 1 ∈ 𝑧))
8 eleq2 2117 . . . . . . . . . 10 (𝑥 = 𝑧 → ((𝑦 + 1) ∈ 𝑥 ↔ (𝑦 + 1) ∈ 𝑧))
98raleqbi1dv 2530 . . . . . . . . 9 (𝑥 = 𝑧 → (∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥 ↔ ∀𝑦𝑧 (𝑦 + 1) ∈ 𝑧))
107, 9anbi12d 450 . . . . . . . 8 (𝑥 = 𝑧 → ((1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥) ↔ (1 ∈ 𝑧 ∧ ∀𝑦𝑧 (𝑦 + 1) ∈ 𝑧)))
116, 10elab 2709 . . . . . . 7 (𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} ↔ (1 ∈ 𝑧 ∧ ∀𝑦𝑧 (𝑦 + 1) ∈ 𝑧))
1211simprbi 264 . . . . . 6 (𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} → ∀𝑦𝑧 (𝑦 + 1) ∈ 𝑧)
13 oveq1 5546 . . . . . . . 8 (𝑦 = 𝐴 → (𝑦 + 1) = (𝐴 + 1))
1413eleq1d 2122 . . . . . . 7 (𝑦 = 𝐴 → ((𝑦 + 1) ∈ 𝑧 ↔ (𝐴 + 1) ∈ 𝑧))
1514rspcva 2671 . . . . . 6 ((𝐴𝑧 ∧ ∀𝑦𝑧 (𝑦 + 1) ∈ 𝑧) → (𝐴 + 1) ∈ 𝑧)
1612, 15sylan2 274 . . . . 5 ((𝐴𝑧𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)}) → (𝐴 + 1) ∈ 𝑧)
1716expcom 113 . . . 4 (𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} → (𝐴𝑧 → (𝐴 + 1) ∈ 𝑧))
1817ralimia 2399 . . 3 (∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)}𝐴𝑧 → ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} (𝐴 + 1) ∈ 𝑧)
195, 18syl 14 . 2 (𝐴 ∈ ℕ → ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} (𝐴 + 1) ∈ 𝑧)
20 nnre 7996 . . . 4 (𝐴 ∈ ℕ → 𝐴 ∈ ℝ)
21 1red 7099 . . . 4 (𝐴 ∈ ℕ → 1 ∈ ℝ)
2220, 21readdcld 7113 . . 3 (𝐴 ∈ ℕ → (𝐴 + 1) ∈ ℝ)
231eleq2i 2120 . . . 4 ((𝐴 + 1) ∈ ℕ ↔ (𝐴 + 1) ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)})
24 elintg 3650 . . . 4 ((𝐴 + 1) ∈ ℝ → ((𝐴 + 1) ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} ↔ ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} (𝐴 + 1) ∈ 𝑧))
2523, 24syl5bb 185 . . 3 ((𝐴 + 1) ∈ ℝ → ((𝐴 + 1) ∈ ℕ ↔ ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} (𝐴 + 1) ∈ 𝑧))
2622, 25syl 14 . 2 (𝐴 ∈ ℕ → ((𝐴 + 1) ∈ ℕ ↔ ∀𝑧 ∈ {𝑥 ∣ (1 ∈ 𝑥 ∧ ∀𝑦𝑥 (𝑦 + 1) ∈ 𝑥)} (𝐴 + 1) ∈ 𝑧))
2719, 26mpbird 160 1 (𝐴 ∈ ℕ → (𝐴 + 1) ∈ ℕ)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 101  wb 102   = wceq 1259  wcel 1409  {cab 2042  wral 2323   cint 3642  (class class class)co 5539  cr 6945  1c1 6947   + caddc 6949  cn 7989
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 103  ax-ia2 104  ax-ia3 105  ax-io 640  ax-5 1352  ax-7 1353  ax-gen 1354  ax-ie1 1398  ax-ie2 1399  ax-8 1411  ax-10 1412  ax-11 1413  ax-i12 1414  ax-bndl 1415  ax-4 1416  ax-17 1435  ax-i9 1439  ax-ial 1443  ax-i5r 1444  ax-ext 2038  ax-sep 3902  ax-cnex 7032  ax-resscn 7033  ax-1re 7035  ax-addrcl 7038
This theorem depends on definitions:  df-bi 114  df-3an 898  df-tru 1262  df-nf 1366  df-sb 1662  df-clab 2043  df-cleq 2049  df-clel 2052  df-nfc 2183  df-ral 2328  df-rex 2329  df-v 2576  df-un 2949  df-in 2951  df-ss 2958  df-sn 3408  df-pr 3409  df-op 3411  df-uni 3608  df-int 3643  df-br 3792  df-iota 4894  df-fv 4937  df-ov 5542  df-inn 7990
This theorem is referenced by:  peano2nnd  8004  nnind  8005  nnaddcl  8009  2nn  8143  3nn  8144  4nn  8145  5nn  8146  6nn  8147  7nn  8148  8nn  8149  9nn  8150  nneoor  8398  10nn  8441  fzonn0p1p1  9170  expp1  9421  facp1  9591  resqrexlemfp1  9828  resqrexlemcalc3  9835  nno  10210  nnoddm1d2  10214  sqrt2irr  10223
  Copyright terms: Public domain W3C validator