Theorem omsinds 4606

Description: Strong (or "total") induction principle over ω. (Contributed by Scott Fenton, 17-Jul-2015.)

Hypotheses

Ref	Expression
omsinds.1	⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜓))
omsinds.2	⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜒))
omsinds.3	⊢ (𝑥 ∈ ω → (∀𝑦 ∈ 𝑥 𝜓 → 𝜑))

Assertion

Ref	Expression
omsinds	⊢ (𝐴 ∈ ω → 𝜒)

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

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

Proof of Theorem omsinds

Dummy variables 𝑤 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		omsinds.2	. 2 ⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜒))
2		suceq 4387	. . . 4 ⊢ (𝑤 = ∅ → suc 𝑤 = suc ∅)
3	2	raleqdv 2671	. . 3 ⊢ (𝑤 = ∅ → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc ∅𝜑))
4		suceq 4387	. . . 4 ⊢ (𝑤 = 𝑘 → suc 𝑤 = suc 𝑘)
5	4	raleqdv 2671	. . 3 ⊢ (𝑤 = 𝑘 → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc 𝑘𝜑))
6		suceq 4387	. . . 4 ⊢ (𝑤 = suc 𝑘 → suc 𝑤 = suc suc 𝑘)
7	6	raleqdv 2671	. . 3 ⊢ (𝑤 = suc 𝑘 → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc suc 𝑘𝜑))
8		suceq 4387	. . . 4 ⊢ (𝑤 = 𝐴 → suc 𝑤 = suc 𝐴)
9	8	raleqdv 2671	. . 3 ⊢ (𝑤 = 𝐴 → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc 𝐴𝜑))
10		ral0 3516	. . . . . 6 ⊢ ∀𝑦 ∈ ∅ 𝜓
11		omsinds.3	. . . . . . . 8 ⊢ (𝑥 ∈ ω → (∀𝑦 ∈ 𝑥 𝜓 → 𝜑))
12	11	rgen 2523	. . . . . . 7 ⊢ ∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑)
13		peano1 4578	. . . . . . . 8 ⊢ ∅ ∈ ω
14	10	nfth 1457	. . . . . . . . . 10 ⊢ Ⅎ𝑥∀𝑦 ∈ ∅ 𝜓
15		nfsbc1v 2973	. . . . . . . . . 10 ⊢ Ⅎ𝑥[∅ / 𝑥]𝜑
16	14, 15	nfim 1565	. . . . . . . . 9 ⊢ Ⅎ𝑥(∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)
17		raleq 2665	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → (∀𝑦 ∈ 𝑥 𝜓 ↔ ∀𝑦 ∈ ∅ 𝜓))
18		sbceq1a 2964	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → (𝜑 ↔ [∅ / 𝑥]𝜑))
19	17, 18	imbi12d 233	. . . . . . . . 9 ⊢ (𝑥 = ∅ → ((∀𝑦 ∈ 𝑥 𝜓 → 𝜑) ↔ (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)))
20	16, 19	rspc 2828	. . . . . . . 8 ⊢ (∅ ∈ ω → (∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑) → (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)))
21	13, 20	ax-mp 5	. . . . . . 7 ⊢ (∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑) → (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑))
22	12, 21	ax-mp 5	. . . . . 6 ⊢ (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)
23	10, 22	ax-mp 5	. . . . 5 ⊢ [∅ / 𝑥]𝜑
24		ralsns 3621	. . . . . 6 ⊢ (∅ ∈ ω → (∀𝑥 ∈ {∅}𝜑 ↔ [∅ / 𝑥]𝜑))
25	13, 24	ax-mp 5	. . . . 5 ⊢ (∀𝑥 ∈ {∅}𝜑 ↔ [∅ / 𝑥]𝜑)
26	23, 25	mpbir 145	. . . 4 ⊢ ∀𝑥 ∈ {∅}𝜑
27		suc0 4396	. . . . 5 ⊢ suc ∅ = {∅}
28	27	raleqi 2669	. . . 4 ⊢ (∀𝑥 ∈ suc ∅𝜑 ↔ ∀𝑥 ∈ {∅}𝜑)
29	26, 28	mpbir 145	. . 3 ⊢ ∀𝑥 ∈ suc ∅𝜑
30		simpr 109	. . . . . 6 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ suc 𝑘𝜑)
31		peano2 4579	. . . . . . . . 9 ⊢ (𝑘 ∈ ω → suc 𝑘 ∈ ω)
32	31	adantr 274	. . . . . . . 8 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → suc 𝑘 ∈ ω)
33		omsinds.1	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜓))
34	33	cbvralv 2696	. . . . . . . . 9 ⊢ (∀𝑥 ∈ suc 𝑘𝜑 ↔ ∀𝑦 ∈ suc 𝑘𝜓)
35	30, 34	sylib 121	. . . . . . . 8 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑦 ∈ suc 𝑘𝜓)
36		nfv 1521	. . . . . . . . . . 11 ⊢ Ⅎ𝑥∀𝑦 ∈ suc 𝑘𝜓
37		nfsbc1v 2973	. . . . . . . . . . 11 ⊢ Ⅎ𝑥[suc 𝑘 / 𝑥]𝜑
38	36, 37	nfim 1565	. . . . . . . . . 10 ⊢ Ⅎ𝑥(∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑)
39		raleq 2665	. . . . . . . . . . 11 ⊢ (𝑥 = suc 𝑘 → (∀𝑦 ∈ 𝑥 𝜓 ↔ ∀𝑦 ∈ suc 𝑘𝜓))
40		sbceq1a 2964	. . . . . . . . . . 11 ⊢ (𝑥 = suc 𝑘 → (𝜑 ↔ [suc 𝑘 / 𝑥]𝜑))
41	39, 40	imbi12d 233	. . . . . . . . . 10 ⊢ (𝑥 = suc 𝑘 → ((∀𝑦 ∈ 𝑥 𝜓 → 𝜑) ↔ (∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑)))
42	38, 41	rspc 2828	. . . . . . . . 9 ⊢ (suc 𝑘 ∈ ω → (∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑) → (∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑)))
43	12, 42	mpi 15	. . . . . . . 8 ⊢ (suc 𝑘 ∈ ω → (∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑))
44	32, 35, 43	sylc 62	. . . . . . 7 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → [suc 𝑘 / 𝑥]𝜑)
45		ralsns 3621	. . . . . . . 8 ⊢ (suc 𝑘 ∈ ω → (∀𝑥 ∈ {suc 𝑘}𝜑 ↔ [suc 𝑘 / 𝑥]𝜑))
46	32, 45	syl 14	. . . . . . 7 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → (∀𝑥 ∈ {suc 𝑘}𝜑 ↔ [suc 𝑘 / 𝑥]𝜑))
47	44, 46	mpbird 166	. . . . . 6 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ {suc 𝑘}𝜑)
48		ralun 3309	. . . . . 6 ⊢ ((∀𝑥 ∈ suc 𝑘𝜑 ∧ ∀𝑥 ∈ {suc 𝑘}𝜑) → ∀𝑥 ∈ (suc 𝑘 ∪ {suc 𝑘})𝜑)
49	30, 47, 48	syl2anc 409	. . . . 5 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ (suc 𝑘 ∪ {suc 𝑘})𝜑)
50		df-suc 4356	. . . . . . 7 ⊢ suc suc 𝑘 = (suc 𝑘 ∪ {suc 𝑘})
51	50	a1i 9	. . . . . 6 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → suc suc 𝑘 = (suc 𝑘 ∪ {suc 𝑘}))
52	51	raleqdv 2671	. . . . 5 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → (∀𝑥 ∈ suc suc 𝑘𝜑 ↔ ∀𝑥 ∈ (suc 𝑘 ∪ {suc 𝑘})𝜑))
53	49, 52	mpbird 166	. . . 4 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ suc suc 𝑘𝜑)
54	53	ex 114	. . 3 ⊢ (𝑘 ∈ ω → (∀𝑥 ∈ suc 𝑘𝜑 → ∀𝑥 ∈ suc suc 𝑘𝜑))
55	3, 5, 7, 9, 29, 54	finds 4584	. 2 ⊢ (𝐴 ∈ ω → ∀𝑥 ∈ suc 𝐴𝜑)
56		sucidg 4401	. 2 ⊢ (𝐴 ∈ ω → 𝐴 ∈ suc 𝐴)
57	1, 55, 56	rspcdva 2839	1 ⊢ (𝐴 ∈ ω → 𝜒)

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1348   ∈ wcel 2141  ∀wral 2448  [wsbc 2955   ∪ cun 3119  ∅c0 3414  {csn 3583  suc csuc 4350  ωcom 4574

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-sep 4107  ax-nul 4115  ax-pow 4160  ax-pr 4194  ax-un 4418  ax-iinf 4572

This theorem depends on definitions:  df-bi 116  df-3an 975  df-tru 1351  df-nf 1454  df-sb 1756  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ral 2453  df-rex 2454  df-v 2732  df-sbc 2956  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-pw 3568  df-sn 3589  df-pr 3590  df-uni 3797  df-int 3832  df-suc 4356  df-iom 4575

This theorem is referenced by:  nninfalllem1  14041  nninfsellemqall  14048