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

Theorem nn1suc 7806
Description: If a statement holds for 1 and also holds for a successor, it holds for all positive integers. The first three hypotheses give us the substitution instances we need; the last two show that it holds for 1 and for a successor. (Contributed by NM, 11-Oct-2004.) (Revised by Mario Carneiro, 16-May-2014.)
Hypotheses
Ref Expression
nn1suc.1 (x = 1 → (φψ))
nn1suc.3 (x = (y + 1) → (φχ))
nn1suc.4 (x = A → (φθ))
nn1suc.5 ψ
nn1suc.6 (y ℕ → χ)
Assertion
Ref Expression
nn1suc (A ℕ → θ)
Distinct variable groups:   x,y,A   ψ,x   χ,x   θ,x   φ,y
Allowed substitution hints:   φ(x)   ψ(y)   χ(y)   θ(y)

Proof of Theorem nn1suc
StepHypRef Expression
1 nn1suc.5 . . . . 5 ψ
2 1ex 6912 . . . . . 6 1 V
3 nn1suc.1 . . . . . 6 (x = 1 → (φψ))
42, 3sbcie 2794 . . . . 5 ([1 / x]φψ)
51, 4mpbir 134 . . . 4 [1 / x]φ
6 1nn 7798 . . . . . . 7 1
7 eleq1 2100 . . . . . . 7 (A = 1 → (A ℕ ↔ 1 ℕ))
86, 7mpbiri 157 . . . . . 6 (A = 1 → A ℕ)
9 nn1suc.4 . . . . . . 7 (x = A → (φθ))
109sbcieg 2792 . . . . . 6 (A ℕ → ([A / x]φθ))
118, 10syl 14 . . . . 5 (A = 1 → ([A / x]φθ))
12 dfsbcq 2763 . . . . 5 (A = 1 → ([A / x]φ[1 / x]φ))
1311, 12bitr3d 179 . . . 4 (A = 1 → (θ[1 / x]φ))
145, 13mpbiri 157 . . 3 (A = 1 → θ)
1514a1i 9 . 2 (A ℕ → (A = 1 → θ))
16 elisset 2565 . . . 4 ((A − 1) ℕ → y y = (A − 1))
17 eleq1 2100 . . . . . 6 (y = (A − 1) → (y ℕ ↔ (A − 1) ℕ))
1817pm5.32ri 428 . . . . 5 ((y y = (A − 1)) ↔ ((A − 1) y = (A − 1)))
19 nn1suc.6 . . . . . . 7 (y ℕ → χ)
2019adantr 261 . . . . . 6 ((y y = (A − 1)) → χ)
21 nnre 7794 . . . . . . . . 9 (y ℕ → y ℝ)
22 peano2re 7038 . . . . . . . . 9 (y ℝ → (y + 1) ℝ)
23 nn1suc.3 . . . . . . . . . 10 (x = (y + 1) → (φχ))
2423sbcieg 2792 . . . . . . . . 9 ((y + 1) ℝ → ([(y + 1) / x]φχ))
2521, 22, 243syl 17 . . . . . . . 8 (y ℕ → ([(y + 1) / x]φχ))
2625adantr 261 . . . . . . 7 ((y y = (A − 1)) → ([(y + 1) / x]φχ))
27 oveq1 5465 . . . . . . . . 9 (y = (A − 1) → (y + 1) = ((A − 1) + 1))
2827sbceq1d 2766 . . . . . . . 8 (y = (A − 1) → ([(y + 1) / x]φ[((A − 1) + 1) / x]φ))
2928adantl 262 . . . . . . 7 ((y y = (A − 1)) → ([(y + 1) / x]φ[((A − 1) + 1) / x]φ))
3026, 29bitr3d 179 . . . . . 6 ((y y = (A − 1)) → (χ[((A − 1) + 1) / x]φ))
3120, 30mpbid 135 . . . . 5 ((y y = (A − 1)) → [((A − 1) + 1) / x]φ)
3218, 31sylbir 125 . . . 4 (((A − 1) y = (A − 1)) → [((A − 1) + 1) / x]φ)
3316, 32exlimddv 1778 . . 3 ((A − 1) ℕ → [((A − 1) + 1) / x]φ)
34 nncn 7795 . . . . . 6 (A ℕ → A ℂ)
35 ax-1cn 6867 . . . . . 6 1
36 npcan 7109 . . . . . 6 ((A 1 ℂ) → ((A − 1) + 1) = A)
3734, 35, 36sylancl 392 . . . . 5 (A ℕ → ((A − 1) + 1) = A)
3837sbceq1d 2766 . . . 4 (A ℕ → ([((A − 1) + 1) / x]φ[A / x]φ))
3938, 10bitrd 177 . . 3 (A ℕ → ([((A − 1) + 1) / x]φθ))
4033, 39syl5ib 143 . 2 (A ℕ → ((A − 1) ℕ → θ))
41 nn1m1nn 7805 . 2 (A ℕ → (A = 1 (A − 1) ℕ))
4215, 40, 41mpjaod 638 1 (A ℕ → θ)
Colors of variables: wff set class
Syntax hints:  wi 4   wa 97  wb 98   = wceq 1243   wcel 1393  [wsbc 2761  (class class class)co 5458  cc 6777  cr 6778  1c1 6780   + caddc 6782  cmin 7071  cn 7787
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-sep 3869  ax-pow 3921  ax-pr 3938  ax-setind 4223  ax-cnex 6865  ax-resscn 6866  ax-1cn 6867  ax-1re 6868  ax-icn 6869  ax-addcl 6870  ax-addrcl 6871  ax-mulcl 6872  ax-addcom 6874  ax-addass 6876  ax-distr 6878  ax-i2m1 6879  ax-0id 6882  ax-rnegex 6883  ax-cnre 6885
This theorem depends on definitions:  df-bi 110  df-3an 887  df-tru 1246  df-fal 1249  df-nf 1350  df-sb 1646  df-eu 1903  df-mo 1904  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ne 2206  df-ral 2308  df-rex 2309  df-reu 2310  df-rab 2312  df-v 2556  df-sbc 2762  df-dif 2917  df-un 2919  df-in 2921  df-ss 2928  df-pw 3356  df-sn 3376  df-pr 3377  df-op 3379  df-uni 3575  df-int 3610  df-br 3759  df-opab 3813  df-id 4024  df-xp 4297  df-rel 4298  df-cnv 4299  df-co 4300  df-dm 4301  df-iota 4813  df-fun 4850  df-fv 4856  df-riota 5414  df-ov 5461  df-oprab 5462  df-mpt2 5463  df-sub 7073  df-inn 7788
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator