Theorem nn0ind-raph 9359

Description: Principle of Mathematical Induction (inference schema) on nonnegative integers. The first four hypotheses give us the substitution instances we need; the last two are the basis and the induction step. Raph Levien remarks: "This seems a bit painful. I wonder if an explicit substitution version would be easier." (Contributed by Raph Levien, 10-Apr-2004.)

Hypotheses

Ref	Expression
nn0ind-raph.1	⊢ (𝑥 = 0 → (𝜑 ↔ 𝜓))
nn0ind-raph.2	⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜒))
nn0ind-raph.3	⊢ (𝑥 = (𝑦 + 1) → (𝜑 ↔ 𝜃))
nn0ind-raph.4	⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜏))
nn0ind-raph.5	⊢ 𝜓
nn0ind-raph.6	⊢ (𝑦 ∈ ℕ0 → (𝜒 → 𝜃))

Assertion

Ref	Expression
nn0ind-raph	⊢ (𝐴 ∈ ℕ0 → 𝜏)

Distinct variable groups:   𝑥,𝑦   𝑥,𝐴   𝜓,𝑥   𝜒,𝑥   𝜃,𝑥   𝜏,𝑥   𝜑,𝑦

Allowed substitution hints:   𝜑(𝑥)   𝜓(𝑦)   𝜒(𝑦)   𝜃(𝑦)   𝜏(𝑦)   𝐴(𝑦)

Proof of Theorem nn0ind-raph

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elnn0 9167	. 2 ⊢ (𝐴 ∈ ℕ0 ↔ (𝐴 ∈ ℕ ∨ 𝐴 = 0))
2		dfsbcq2 2965	. . . 4 ⊢ (𝑧 = 1 → ([𝑧 / 𝑥]𝜑 ↔ [1 / 𝑥]𝜑))
3		nfv 1528	. . . . 5 ⊢ Ⅎ𝑥𝜒
4		nn0ind-raph.2	. . . . 5 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜒))
5	3, 4	sbhypf 2786	. . . 4 ⊢ (𝑧 = 𝑦 → ([𝑧 / 𝑥]𝜑 ↔ 𝜒))
6		nfv 1528	. . . . 5 ⊢ Ⅎ𝑥𝜃
7		nn0ind-raph.3	. . . . 5 ⊢ (𝑥 = (𝑦 + 1) → (𝜑 ↔ 𝜃))
8	6, 7	sbhypf 2786	. . . 4 ⊢ (𝑧 = (𝑦 + 1) → ([𝑧 / 𝑥]𝜑 ↔ 𝜃))
9		nfv 1528	. . . . 5 ⊢ Ⅎ𝑥𝜏
10		nn0ind-raph.4	. . . . 5 ⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜏))
11	9, 10	sbhypf 2786	. . . 4 ⊢ (𝑧 = 𝐴 → ([𝑧 / 𝑥]𝜑 ↔ 𝜏))
12		nfsbc1v 2981	. . . . 5 ⊢ Ⅎ𝑥[1 / 𝑥]𝜑
13		1ex 7943	. . . . 5 ⊢ 1 ∈ V
14		c0ex 7942	. . . . . . 7 ⊢ 0 ∈ V
15		0nn0 9180	. . . . . . . . . . . 12 ⊢ 0 ∈ ℕ0
16		eleq1a 2249	. . . . . . . . . . . 12 ⊢ (0 ∈ ℕ0 → (𝑦 = 0 → 𝑦 ∈ ℕ0))
17	15, 16	ax-mp 5	. . . . . . . . . . 11 ⊢ (𝑦 = 0 → 𝑦 ∈ ℕ0)
18		nn0ind-raph.5	. . . . . . . . . . . . . . 15 ⊢ 𝜓
19		nn0ind-raph.1	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 0 → (𝜑 ↔ 𝜓))
20	18, 19	mpbiri 168	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 0 → 𝜑)
21		eqeq2 2187	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 0 → (𝑥 = 𝑦 ↔ 𝑥 = 0))
22	21, 4	syl6bir 164	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 0 → (𝑥 = 0 → (𝜑 ↔ 𝜒)))
23	22	pm5.74d 182	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 0 → ((𝑥 = 0 → 𝜑) ↔ (𝑥 = 0 → 𝜒)))
24	20, 23	mpbii 148	. . . . . . . . . . . . 13 ⊢ (𝑦 = 0 → (𝑥 = 0 → 𝜒))
25	24	com12 30	. . . . . . . . . . . 12 ⊢ (𝑥 = 0 → (𝑦 = 0 → 𝜒))
26	14, 25	vtocle 2811	. . . . . . . . . . 11 ⊢ (𝑦 = 0 → 𝜒)
27		nn0ind-raph.6	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ℕ0 → (𝜒 → 𝜃))
28	17, 26, 27	sylc 62	. . . . . . . . . 10 ⊢ (𝑦 = 0 → 𝜃)
29	28	adantr 276	. . . . . . . . 9 ⊢ ((𝑦 = 0 ∧ 𝑥 = 1) → 𝜃)
30		oveq1 5876	. . . . . . . . . . . . 13 ⊢ (𝑦 = 0 → (𝑦 + 1) = (0 + 1))
31		0p1e1 9022	. . . . . . . . . . . . 13 ⊢ (0 + 1) = 1
32	30, 31	eqtrdi 2226	. . . . . . . . . . . 12 ⊢ (𝑦 = 0 → (𝑦 + 1) = 1)
33	32	eqeq2d 2189	. . . . . . . . . . 11 ⊢ (𝑦 = 0 → (𝑥 = (𝑦 + 1) ↔ 𝑥 = 1))
34	33, 7	syl6bir 164	. . . . . . . . . 10 ⊢ (𝑦 = 0 → (𝑥 = 1 → (𝜑 ↔ 𝜃)))
35	34	imp 124	. . . . . . . . 9 ⊢ ((𝑦 = 0 ∧ 𝑥 = 1) → (𝜑 ↔ 𝜃))
36	29, 35	mpbird 167	. . . . . . . 8 ⊢ ((𝑦 = 0 ∧ 𝑥 = 1) → 𝜑)
37	36	ex 115	. . . . . . 7 ⊢ (𝑦 = 0 → (𝑥 = 1 → 𝜑))
38	14, 37	vtocle 2811	. . . . . 6 ⊢ (𝑥 = 1 → 𝜑)
39		sbceq1a 2972	. . . . . 6 ⊢ (𝑥 = 1 → (𝜑 ↔ [1 / 𝑥]𝜑))
40	38, 39	mpbid 147	. . . . 5 ⊢ (𝑥 = 1 → [1 / 𝑥]𝜑)
41	12, 13, 40	vtoclef 2810	. . . 4 ⊢ [1 / 𝑥]𝜑
42		nnnn0 9172	. . . . 5 ⊢ (𝑦 ∈ ℕ → 𝑦 ∈ ℕ0)
43	42, 27	syl 14	. . . 4 ⊢ (𝑦 ∈ ℕ → (𝜒 → 𝜃))
44	2, 5, 8, 11, 41, 43	nnind 8924	. . 3 ⊢ (𝐴 ∈ ℕ → 𝜏)
45		nfv 1528	. . . . 5 ⊢ Ⅎ𝑥(0 = 𝐴 → 𝜏)
46		eqeq1 2184	. . . . . 6 ⊢ (𝑥 = 0 → (𝑥 = 𝐴 ↔ 0 = 𝐴))
47	19	bicomd 141	. . . . . . . . 9 ⊢ (𝑥 = 0 → (𝜓 ↔ 𝜑))
48	47, 10	sylan9bb 462	. . . . . . . 8 ⊢ ((𝑥 = 0 ∧ 𝑥 = 𝐴) → (𝜓 ↔ 𝜏))
49	18, 48	mpbii 148	. . . . . . 7 ⊢ ((𝑥 = 0 ∧ 𝑥 = 𝐴) → 𝜏)
50	49	ex 115	. . . . . 6 ⊢ (𝑥 = 0 → (𝑥 = 𝐴 → 𝜏))
51	46, 50	sylbird 170	. . . . 5 ⊢ (𝑥 = 0 → (0 = 𝐴 → 𝜏))
52	45, 14, 51	vtoclef 2810	. . . 4 ⊢ (0 = 𝐴 → 𝜏)
53	52	eqcoms 2180	. . 3 ⊢ (𝐴 = 0 → 𝜏)
54	44, 53	jaoi 716	. 2 ⊢ ((𝐴 ∈ ℕ ∨ 𝐴 = 0) → 𝜏)
55	1, 54	sylbi 121	1 ⊢ (𝐴 ∈ ℕ0 → 𝜏)

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 708   = wceq 1353  [wsb 1762   ∈ wcel 2148  [wsbc 2962  (class class class)co 5869  0cc0 7802  1c1 7803   + caddc 7805  ℕcn 8908  ℕ₀cn0 9165

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-ext 2159  ax-sep 4118  ax-cnex 7893  ax-resscn 7894  ax-1cn 7895  ax-1re 7896  ax-icn 7897  ax-addcl 7898  ax-addrcl 7899  ax-mulcl 7900  ax-addcom 7902  ax-i2m1 7907  ax-0id 7910

This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-rab 2464  df-v 2739  df-sbc 2963  df-un 3133  df-in 3135  df-ss 3142  df-sn 3597  df-pr 3598  df-op 3600  df-uni 3808  df-int 3843  df-br 4001  df-iota 5174  df-fv 5220  df-ov 5872  df-inn 8909  df-n0 9166

This theorem is referenced by: (None)