Theorem frind 4353

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 2550	. . . . . . 7 |- ( ch -> A. x e. A ( A. y e. A ( y R x -> ps ) -> ph ) )
3		nfv 1528	. . . . . . . 8 |- F/ z ( A. y e. A ( y R x -> ps ) -> ph )
4		nfv 1528	. . . . . . . . 9 |- F/ x A. y e. A ( y R z -> ps )
5		nfs1v 1939	. . . . . . . . 9 |- F/ x [ z / x ] ph
6	4, 5	nfim 1572	. . . . . . . 8 |- F/ x ( A. y e. A ( y R z -> ps ) -> [ z / x ] ph )
7		breq2 4008	. . . . . . . . . . 11 |- ( x = z -> ( y R x <-> y R z ) )
8	7	imbi1d 231	. . . . . . . . . 10 |- ( x = z -> ( ( y R x -> ps ) <-> ( y R z -> ps ) ) )
9	8	ralbidv 2477	. . . . . . . . 9 |- ( x = z -> ( A. y e. A ( y R x -> ps ) <-> A. y e. A ( y R z -> ps ) ) )
10		sbequ12 1771	. . . . . . . . 9 |- ( x = z -> ( ph <-> [ z / x ] ph ) )
11	9, 10	imbi12d 234	. . . . . . . 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 2700	. . . . . . 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 122	. . . . . 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 2895	. . . . . . . . . . 11 |- ( y e. A -> ( y e. { x e. A | ph } <-> ps ) )
16	15	imbi2d 230	. . . . . . . . . 10 |- ( y e. A -> ( ( y R z -> y e. { x e. A | ph } ) <-> ( y R z -> ps ) ) )
17	16	ralbiia 2491	. . . . . . . . 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 2319	. . . . . . . . . 10 |- F/_ x z
20		nfcv 2319	. . . . . . . . . 10 |- F/_ x A
21	19, 20, 5, 10	elrabf 2892	. . . . . . . . 9 |- ( z e. { x e. A | ph } <-> ( z e. A /\ [ z / x ] ph ) )
22	21	baib 919	. . . . . . . 8 |- ( z e. A -> ( z e. { x e. A | ph } <-> [ z / x ] ph ) )
23	18, 22	imbi12d 234	. . . . . . 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 2491	. . . . . 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 134	. . . . 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 4333	. . . . . . . 8 |- ( R Fr A <-> A. sFrFor R A s )
28	26, 27	sylib 122	. . . . . . 7 |- ( ch -> A. sFrFor R A s )
29		frind.a	. . . . . . . 8 |- ( ch -> A e. V )
30		rabexg 4147	. . . . . . . 8 |- ( A e. V -> { x e. A | ph } e. _V )
31		frforeq3 4348	. . . . . . . . 9 |- ( s = { x e. A | ph } -> (FrFor R A s <-> FrFor R A { x e. A | ph } ) )
32	31	spcgv 2825	. . . . . . . 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 4332	. . . . . 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 122	. . . . 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 3234	. . . 4 |- ( A C_ { x e. A | ph } <-> ( A C_ A /\ A. x e. A ph ) )
39	37, 38	sylib 122	. . 3 |- ( ch -> ( A C_ A /\ A. x e. A ph ) )
40	39	simprd 114	. 2 |- ( ch -> A. x e. A ph )
41	40	r19.21bi 2565	1 |- ( ( ch /\ x e. A ) -> ph )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   A.wal 1351   [wsb 1762   e. wcel 2148   A.wral 2455   {crab 2459   _Vcvv 2738   C_ wss 3130   class class class wbr 4004  FrFor wfrfor 4328   Fr wfr 4329

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 4122

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-rab 2464  df-v 2740  df-un 3134  df-in 3136  df-ss 3143  df-sn 3599  df-pr 3600  df-op 3602  df-br 4005  df-frfor 4332  df-frind 4333

This theorem is referenced by: (None)