Theorem frecuzrdgtcl 10664

Description: The recursive definition generator on upper integers is a function. See comment in frec2uz0d 10651 for the description of G as the mapping from om to ( ZZ>= ` C ). (Contributed by Jim Kingdon, 26-May-2020.)

Hypotheses

Ref	Expression
frec2uz.1	|- ( ph -> C e. ZZ )
frec2uz.2	|- G = frec ( ( x e. ZZ |-> ( x + 1 ) ) , C )
frecuzrdgrrn.a	|- ( ph -> A e. S )
frecuzrdgrrn.f	|- ( ( ph /\ ( x e. ( ZZ>= ` C ) /\ y e. S ) ) -> ( x F y ) e. S )
frecuzrdgrrn.2	|- R = frec ( ( x e. ( ZZ>= ` C ) , y e. S |-> <. ( x + 1 ) , ( x F y ) >. ) , <. C , A >. )
frecuzrdgtcl.3	|- ( ph -> T = ran R )

Assertion

Ref	Expression
frecuzrdgtcl	|- ( ph -> T : ( ZZ>= ` C ) --> S )

Distinct variable groups:   y, A   x, C, y   y, G   x, F, y   x, S, y   ph, x, y

Allowed substitution hints:   A( x)   R( x, y)   T( x, y)   G( x)

Proof of Theorem frecuzrdgtcl

Dummy variables w z v are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		frecuzrdgtcl.3	. . . . . . . . . 10 |- ( ph -> T = ran R )
2	1	eleq2d 2299	. . . . . . . . 9 |- ( ph -> ( z e. T <-> z e. ran R ) )
3		frec2uz.1	. . . . . . . . . . 11 |- ( ph -> C e. ZZ )
4		frec2uz.2	. . . . . . . . . . 11 |- G = frec ( ( x e. ZZ |-> ( x + 1 ) ) , C )
5		frecuzrdgrrn.a	. . . . . . . . . . 11 |- ( ph -> A e. S )
6		frecuzrdgrrn.f	. . . . . . . . . . 11 |- ( ( ph /\ ( x e. ( ZZ>= ` C ) /\ y e. S ) ) -> ( x F y ) e. S )
7		frecuzrdgrrn.2	. . . . . . . . . . 11 |- R = frec ( ( x e. ( ZZ>= ` C ) , y e. S |-> <. ( x + 1 ) , ( x F y ) >. ) , <. C , A >. )
8	3, 4, 5, 6, 7	frecuzrdgrcl 10662	. . . . . . . . . 10 |- ( ph -> R : om --> ( ( ZZ>= ` C ) X. S ) )
9		ffn 5479	. . . . . . . . . 10 |- ( R : om --> ( ( ZZ>= ` C ) X. S ) -> R Fn om )
10		fvelrnb 5689	. . . . . . . . . 10 |- ( R Fn om -> ( z e. ran R <-> E. w e. om ( R ` w ) = z ) )
11	8, 9, 10	3syl 17	. . . . . . . . 9 |- ( ph -> ( z e. ran R <-> E. w e. om ( R ` w ) = z ) )
12	2, 11	bitrd 188	. . . . . . . 8 |- ( ph -> ( z e. T <-> E. w e. om ( R ` w ) = z ) )
13	3, 4, 5, 6, 7	frecuzrdgrrn 10660	. . . . . . . . . 10 |- ( ( ph /\ w e. om ) -> ( R ` w ) e. ( ( ZZ>= ` C ) X. S ) )
14		eleq1 2292	. . . . . . . . . 10 |- ( ( R ` w ) = z -> ( ( R ` w ) e. ( ( ZZ>= ` C ) X. S ) <-> z e. ( ( ZZ>= ` C ) X. S ) ) )
15	13, 14	syl5ibcom 155	. . . . . . . . 9 |- ( ( ph /\ w e. om ) -> ( ( R ` w ) = z -> z e. ( ( ZZ>= ` C ) X. S ) ) )
16	15	rexlimdva 2648	. . . . . . . 8 |- ( ph -> ( E. w e. om ( R ` w ) = z -> z e. ( ( ZZ>= ` C ) X. S ) ) )
17	12, 16	sylbid 150	. . . . . . 7 |- ( ph -> ( z e. T -> z e. ( ( ZZ>= ` C ) X. S ) ) )
18	17	ssrdv 3231	. . . . . 6 |- ( ph -> T C_ ( ( ZZ>= ` C ) X. S ) )
19		xpss 4832	. . . . . 6 |- ( ( ZZ>= ` C ) X. S ) C_ ( _V X. _V )
20	18, 19	sstrdi 3237	. . . . 5 |- ( ph -> T C_ ( _V X. _V ) )
21		df-rel 4730	. . . . 5 |- ( Rel T <-> T C_ ( _V X. _V ) )
22	20, 21	sylibr 134	. . . 4 |- ( ph -> Rel T )
23	3, 4	frec2uzf1od 10658	. . . . . . . . . . 11 |- ( ph -> G : om -1-1-onto-> ( ZZ>= ` C ) )
24		f1ocnvdm 5917	. . . . . . . . . . 11 |- ( ( G : om -1-1-onto-> ( ZZ>= ` C ) /\ v e. ( ZZ>= ` C ) ) -> ( `' G ` v ) e. om )
25	23, 24	sylan 283	. . . . . . . . . 10 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> ( `' G ` v ) e. om )
26	3, 4, 5, 6, 7	frecuzrdgrrn 10660	. . . . . . . . . 10 |- ( ( ph /\ ( `' G ` v ) e. om ) -> ( R ` ( `' G ` v ) ) e. ( ( ZZ>= ` C ) X. S ) )
27	25, 26	syldan 282	. . . . . . . . 9 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> ( R ` ( `' G ` v ) ) e. ( ( ZZ>= ` C ) X. S ) )
28		xp2nd 6324	. . . . . . . . 9 |- ( ( R ` ( `' G ` v ) ) e. ( ( ZZ>= ` C ) X. S ) -> ( 2nd ` ( R ` ( `' G ` v ) ) ) e. S )
29	27, 28	syl 14	. . . . . . . 8 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> ( 2nd ` ( R ` ( `' G ` v ) ) ) e. S )
30	1	eleq2d 2299	. . . . . . . . . . . 12 |- ( ph -> ( <. v , z >. e. T <-> <. v , z >. e. ran R ) )
31		fvelrnb 5689	. . . . . . . . . . . . 13 |- ( R Fn om -> ( <. v , z >. e. ran R <-> E. w e. om ( R ` w ) = <. v , z >. ) )
32	8, 9, 31	3syl 17	. . . . . . . . . . . 12 |- ( ph -> ( <. v , z >. e. ran R <-> E. w e. om ( R ` w ) = <. v , z >. ) )
33	30, 32	bitrd 188	. . . . . . . . . . 11 |- ( ph -> ( <. v , z >. e. T <-> E. w e. om ( R ` w ) = <. v , z >. ) )
34	3	adantr 276	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ w e. om ) -> C e. ZZ )
35	5	adantr 276	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ w e. om ) -> A e. S )
36	6	adantlr 477	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ph /\ w e. om ) /\ ( x e. ( ZZ>= ` C ) /\ y e. S ) ) -> ( x F y ) e. S )
37		simpr 110	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ w e. om ) -> w e. om )
38	34, 4, 35, 36, 7, 37	frec2uzrdg 10661	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ w e. om ) -> ( R ` w ) = <. ( G ` w ) , ( 2nd ` ( R ` w ) ) >. )
39	38	eqeq1d 2238	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ w e. om ) -> ( ( R ` w ) = <. v , z >. <-> <. ( G ` w ) , ( 2nd ` ( R ` w ) ) >. = <. v , z >. ) )
40		vex 2803	. . . . . . . . . . . . . . . . . . . 20 |- v e. _V
41		vex 2803	. . . . . . . . . . . . . . . . . . . 20 |- z e. _V
42	40, 41	opth2 4330	. . . . . . . . . . . . . . . . . . 19 |- ( <. ( G ` w ) , ( 2nd ` ( R ` w ) ) >. = <. v , z >. <-> ( ( G ` w ) = v /\ ( 2nd ` ( R ` w ) ) = z ) )
43	42	simplbi 274	. . . . . . . . . . . . . . . . . 18 |- ( <. ( G ` w ) , ( 2nd ` ( R ` w ) ) >. = <. v , z >. -> ( G ` w ) = v )
44	39, 43	biimtrdi 163	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ w e. om ) -> ( ( R ` w ) = <. v , z >. -> ( G ` w ) = v ) )
45		f1ocnvfv 5915	. . . . . . . . . . . . . . . . . 18 |- ( ( G : om -1-1-onto-> ( ZZ>= ` C ) /\ w e. om ) -> ( ( G ` w ) = v -> ( `' G ` v ) = w ) )
46	23, 45	sylan 283	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ w e. om ) -> ( ( G ` w ) = v -> ( `' G ` v ) = w ) )
47	44, 46	syld 45	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ w e. om ) -> ( ( R ` w ) = <. v , z >. -> ( `' G ` v ) = w ) )
48		fveq2 5635	. . . . . . . . . . . . . . . . 17 |- ( ( `' G ` v ) = w -> ( R ` ( `' G ` v ) ) = ( R ` w ) )
49	48	fveq2d 5639	. . . . . . . . . . . . . . . 16 |- ( ( `' G ` v ) = w -> ( 2nd ` ( R ` ( `' G ` v ) ) ) = ( 2nd ` ( R ` w ) ) )
50	47, 49	syl6 33	. . . . . . . . . . . . . . 15 |- ( ( ph /\ w e. om ) -> ( ( R ` w ) = <. v , z >. -> ( 2nd ` ( R ` ( `' G ` v ) ) ) = ( 2nd ` ( R ` w ) ) ) )
51	50	imp 124	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ w e. om ) /\ ( R ` w ) = <. v , z >. ) -> ( 2nd ` ( R ` ( `' G ` v ) ) ) = ( 2nd ` ( R ` w ) ) )
52	40, 41	op2ndd 6307	. . . . . . . . . . . . . . 15 |- ( ( R ` w ) = <. v , z >. -> ( 2nd ` ( R ` w ) ) = z )
53	52	adantl 277	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ w e. om ) /\ ( R ` w ) = <. v , z >. ) -> ( 2nd ` ( R ` w ) ) = z )
54	51, 53	eqtr2d 2263	. . . . . . . . . . . . 13 |- ( ( ( ph /\ w e. om ) /\ ( R ` w ) = <. v , z >. ) -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) )
55	54	ex 115	. . . . . . . . . . . 12 |- ( ( ph /\ w e. om ) -> ( ( R ` w ) = <. v , z >. -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) )
56	55	rexlimdva 2648	. . . . . . . . . . 11 |- ( ph -> ( E. w e. om ( R ` w ) = <. v , z >. -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) )
57	33, 56	sylbid 150	. . . . . . . . . 10 |- ( ph -> ( <. v , z >. e. T -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) )
58	57	alrimiv 1920	. . . . . . . . 9 |- ( ph -> A. z ( <. v , z >. e. T -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) )
59	58	adantr 276	. . . . . . . 8 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> A. z ( <. v , z >. e. T -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) )
60		eqeq2 2239	. . . . . . . . . . 11 |- ( w = ( 2nd ` ( R ` ( `' G ` v ) ) ) -> ( z = w <-> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) )
61	60	imbi2d 230	. . . . . . . . . 10 |- ( w = ( 2nd ` ( R ` ( `' G ` v ) ) ) -> ( ( <. v , z >. e. T -> z = w ) <-> ( <. v , z >. e. T -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) ) )
62	61	albidv 1870	. . . . . . . . 9 |- ( w = ( 2nd ` ( R ` ( `' G ` v ) ) ) -> ( A. z ( <. v , z >. e. T -> z = w ) <-> A. z ( <. v , z >. e. T -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) ) )
63	62	spcegv 2892	. . . . . . . 8 |- ( ( 2nd ` ( R ` ( `' G ` v ) ) ) e. S -> ( A. z ( <. v , z >. e. T -> z = ( 2nd ` ( R ` ( `' G ` v ) ) ) ) -> E. w A. z ( <. v , z >. e. T -> z = w ) ) )
64	29, 59, 63	sylc 62	. . . . . . 7 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> E. w A. z ( <. v , z >. e. T -> z = w ) )
65		nfv 1574	. . . . . . . 8 |- F/ w <. v , z >. e. T
66	65	mo2r 2130	. . . . . . 7 |- ( E. w A. z ( <. v , z >. e. T -> z = w ) -> E* z <. v , z >. e. T )
67	64, 66	syl 14	. . . . . 6 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> E* z <. v , z >. e. T )
68		dmss 4928	. . . . . . . . . . 11 |- ( T C_ ( ( ZZ>= ` C ) X. S ) -> dom T C_ dom ( ( ZZ>= ` C ) X. S ) )
69	18, 68	syl 14	. . . . . . . . . 10 |- ( ph -> dom T C_ dom ( ( ZZ>= ` C ) X. S ) )
70		dmxpss 5165	. . . . . . . . . 10 |- dom ( ( ZZ>= ` C ) X. S ) C_ ( ZZ>= ` C )
71	69, 70	sstrdi 3237	. . . . . . . . 9 |- ( ph -> dom T C_ ( ZZ>= ` C ) )
72	3	adantr 276	. . . . . . . . . . . . . 14 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> C e. ZZ )
73	5	adantr 276	. . . . . . . . . . . . . 14 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> A e. S )
74	6	adantlr 477	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ v e. ( ZZ>= ` C ) ) /\ ( x e. ( ZZ>= ` C ) /\ y e. S ) ) -> ( x F y ) e. S )
75		simpr 110	. . . . . . . . . . . . . 14 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> v e. ( ZZ>= ` C ) )
76	72, 4, 73, 74, 7, 75	frecuzrdglem 10663	. . . . . . . . . . . . 13 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. ran R )
77	1	eleq2d 2299	. . . . . . . . . . . . . 14 |- ( ph -> ( <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. T <-> <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. ran R ) )
78	77	adantr 276	. . . . . . . . . . . . 13 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> ( <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. T <-> <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. ran R ) )
79	76, 78	mpbird 167	. . . . . . . . . . . 12 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. T )
80		opeldmg 4934	. . . . . . . . . . . . 13 |- ( ( v e. _V /\ ( 2nd ` ( R ` ( `' G ` v ) ) ) e. S ) -> ( <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. T -> v e. dom T ) )
81	40, 80	mpan 424	. . . . . . . . . . . 12 |- ( ( 2nd ` ( R ` ( `' G ` v ) ) ) e. S -> ( <. v , ( 2nd ` ( R ` ( `' G ` v ) ) ) >. e. T -> v e. dom T ) )
82	29, 79, 81	sylc 62	. . . . . . . . . . 11 |- ( ( ph /\ v e. ( ZZ>= ` C ) ) -> v e. dom T )
83	82	ex 115	. . . . . . . . . 10 |- ( ph -> ( v e. ( ZZ>= ` C ) -> v e. dom T ) )
84	83	ssrdv 3231	. . . . . . . . 9 |- ( ph -> ( ZZ>= ` C ) C_ dom T )
85	71, 84	eqssd 3242	. . . . . . . 8 |- ( ph -> dom T = ( ZZ>= ` C ) )
86	85	eleq2d 2299	. . . . . . 7 |- ( ph -> ( v e. dom T <-> v e. ( ZZ>= ` C ) ) )
87	86	pm5.32i 454	. . . . . 6 |- ( ( ph /\ v e. dom T ) <-> ( ph /\ v e. ( ZZ>= ` C ) ) )
88		df-br 4087	. . . . . . 7 |- ( v T z <-> <. v , z >. e. T )
89	88	mobii 2114	. . . . . 6 |- ( E* z v T z <-> E* z <. v , z >. e. T )
90	67, 87, 89	3imtr4i 201	. . . . 5 |- ( ( ph /\ v e. dom T ) -> E* z v T z )
91	90	ralrimiva 2603	. . . 4 |- ( ph -> A. v e. dom T E* z v T z )
92		dffun7 5351	. . . 4 |- ( Fun T <-> ( Rel T /\ A. v e. dom T E* z v T z ) )
93	22, 91, 92	sylanbrc 417	. . 3 |- ( ph -> Fun T )
94		df-fn 5327	. . 3 |- ( T Fn ( ZZ>= ` C ) <-> ( Fun T /\ dom T = ( ZZ>= ` C ) ) )
95	93, 85, 94	sylanbrc 417	. 2 |- ( ph -> T Fn ( ZZ>= ` C ) )
96		rnss 4960	. . . 4 |- ( T C_ ( ( ZZ>= ` C ) X. S ) -> ran T C_ ran ( ( ZZ>= ` C ) X. S ) )
97	18, 96	syl 14	. . 3 |- ( ph -> ran T C_ ran ( ( ZZ>= ` C ) X. S ) )
98		rnxpss 5166	. . 3 |- ran ( ( ZZ>= ` C ) X. S ) C_ S
99	97, 98	sstrdi 3237	. 2 |- ( ph -> ran T C_ S )
100		df-f 5328	. 2 |- ( T : ( ZZ>= ` C ) --> S <-> ( T Fn ( ZZ>= ` C ) /\ ran T C_ S ) )
101	95, 99, 100	sylanbrc 417	1 |- ( ph -> T : ( ZZ>= ` C ) --> S )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   A.wal 1393   = wceq 1395   E.wex 1538   E*wmo 2078   e. wcel 2200   A.wral 2508   E.wrex 2509   _Vcvv 2800   C_ wss 3198   <.cop 3670   class class class wbr 4086   |-> cmpt 4148   omcom 4686   X. cxp 4721   `'ccnv 4722   dom cdm 4723   ran crn 4724   Rel wrel 4728   Fun wfun 5318   Fn wfn 5319   -->wf 5320   -1-1-onto->wf1o 5323   ` cfv 5324  (class class class)co 6013   e. cmpo 6015   2ndc2nd 6297  freccfrec 6551   1c1 8023   + caddc 8025   ZZcz 9469   ZZ>=cuz 9745

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-in1 617  ax-in2 618  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-13 2202  ax-14 2203  ax-ext 2211  ax-coll 4202  ax-sep 4205  ax-nul 4213  ax-pow 4262  ax-pr 4297  ax-un 4528  ax-setind 4633  ax-iinf 4684  ax-cnex 8113  ax-resscn 8114  ax-1cn 8115  ax-1re 8116  ax-icn 8117  ax-addcl 8118  ax-addrcl 8119  ax-mulcl 8120  ax-addcom 8122  ax-addass 8124  ax-distr 8126  ax-i2m1 8127  ax-0lt1 8128  ax-0id 8130  ax-rnegex 8131  ax-cnre 8133  ax-pre-ltirr 8134  ax-pre-ltwlin 8135  ax-pre-lttrn 8136  ax-pre-ltadd 8138

This theorem depends on definitions:  df-bi 117  df-3or 1003  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-nel 2496  df-ral 2513  df-rex 2514  df-reu 2515  df-rab 2517  df-v 2802  df-sbc 3030  df-csb 3126  df-dif 3200  df-un 3202  df-in 3204  df-ss 3211  df-nul 3493  df-pw 3652  df-sn 3673  df-pr 3674  df-op 3676  df-uni 3892  df-int 3927  df-iun 3970  df-br 4087  df-opab 4149  df-mpt 4150  df-tr 4186  df-id 4388  df-iord 4461  df-on 4463  df-ilim 4464  df-suc 4466  df-iom 4687  df-xp 4729  df-rel 4730  df-cnv 4731  df-co 4732  df-dm 4733  df-rn 4734  df-res 4735  df-ima 4736  df-iota 5284  df-fun 5326  df-fn 5327  df-f 5328  df-f1 5329  df-fo 5330  df-f1o 5331  df-fv 5332  df-riota 5966  df-ov 6016  df-oprab 6017  df-mpo 6018  df-1st 6298  df-2nd 6299  df-recs 6466  df-frec 6552  df-pnf 8206  df-mnf 8207  df-xr 8208  df-ltxr 8209  df-le 8210  df-sub 8342  df-neg 8343  df-inn 9134  df-n0 9393  df-z 9470  df-uz 9746

This theorem is referenced by:  frecuzrdg0  10665  frecuzrdgsuc  10666