Theorem frind 4330

Description: Induction over a well-founded set. (Contributed by Jim Kingdon, 28-Sep-2021.)

Hypotheses

Ref	Expression
frind.sb	|- ( x = y -> ( ph <-> ps ) )
frind.ind	|- ( ( ch /\ x e. A ) -> ( A. y e. A ( y R x -> ps ) -> ph ) )
frind.fr	|- ( ch -> R Fr A )
frind.a	|- ( ch -> A e. V )

Assertion

Ref	Expression
frind	|- ( ( ch /\ x e. A ) -> ph )

Distinct variable groups:   x, A, y   x, R, y   ch, x   ph, y   ps, x

Allowed substitution hints:   ph( x)   ps( y)   ch( y)   V( x, y)

Proof of Theorem frind

Dummy variables s z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		frind.ind	. . . . . . . 8 |- ( ( ch /\ x e. A ) -> ( A. y e. A ( y R x -> ps ) -> ph ) )
2	1	ralrimiva 2539	. . . . . . 7 |- ( ch -> A. x e. A ( A. y e. A ( y R x -> ps ) -> ph ) )
3		nfv 1516	. . . . . . . 8 |- F/ z ( A. y e. A ( y R x -> ps ) -> ph )
4		nfv 1516	. . . . . . . . 9 |- F/ x A. y e. A ( y R z -> ps )
5		nfs1v 1927	. . . . . . . . 9 |- F/ x [ z / x ] ph
6	4, 5	nfim 1560	. . . . . . . 8 |- F/ x ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph )
7		breq2 3986	. . . . . . . . . . 11 |- ( x = z -> ( y R x <-> y R z ) )
8	7	imbi1d 230	. . . . . . . . . 10 |- ( x = z -> ( ( y R x -> ps ) <-> ( y R z -> ps ) ) )
9	8	ralbidv 2466	. . . . . . . . 9 |- ( x = z -> ( A. y e. A ( y R x -> ps ) <-> A. y e. A ( y R z -> ps ) ) )
10		sbequ12 1759	. . . . . . . . 9 |- ( x = z -> ( ph <-> [ z / x ] ph ) )
11	9, 10	imbi12d 233	. . . . . . . 8 |- ( x = z -> ( ( A. y e. A ( y R x -> ps ) -> ph ) <-> ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph ) ) )
12	3, 6, 11	cbvral 2688	. . . . . . 7 |- ( A. x e. A ( A. y e. A ( y R x -> ps ) -> ph ) <-> A. z e. A ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph ) )
13	2, 12	sylib 121	. . . . . 6 |- ( ch -> A. z e. A ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph ) )
14		frind.sb	. . . . . . . . . . . 12 |- ( x = y -> ( ph <-> ps ) )
15	14	elrab3 2883	. . . . . . . . . . 11 |- ( y e. A -> ( y e. { x e. A | ph } <-> ps ) )
16	15	imbi2d 229	. . . . . . . . . 10 |- ( y e. A -> ( ( y R z -> y e. { x e. A | ph } ) <-> ( y R z -> ps ) ) )
17	16	ralbiia 2480	. . . . . . . . 9 |- ( A. y e. A ( y R z -> y e. { x e. A | ph } ) <-> A. y e. A ( y R z -> ps ) )
18	17	a1i 9	. . . . . . . 8 |- ( z e. A -> ( A. y e. A ( y R z -> y e. { x e. A | ph } ) <-> A. y e. A ( y R z -> ps ) ) )
19		nfcv 2308	. . . . . . . . . 10 |- F/_ x z
20		nfcv 2308	. . . . . . . . . 10 |- F/_ x A
21	19, 20, 5, 10	elrabf 2880	. . . . . . . . 9 |- ( z e. { x e. A | ph } <-> ( z e. A /\ [ z / x ] ph ) )
22	21	baib 909	. . . . . . . 8 |- ( z e. A -> ( z e. { x e. A | ph } <-> [ z / x ] ph ) )
23	18, 22	imbi12d 233	. . . . . . 7 |- ( z e. A -> ( ( A. y e. A ( y R z -> y e. { x e. A | ph } ) -> z e. { x e. A | ph } ) <-> ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph ) ) )
24	23	ralbiia 2480	. . . . . 6 |- ( A. z e. A ( A. y e. A ( y R z -> y e. { x e. A | ph } ) -> z e. { x e. A | ph } ) <-> A. z e. A ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph ) )
25	13, 24	sylibr 133	. . . . 5 |- ( ch -> A. z e. A ( A. y e. A ( y R z -> y e. { x e. A | ph } ) -> z e. { x e. A | ph } ) )
26		frind.fr	. . . . . . . 8 |- ( ch -> R Fr A )
27		df-frind 4310	. . . . . . . 8 |- ( R Fr A <-> A. sFrFor R A s )
28	26, 27	sylib 121	. . . . . . 7 |- ( ch -> A. sFrFor R A s )
29		frind.a	. . . . . . . 8 |- ( ch -> A e. V )
30		rabexg 4125	. . . . . . . 8 |- ( A e. V -> { x e. A | ph } e. _V )
31		frforeq3 4325	. . . . . . . . 9 |- ( s = { x e. A | ph } -> (FrFor R A s <-> FrFor R A { x e. A | ph } ) )
32	31	spcgv 2813	. . . . . . . 8 |- ( { x e. A | ph } e. _V -> ( A. sFrFor R A s -> FrFor R A { x e. A | ph } ) )
33	29, 30, 32	3syl 17	. . . . . . 7 |- ( ch -> ( A. sFrFor R A s -> FrFor R A { x e. A | ph } ) )
34	28, 33	mpd 13	. . . . . 6 |- ( ch -> FrFor R A { x e. A | ph } )
35		df-frfor 4309	. . . . . 6 |- (FrFor R A { x e. A | ph } <-> ( A. z e. A ( A. y e. A ( y R z -> y e. { x e. A | ph } ) -> z e. { x e. A | ph } ) -> A C_ { x e. A | ph } ) )
36	34, 35	sylib 121	. . . . 5 |- ( ch -> ( A. z e. A ( A. y e. A ( y R z -> y e. { x e. A | ph } ) -> z e. { x e. A | ph } ) -> A C_ { x e. A | ph } ) )
37	25, 36	mpd 13	. . . 4 |- ( ch -> A C_ { x e. A | ph } )
38		ssrab 3220	. . . 4 |- ( A C_ { x e. A | ph } <-> ( A C_ A /\ A. x e. A ph ) )
39	37, 38	sylib 121	. . 3 |- ( ch -> ( A C_ A /\ A. x e. A ph ) )
40	39	simprd 113	. 2 |- ( ch -> A. x e. A ph )
41	40	r19.21bi 2554	1 |- ( ( ch /\ x e. A ) -> ph )

Syntax hints:   -> wi 4   /\ wa 103   <-> wb 104   A.wal 1341   [wsb 1750   e. wcel 2136   A.wral 2444   {crab 2448   _Vcvv 2726   C_ wss 3116   class class class wbr 3982  FrFor wfrfor 4305   Fr wfr 4306

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-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-ext 2147  ax-sep 4100

This theorem depends on definitions:  df-bi 116  df-3an 970  df-tru 1346  df-nf 1449  df-sb 1751  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ral 2449  df-rab 2453  df-v 2728  df-un 3120  df-in 3122  df-ss 3129  df-sn 3582  df-pr 3583  df-op 3585  df-br 3983  df-frfor 4309  df-frind 4310

This theorem is referenced by: (None)