Theorem omsinds 4530

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 4319	. . . 4 ⊢ (𝑤 = ∅ → suc 𝑤 = suc ∅)
3	2	raleqdv 2630	. . 3 ⊢ (𝑤 = ∅ → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc ∅𝜑))
4		suceq 4319	. . . 4 ⊢ (𝑤 = 𝑘 → suc 𝑤 = suc 𝑘)
5	4	raleqdv 2630	. . 3 ⊢ (𝑤 = 𝑘 → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc 𝑘𝜑))
6		suceq 4319	. . . 4 ⊢ (𝑤 = suc 𝑘 → suc 𝑤 = suc suc 𝑘)
7	6	raleqdv 2630	. . 3 ⊢ (𝑤 = suc 𝑘 → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc suc 𝑘𝜑))
8		suceq 4319	. . . 4 ⊢ (𝑤 = 𝐴 → suc 𝑤 = suc 𝐴)
9	8	raleqdv 2630	. . 3 ⊢ (𝑤 = 𝐴 → (∀𝑥 ∈ suc 𝑤𝜑 ↔ ∀𝑥 ∈ suc 𝐴𝜑))
10		ral0 3459	. . . . . 6 ⊢ ∀𝑦 ∈ ∅ 𝜓
11		omsinds.3	. . . . . . . 8 ⊢ (𝑥 ∈ ω → (∀𝑦 ∈ 𝑥 𝜓 → 𝜑))
12	11	rgen 2483	. . . . . . 7 ⊢ ∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑)
13		peano1 4503	. . . . . . . 8 ⊢ ∅ ∈ ω
14	10	nfth 1440	. . . . . . . . . 10 ⊢ Ⅎ𝑥∀𝑦 ∈ ∅ 𝜓
15		nfsbc1v 2922	. . . . . . . . . 10 ⊢ Ⅎ𝑥[∅ / 𝑥]𝜑
16	14, 15	nfim 1551	. . . . . . . . 9 ⊢ Ⅎ𝑥(∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)
17		raleq 2624	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → (∀𝑦 ∈ 𝑥 𝜓 ↔ ∀𝑦 ∈ ∅ 𝜓))
18		sbceq1a 2913	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → (𝜑 ↔ [∅ / 𝑥]𝜑))
19	17, 18	imbi12d 233	. . . . . . . . 9 ⊢ (𝑥 = ∅ → ((∀𝑦 ∈ 𝑥 𝜓 → 𝜑) ↔ (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)))
20	16, 19	rspc 2778	. . . . . . . 8 ⊢ (∅ ∈ ω → (∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑) → (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)))
21	13, 20	ax-mp 5	. . . . . . 7 ⊢ (∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑) → (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑))
22	12, 21	ax-mp 5	. . . . . 6 ⊢ (∀𝑦 ∈ ∅ 𝜓 → [∅ / 𝑥]𝜑)
23	10, 22	ax-mp 5	. . . . 5 ⊢ [∅ / 𝑥]𝜑
24		ralsns 3557	. . . . . 6 ⊢ (∅ ∈ ω → (∀𝑥 ∈ {∅}𝜑 ↔ [∅ / 𝑥]𝜑))
25	13, 24	ax-mp 5	. . . . 5 ⊢ (∀𝑥 ∈ {∅}𝜑 ↔ [∅ / 𝑥]𝜑)
26	23, 25	mpbir 145	. . . 4 ⊢ ∀𝑥 ∈ {∅}𝜑
27		suc0 4328	. . . . 5 ⊢ suc ∅ = {∅}
28	27	raleqi 2628	. . . 4 ⊢ (∀𝑥 ∈ suc ∅𝜑 ↔ ∀𝑥 ∈ {∅}𝜑)
29	26, 28	mpbir 145	. . 3 ⊢ ∀𝑥 ∈ suc ∅𝜑
30		simpr 109	. . . . . 6 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ suc 𝑘𝜑)
31		peano2 4504	. . . . . . . . 9 ⊢ (𝑘 ∈ ω → suc 𝑘 ∈ ω)
32	31	adantr 274	. . . . . . . 8 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → suc 𝑘 ∈ ω)
33		omsinds.1	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜓))
34	33	cbvralv 2652	. . . . . . . . 9 ⊢ (∀𝑥 ∈ suc 𝑘𝜑 ↔ ∀𝑦 ∈ suc 𝑘𝜓)
35	30, 34	sylib 121	. . . . . . . 8 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑦 ∈ suc 𝑘𝜓)
36		nfv 1508	. . . . . . . . . . 11 ⊢ Ⅎ𝑥∀𝑦 ∈ suc 𝑘𝜓
37		nfsbc1v 2922	. . . . . . . . . . 11 ⊢ Ⅎ𝑥[suc 𝑘 / 𝑥]𝜑
38	36, 37	nfim 1551	. . . . . . . . . 10 ⊢ Ⅎ𝑥(∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑)
39		raleq 2624	. . . . . . . . . . 11 ⊢ (𝑥 = suc 𝑘 → (∀𝑦 ∈ 𝑥 𝜓 ↔ ∀𝑦 ∈ suc 𝑘𝜓))
40		sbceq1a 2913	. . . . . . . . . . 11 ⊢ (𝑥 = suc 𝑘 → (𝜑 ↔ [suc 𝑘 / 𝑥]𝜑))
41	39, 40	imbi12d 233	. . . . . . . . . 10 ⊢ (𝑥 = suc 𝑘 → ((∀𝑦 ∈ 𝑥 𝜓 → 𝜑) ↔ (∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑)))
42	38, 41	rspc 2778	. . . . . . . . 9 ⊢ (suc 𝑘 ∈ ω → (∀𝑥 ∈ ω (∀𝑦 ∈ 𝑥 𝜓 → 𝜑) → (∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑)))
43	12, 42	mpi 15	. . . . . . . 8 ⊢ (suc 𝑘 ∈ ω → (∀𝑦 ∈ suc 𝑘𝜓 → [suc 𝑘 / 𝑥]𝜑))
44	32, 35, 43	sylc 62	. . . . . . 7 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → [suc 𝑘 / 𝑥]𝜑)
45		ralsns 3557	. . . . . . . 8 ⊢ (suc 𝑘 ∈ ω → (∀𝑥 ∈ {suc 𝑘}𝜑 ↔ [suc 𝑘 / 𝑥]𝜑))
46	32, 45	syl 14	. . . . . . 7 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → (∀𝑥 ∈ {suc 𝑘}𝜑 ↔ [suc 𝑘 / 𝑥]𝜑))
47	44, 46	mpbird 166	. . . . . 6 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ {suc 𝑘}𝜑)
48		ralun 3253	. . . . . 6 ⊢ ((∀𝑥 ∈ suc 𝑘𝜑 ∧ ∀𝑥 ∈ {suc 𝑘}𝜑) → ∀𝑥 ∈ (suc 𝑘 ∪ {suc 𝑘})𝜑)
49	30, 47, 48	syl2anc 408	. . . . 5 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → ∀𝑥 ∈ (suc 𝑘 ∪ {suc 𝑘})𝜑)
50		df-suc 4288	. . . . . . 7 ⊢ suc suc 𝑘 = (suc 𝑘 ∪ {suc 𝑘})
51	50	a1i 9	. . . . . 6 ⊢ ((𝑘 ∈ ω ∧ ∀𝑥 ∈ suc 𝑘𝜑) → suc suc 𝑘 = (suc 𝑘 ∪ {suc 𝑘}))
52	51	raleqdv 2630	. . . . 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 4509	. 2 ⊢ (𝐴 ∈ ω → ∀𝑥 ∈ suc 𝐴𝜑)
56		sucidg 4333	. 2 ⊢ (𝐴 ∈ ω → 𝐴 ∈ suc 𝐴)
57	1, 55, 56	rspcdva 2789	1 ⊢ (𝐴 ∈ ω → 𝜒)

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1331   ∈ wcel 1480  ∀wral 2414  [wsbc 2904   ∪ cun 3064  ∅c0 3358  {csn 3522  suc csuc 4282  ωcom 4499

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 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2119  ax-sep 4041  ax-nul 4049  ax-pow 4093  ax-pr 4126  ax-un 4350  ax-iinf 4497

This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-nf 1437  df-sb 1736  df-clab 2124  df-cleq 2130  df-clel 2133  df-nfc 2268  df-ral 2419  df-rex 2420  df-v 2683  df-sbc 2905  df-dif 3068  df-un 3070  df-in 3072  df-ss 3079  df-nul 3359  df-pw 3507  df-sn 3528  df-pr 3529  df-uni 3732  df-int 3767  df-suc 4288  df-iom 4500

This theorem is referenced by:  nninfalllem1  13192  nninfsellemqall  13200