Theorem tfrcllemssrecs 6498

Description: Lemma for tfrcl 6510. The union of functions acceptable for tfrcl 6510 is a subset of recs. (Contributed by Jim Kingdon, 25-Mar-2022.)

Hypotheses

Ref	Expression
tfrcllemssrecs.1	|- A = { f | E. x e. X ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) }
tfrcllemssrecs.x	|- ( ph -> Ord X )

Assertion

Ref	Expression
tfrcllemssrecs	|- ( ph -> U. A C_ recs ( G ) )

Distinct variable groups:   f, G, x, y   x, X   ph, f

Allowed substitution hints:   ph( x, y)   A( x, y, f)   S( x, y, f)   X( y, f)

Proof of Theorem tfrcllemssrecs

Step	Hyp	Ref	Expression
1		tfrcllemssrecs.1	. . . 4 |- A = { f | E. x e. X ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) }
2		tfrcllemssrecs.x	. . . . . 6 |- ( ph -> Ord X )
3		ordsson 4584	. . . . . 6 |- ( Ord X -> X C_ On )
4		ssrexv 3289	. . . . . 6 |- ( X C_ On -> ( E. x e. X ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) -> E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) ) )
5	2, 3, 4	3syl 17	. . . . 5 |- ( ph -> ( E. x e. X ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) -> E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) ) )
6	5	ss2abdv 3297	. . . 4 |- ( ph -> { f | E. x e. X ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } C_ { f | E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } )
7	1, 6	eqsstrid 3270	. . 3 |- ( ph -> A C_ { f | E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } )
8	7	unissd 3912	. 2 |- ( ph -> U. A C_ U. { f | E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } )
9		ffn 5473	. . . . . . 7 |- ( f : x --> S -> f Fn x )
10	9	anim1i 340	. . . . . 6 |- ( ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) -> ( f Fn x /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) )
11	10	reximi 2627	. . . . 5 |- ( E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) -> E. x e. On ( f Fn x /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) )
12	11	ss2abi 3296	. . . 4 |- { f | E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } C_ { f | E. x e. On ( f Fn x /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) }
13	12	unissi 3911	. . 3 |- U. { f | E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } C_ U. { f | E. x e. On ( f Fn x /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) }
14		df-recs 6451	. . 3 |- recs ( G ) = U. { f | E. x e. On ( f Fn x /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) }
15	13, 14	sseqtrri 3259	. 2 |- U. { f | E. x e. On ( f : x --> S /\ A. y e. x ( f ` y ) = ( G ` ( f |` y ) ) ) } C_ recs ( G )
16	8, 15	sstrdi 3236	1 |- ( ph -> U. A C_ recs ( G ) )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1395   {cab 2215   A.wral 2508   E.wrex 2509   C_ wss 3197   U.cuni 3888   Ord word 4453   Oncon0 4454   |` cres 4721   Fn wfn 5313   -->wf 5314   ` cfv 5318  recscrecs 6450

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 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-ext 2211

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-nf 1507  df-sb 1809  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ral 2513  df-rex 2514  df-v 2801  df-in 3203  df-ss 3210  df-uni 3889  df-tr 4183  df-iord 4457  df-on 4459  df-f 5322  df-recs 6451

This theorem is referenced by:  tfrcllembfn  6503  tfrcllemubacc  6505  tfrcllemres  6508