Theorem tfinds2 7063

Description: Transfinite Induction (inference schema), using implicit substitutions. The first three hypotheses establish the substitutions we need. The last three are the basis and the induction hypotheses (for successor and limit ordinals respectively). Theorem Schema 4 of [Suppes] p. 197. The wff 𝜏 is an auxiliary antecedent to help shorten proofs using this theorem. (Contributed by NM, 4-Sep-2004.)

Hypotheses

Ref	Expression
tfinds2.1	⊢ (𝑥 = ∅ → (𝜑 ↔ 𝜓))
tfinds2.2	⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜒))
tfinds2.3	⊢ (𝑥 = suc 𝑦 → (𝜑 ↔ 𝜃))
tfinds2.4	⊢ (𝜏 → 𝜓)
tfinds2.5	⊢ (𝑦 ∈ On → (𝜏 → (𝜒 → 𝜃)))
tfinds2.6	⊢ (Lim 𝑥 → (𝜏 → (∀𝑦 ∈ 𝑥 𝜒 → 𝜑)))

Assertion

Ref	Expression
tfinds2	⊢ (𝑥 ∈ On → (𝜏 → 𝜑))

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

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

Proof of Theorem tfinds2

Step	Hyp	Ref	Expression
1		tfinds2.4	. . 3 ⊢ (𝜏 → 𝜓)
2		0ex 4790	. . . 4 ⊢ ∅ ∈ V
3		tfinds2.1	. . . . 5 ⊢ (𝑥 = ∅ → (𝜑 ↔ 𝜓))
4	3	imbi2d 330	. . . 4 ⊢ (𝑥 = ∅ → ((𝜏 → 𝜑) ↔ (𝜏 → 𝜓)))
5	2, 4	sbcie 3470	. . 3 ⊢ ([∅ / 𝑥](𝜏 → 𝜑) ↔ (𝜏 → 𝜓))
6	1, 5	mpbir 221	. 2 ⊢ [∅ / 𝑥](𝜏 → 𝜑)
7		vex 3203	. . . . . 6 ⊢ 𝑥 ∈ V
8		tfinds2.5	. . . . . . . 8 ⊢ (𝑦 ∈ On → (𝜏 → (𝜒 → 𝜃)))
9	8	a2d 29	. . . . . . 7 ⊢ (𝑦 ∈ On → ((𝜏 → 𝜒) → (𝜏 → 𝜃)))
10	9	sbcth 3450	. . . . . 6 ⊢ (𝑥 ∈ V → [𝑥 / 𝑦](𝑦 ∈ On → ((𝜏 → 𝜒) → (𝜏 → 𝜃))))
11	7, 10	ax-mp 5	. . . . 5 ⊢ [𝑥 / 𝑦](𝑦 ∈ On → ((𝜏 → 𝜒) → (𝜏 → 𝜃)))
12		sbcimg 3477	. . . . . 6 ⊢ (𝑥 ∈ V → ([𝑥 / 𝑦](𝑦 ∈ On → ((𝜏 → 𝜒) → (𝜏 → 𝜃))) ↔ ([𝑥 / 𝑦]𝑦 ∈ On → [𝑥 / 𝑦]((𝜏 → 𝜒) → (𝜏 → 𝜃)))))
13	7, 12	ax-mp 5	. . . . 5 ⊢ ([𝑥 / 𝑦](𝑦 ∈ On → ((𝜏 → 𝜒) → (𝜏 → 𝜃))) ↔ ([𝑥 / 𝑦]𝑦 ∈ On → [𝑥 / 𝑦]((𝜏 → 𝜒) → (𝜏 → 𝜃))))
14	11, 13	mpbi 220	. . . 4 ⊢ ([𝑥 / 𝑦]𝑦 ∈ On → [𝑥 / 𝑦]((𝜏 → 𝜒) → (𝜏 → 𝜃)))
15		sbcel1v 3495	. . . 4 ⊢ ([𝑥 / 𝑦]𝑦 ∈ On ↔ 𝑥 ∈ On)
16		sbcimg 3477	. . . . 5 ⊢ (𝑥 ∈ V → ([𝑥 / 𝑦]((𝜏 → 𝜒) → (𝜏 → 𝜃)) ↔ ([𝑥 / 𝑦](𝜏 → 𝜒) → [𝑥 / 𝑦](𝜏 → 𝜃))))
17	7, 16	ax-mp 5	. . . 4 ⊢ ([𝑥 / 𝑦]((𝜏 → 𝜒) → (𝜏 → 𝜃)) ↔ ([𝑥 / 𝑦](𝜏 → 𝜒) → [𝑥 / 𝑦](𝜏 → 𝜃)))
18	14, 15, 17	3imtr3i 280	. . 3 ⊢ (𝑥 ∈ On → ([𝑥 / 𝑦](𝜏 → 𝜒) → [𝑥 / 𝑦](𝜏 → 𝜃)))
19		tfinds2.2	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜒))
20	19	bicomd 213	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝜒 ↔ 𝜑))
21	20	equcoms 1947	. . . . 5 ⊢ (𝑦 = 𝑥 → (𝜒 ↔ 𝜑))
22	21	imbi2d 330	. . . 4 ⊢ (𝑦 = 𝑥 → ((𝜏 → 𝜒) ↔ (𝜏 → 𝜑)))
23	7, 22	sbcie 3470	. . 3 ⊢ ([𝑥 / 𝑦](𝜏 → 𝜒) ↔ (𝜏 → 𝜑))
24		vex 3203	. . . . . . 7 ⊢ 𝑦 ∈ V
25	24	sucex 7011	. . . . . 6 ⊢ suc 𝑦 ∈ V
26		tfinds2.3	. . . . . . 7 ⊢ (𝑥 = suc 𝑦 → (𝜑 ↔ 𝜃))
27	26	imbi2d 330	. . . . . 6 ⊢ (𝑥 = suc 𝑦 → ((𝜏 → 𝜑) ↔ (𝜏 → 𝜃)))
28	25, 27	sbcie 3470	. . . . 5 ⊢ ([suc 𝑦 / 𝑥](𝜏 → 𝜑) ↔ (𝜏 → 𝜃))
29	28	sbcbii 3491	. . . 4 ⊢ ([𝑥 / 𝑦][suc 𝑦 / 𝑥](𝜏 → 𝜑) ↔ [𝑥 / 𝑦](𝜏 → 𝜃))
30		suceq 5790	. . . . 5 ⊢ (𝑥 = 𝑦 → suc 𝑥 = suc 𝑦)
31	30	sbcco2 3459	. . . 4 ⊢ ([𝑥 / 𝑦][suc 𝑦 / 𝑥](𝜏 → 𝜑) ↔ [suc 𝑥 / 𝑥](𝜏 → 𝜑))
32	29, 31	bitr3i 266	. . 3 ⊢ ([𝑥 / 𝑦](𝜏 → 𝜃) ↔ [suc 𝑥 / 𝑥](𝜏 → 𝜑))
33	18, 23, 32	3imtr3g 284	. 2 ⊢ (𝑥 ∈ On → ((𝜏 → 𝜑) → [suc 𝑥 / 𝑥](𝜏 → 𝜑)))
34		sbsbc 3439	. . . 4 ⊢ ([𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) ↔ [𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒))
35	22	sbralie 3184	. . . 4 ⊢ ([𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) ↔ ∀𝑥 ∈ 𝑦 (𝜏 → 𝜑))
36	34, 35	bitr3i 266	. . 3 ⊢ ([𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) ↔ ∀𝑥 ∈ 𝑦 (𝜏 → 𝜑))
37		r19.21v 2960	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) ↔ (𝜏 → ∀𝑦 ∈ 𝑥 𝜒))
38		tfinds2.6	. . . . . . . . 9 ⊢ (Lim 𝑥 → (𝜏 → (∀𝑦 ∈ 𝑥 𝜒 → 𝜑)))
39	38	a2d 29	. . . . . . . 8 ⊢ (Lim 𝑥 → ((𝜏 → ∀𝑦 ∈ 𝑥 𝜒) → (𝜏 → 𝜑)))
40	37, 39	syl5bi 232	. . . . . . 7 ⊢ (Lim 𝑥 → (∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑)))
41	40	sbcth 3450	. . . . . 6 ⊢ (𝑦 ∈ V → [𝑦 / 𝑥](Lim 𝑥 → (∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑))))
42	24, 41	ax-mp 5	. . . . 5 ⊢ [𝑦 / 𝑥](Lim 𝑥 → (∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑)))
43		sbcimg 3477	. . . . . 6 ⊢ (𝑦 ∈ V → ([𝑦 / 𝑥](Lim 𝑥 → (∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑))) ↔ ([𝑦 / 𝑥]Lim 𝑥 → [𝑦 / 𝑥](∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑)))))
44	24, 43	ax-mp 5	. . . . 5 ⊢ ([𝑦 / 𝑥](Lim 𝑥 → (∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑))) ↔ ([𝑦 / 𝑥]Lim 𝑥 → [𝑦 / 𝑥](∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑))))
45	42, 44	mpbi 220	. . . 4 ⊢ ([𝑦 / 𝑥]Lim 𝑥 → [𝑦 / 𝑥](∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑)))
46		limeq 5735	. . . . 5 ⊢ (𝑥 = 𝑦 → (Lim 𝑥 ↔ Lim 𝑦))
47	24, 46	sbcie 3470	. . . 4 ⊢ ([𝑦 / 𝑥]Lim 𝑥 ↔ Lim 𝑦)
48		sbcimg 3477	. . . . 5 ⊢ (𝑦 ∈ V → ([𝑦 / 𝑥](∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑)) ↔ ([𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → [𝑦 / 𝑥](𝜏 → 𝜑))))
49	24, 48	ax-mp 5	. . . 4 ⊢ ([𝑦 / 𝑥](∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → (𝜏 → 𝜑)) ↔ ([𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → [𝑦 / 𝑥](𝜏 → 𝜑)))
50	45, 47, 49	3imtr3i 280	. . 3 ⊢ (Lim 𝑦 → ([𝑦 / 𝑥]∀𝑦 ∈ 𝑥 (𝜏 → 𝜒) → [𝑦 / 𝑥](𝜏 → 𝜑)))
51	36, 50	syl5bir 233	. 2 ⊢ (Lim 𝑦 → (∀𝑥 ∈ 𝑦 (𝜏 → 𝜑) → [𝑦 / 𝑥](𝜏 → 𝜑)))
52	6, 33, 51	tfindes 7062	1 ⊢ (𝑥 ∈ On → (𝜏 → 𝜑))

Syntax hints:   → wi 4   ↔ wb 196   = wceq 1483  [wsb 1880   ∈ wcel 1990  ∀wral 2912  Vcvv 3200  [wsbc 3435  ∅c0 3915  Oncon0 5723  Lim wlim 5724  suc csuc 5725

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pr 4906  ax-un 6949

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-br 4654  df-opab 4713  df-tr 4753  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-we 5075  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729

This theorem is referenced by:  inar1  9597  grur1a  9641