Theorem seq3val 10637

Description: Value of the sequence builder function. This helps expand the definition although there should be little need for it once we have proved seqf 10641, seq3-1 10639 and seq3p1 10642, as further development can be done in terms of those. (Contributed by Mario Carneiro, 24-Jun-2013.) (Revised by Jim Kingdon, 4-Nov-2022.)

Hypotheses

Ref	Expression
seq3val.m	|- ( ph -> M e. ZZ )
seq3val.r	|- R = frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. )
seq3val.f	|- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> ( F ` x ) e. S )
seq3val.pl	|- ( ( ph /\ ( x e. S /\ y e. S ) ) -> ( x .+ y ) e. S )

Assertion

Ref	Expression
seq3val	|- ( ph -> seq M ( .+ , F ) = ran R )

Distinct variable groups:   x, .+ , y, w, z   x, F, y, w, z   x, M, y, w, z   x, R, y, w, z   x, S, y, w, z   ph, x, y, w, z

Proof of Theorem seq3val

Dummy variables a b k c n u are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-seqfrec 10625	. 2 |- seq M ( .+ , F ) = ran frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. )
2		seq3val.m	. . . . . 6 |- ( ph -> M e. ZZ )
3		fveq2 5594	. . . . . . . 8 |- ( x = M -> ( F ` x ) = ( F ` M ) )
4	3	eleq1d 2275	. . . . . . 7 |- ( x = M -> ( ( F ` x ) e. S <-> ( F ` M ) e. S ) )
5		seq3val.f	. . . . . . . 8 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> ( F ` x ) e. S )
6	5	ralrimiva 2580	. . . . . . 7 |- ( ph -> A. x e. ( ZZ>= ` M ) ( F ` x ) e. S )
7		uzid 9692	. . . . . . . 8 |- ( M e. ZZ -> M e. ( ZZ>= ` M ) )
8	2, 7	syl 14	. . . . . . 7 |- ( ph -> M e. ( ZZ>= ` M ) )
9	4, 6, 8	rspcdva 2886	. . . . . 6 |- ( ph -> ( F ` M ) e. S )
10		ssv 3219	. . . . . . 7 |- S C_ _V
11	10	a1i 9	. . . . . 6 |- ( ph -> S C_ _V )
12		seq3val.pl	. . . . . . 7 |- ( ( ph /\ ( x e. S /\ y e. S ) ) -> ( x .+ y ) e. S )
13	5, 12	iseqovex 10635	. . . . . 6 |- ( ( ph /\ ( x e. ( ZZ>= ` M ) /\ y e. S ) ) -> ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) e. S )
14		seq3val.r	. . . . . 6 |- R = frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. )
15	2, 9, 11, 13, 14	frecuzrdgrclt 10592	. . . . 5 |- ( ph -> R : om --> ( ( ZZ>= ` M ) X. S ) )
16		ffn 5440	. . . . 5 |- ( R : om --> ( ( ZZ>= ` M ) X. S ) -> R Fn om )
17	15, 16	syl 14	. . . 4 |- ( ph -> R Fn om )
18		1st2nd2 6279	. . . . . . . . . . . 12 |- ( u e. ( ( ZZ>= ` M ) X. S ) -> u = <. ( 1st ` u ) , ( 2nd ` u ) >. )
19	18	adantl 277	. . . . . . . . . . 11 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> u = <. ( 1st ` u ) , ( 2nd ` u ) >. )
20	19	fveq2d 5598	. . . . . . . . . 10 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` <. ( 1st ` u ) , ( 2nd ` u ) >. ) )
21		df-ov 5965	. . . . . . . . . 10 |- ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` u ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` <. ( 1st ` u ) , ( 2nd ` u ) >. )
22	20, 21	eqtr4di 2257	. . . . . . . . 9 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) = ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` u ) ) )
23		xp1st 6269	. . . . . . . . . . 11 |- ( u e. ( ( ZZ>= ` M ) X. S ) -> ( 1st ` u ) e. ( ZZ>= ` M ) )
24	23	adantl 277	. . . . . . . . . 10 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( 1st ` u ) e. ( ZZ>= ` M ) )
25		xp2nd 6270	. . . . . . . . . . . 12 |- ( u e. ( ( ZZ>= ` M ) X. S ) -> ( 2nd ` u ) e. S )
26	25	adantl 277	. . . . . . . . . . 11 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( 2nd ` u ) e. S )
27	26	elexd 2787	. . . . . . . . . 10 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( 2nd ` u ) e. _V )
28		peano2uz 9734	. . . . . . . . . . . 12 |- ( ( 1st ` u ) e. ( ZZ>= ` M ) -> ( ( 1st ` u ) + 1 ) e. ( ZZ>= ` M ) )
29	24, 28	syl 14	. . . . . . . . . . 11 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) + 1 ) e. ( ZZ>= ` M ) )
30	12	caovclg 6117	. . . . . . . . . . . . 13 |- ( ( ph /\ ( a e. S /\ b e. S ) ) -> ( a .+ b ) e. S )
31	30	adantlr 477	. . . . . . . . . . . 12 |- ( ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) /\ ( a e. S /\ b e. S ) ) -> ( a .+ b ) e. S )
32		fveq2 5594	. . . . . . . . . . . . . 14 |- ( x = ( ( 1st ` u ) + 1 ) -> ( F ` x ) = ( F ` ( ( 1st ` u ) + 1 ) ) )
33	32	eleq1d 2275	. . . . . . . . . . . . 13 |- ( x = ( ( 1st ` u ) + 1 ) -> ( ( F ` x ) e. S <-> ( F ` ( ( 1st ` u ) + 1 ) ) e. S ) )
34	6	adantr 276	. . . . . . . . . . . . 13 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> A. x e. ( ZZ>= ` M ) ( F ` x ) e. S )
35	33, 34, 29	rspcdva 2886	. . . . . . . . . . . 12 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( F ` ( ( 1st ` u ) + 1 ) ) e. S )
36	31, 26, 35	caovcld 6118	. . . . . . . . . . 11 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) e. S )
37		opelxpi 4720	. . . . . . . . . . 11 |- ( ( ( ( 1st ` u ) + 1 ) e. ( ZZ>= ` M ) /\ ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) e. S ) -> <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
38	29, 36, 37	syl2anc 411	. . . . . . . . . 10 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
39		oveq1 5969	. . . . . . . . . . . 12 |- ( x = ( 1st ` u ) -> ( x + 1 ) = ( ( 1st ` u ) + 1 ) )
40		fvoveq1 5985	. . . . . . . . . . . . 13 |- ( x = ( 1st ` u ) -> ( F ` ( x + 1 ) ) = ( F ` ( ( 1st ` u ) + 1 ) ) )
41	40	oveq2d 5978	. . . . . . . . . . . 12 |- ( x = ( 1st ` u ) -> ( y .+ ( F ` ( x + 1 ) ) ) = ( y .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) )
42	39, 41	opeq12d 3836	. . . . . . . . . . 11 |- ( x = ( 1st ` u ) -> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. = <. ( ( 1st ` u ) + 1 ) , ( y .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. )
43		oveq1 5969	. . . . . . . . . . . 12 |- ( y = ( 2nd ` u ) -> ( y .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) = ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) )
44	43	opeq2d 3835	. . . . . . . . . . 11 |- ( y = ( 2nd ` u ) -> <. ( ( 1st ` u ) + 1 ) , ( y .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. = <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. )
45		eqid 2206	. . . . . . . . . . 11 |- ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) = ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. )
46	42, 44, 45	ovmpog 6098	. . . . . . . . . 10 |- ( ( ( 1st ` u ) e. ( ZZ>= ` M ) /\ ( 2nd ` u ) e. _V /\ <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` u ) ) = <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. )
47	24, 27, 38, 46	syl3anc 1250	. . . . . . . . 9 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` u ) ) = <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. )
48	22, 47	eqtrd 2239	. . . . . . . 8 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) = <. ( ( 1st ` u ) + 1 ) , ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) >. )
49	48, 38	eqeltrd 2283	. . . . . . 7 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) )
50	49	ralrimiva 2580	. . . . . 6 |- ( ph -> A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) )
51		opelxpi 4720	. . . . . . 7 |- ( ( M e. ( ZZ>= ` M ) /\ ( F ` M ) e. S ) -> <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) )
52	8, 9, 51	syl2anc 411	. . . . . 6 |- ( ph -> <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) )
53	50, 52	jca 306	. . . . 5 |- ( ph -> ( A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) /\ <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) ) )
54		frecfcl 6509	. . . . 5 |- ( ( A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) /\ <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) ) -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) : om --> ( ( ZZ>= ` M ) X. S ) )
55		ffn 5440	. . . . 5 |- (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) : om --> ( ( ZZ>= ` M ) X. S ) -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) Fn om )
56	53, 54, 55	3syl 17	. . . 4 |- ( ph -> frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) Fn om )
57		fveq2 5594	. . . . . . . 8 |- ( c = (/) -> ( R ` c ) = ( R ` (/) ) )
58		fveq2 5594	. . . . . . . 8 |- ( c = (/) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) )
59	57, 58	eqeq12d 2221	. . . . . . 7 |- ( c = (/) -> ( ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) <-> ( R ` (/) ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) ) )
60	59	imbi2d 230	. . . . . 6 |- ( c = (/) -> ( ( ph -> ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) ) <-> ( ph -> ( R ` (/) ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) ) ) )
61		fveq2 5594	. . . . . . . 8 |- ( c = k -> ( R ` c ) = ( R ` k ) )
62		fveq2 5594	. . . . . . . 8 |- ( c = k -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) )
63	61, 62	eqeq12d 2221	. . . . . . 7 |- ( c = k -> ( ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) <-> ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
64	63	imbi2d 230	. . . . . 6 |- ( c = k -> ( ( ph -> ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) ) <-> ( ph -> ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) ) )
65		fveq2 5594	. . . . . . . 8 |- ( c = suc k -> ( R ` c ) = ( R ` suc k ) )
66		fveq2 5594	. . . . . . . 8 |- ( c = suc k -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) )
67	65, 66	eqeq12d 2221	. . . . . . 7 |- ( c = suc k -> ( ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) <-> ( R ` suc k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) ) )
68	67	imbi2d 230	. . . . . 6 |- ( c = suc k -> ( ( ph -> ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) ) <-> ( ph -> ( R ` suc k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) ) ) )
69		fveq2 5594	. . . . . . . 8 |- ( c = n -> ( R ` c ) = ( R ` n ) )
70		fveq2 5594	. . . . . . . 8 |- ( c = n -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` n ) )
71	69, 70	eqeq12d 2221	. . . . . . 7 |- ( c = n -> ( ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) <-> ( R ` n ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` n ) ) )
72	71	imbi2d 230	. . . . . 6 |- ( c = n -> ( ( ph -> ( R ` c ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` c ) ) <-> ( ph -> ( R ` n ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` n ) ) ) )
73	14	fveq1i 5595	. . . . . . . 8 |- ( R ` (/) ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` (/) )
74		frec0g 6501	. . . . . . . . 9 |- ( <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) = <. M , ( F ` M ) >. )
75	52, 74	syl 14	. . . . . . . 8 |- ( ph -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) = <. M , ( F ` M ) >. )
76	73, 75	eqtrid 2251	. . . . . . 7 |- ( ph -> ( R ` (/) ) = <. M , ( F ` M ) >. )
77		frec0g 6501	. . . . . . . 8 |- ( <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) = <. M , ( F ` M ) >. )
78	52, 77	syl 14	. . . . . . 7 |- ( ph -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) = <. M , ( F ` M ) >. )
79	76, 78	eqtr4d 2242	. . . . . 6 |- ( ph -> ( R ` (/) ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` (/) ) )
80	15	ad2antlr 489	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> R : om --> ( ( ZZ>= ` M ) X. S ) )
81		simpll 527	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> k e. om )
82	80, 81	ffvelcdmd 5734	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` k ) e. ( ( ZZ>= ` M ) X. S ) )
83		xp1st 6269	. . . . . . . . . . 11 |- ( ( R ` k ) e. ( ( ZZ>= ` M ) X. S ) -> ( 1st ` ( R ` k ) ) e. ( ZZ>= ` M ) )
84	82, 83	syl 14	. . . . . . . . . 10 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( 1st ` ( R ` k ) ) e. ( ZZ>= ` M ) )
85		xp2nd 6270	. . . . . . . . . . . 12 |- ( ( R ` k ) e. ( ( ZZ>= ` M ) X. S ) -> ( 2nd ` ( R ` k ) ) e. S )
86	82, 85	syl 14	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( 2nd ` ( R ` k ) ) e. S )
87	86	elexd 2787	. . . . . . . . . 10 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( 2nd ` ( R ` k ) ) e. _V )
88	30	adantll 476	. . . . . . . . . . . . . . 15 |- ( ( ( k e. om /\ ph ) /\ ( a e. S /\ b e. S ) ) -> ( a .+ b ) e. S )
89	88	adantlr 477	. . . . . . . . . . . . . 14 |- ( ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) /\ ( a e. S /\ b e. S ) ) -> ( a .+ b ) e. S )
90		fveq2 5594	. . . . . . . . . . . . . . . 16 |- ( a = ( ( 1st ` ( R ` k ) ) + 1 ) -> ( F ` a ) = ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) )
91	90	eleq1d 2275	. . . . . . . . . . . . . . 15 |- ( a = ( ( 1st ` ( R ` k ) ) + 1 ) -> ( ( F ` a ) e. S <-> ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) e. S ) )
92		fveq2 5594	. . . . . . . . . . . . . . . . . . 19 |- ( x = a -> ( F ` x ) = ( F ` a ) )
93	92	eleq1d 2275	. . . . . . . . . . . . . . . . . 18 |- ( x = a -> ( ( F ` x ) e. S <-> ( F ` a ) e. S ) )
94	93	cbvralv 2739	. . . . . . . . . . . . . . . . 17 |- ( A. x e. ( ZZ>= ` M ) ( F ` x ) e. S <-> A. a e. ( ZZ>= ` M ) ( F ` a ) e. S )
95	6, 94	sylib 122	. . . . . . . . . . . . . . . 16 |- ( ph -> A. a e. ( ZZ>= ` M ) ( F ` a ) e. S )
96	95	ad2antlr 489	. . . . . . . . . . . . . . 15 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> A. a e. ( ZZ>= ` M ) ( F ` a ) e. S )
97		peano2uz 9734	. . . . . . . . . . . . . . . 16 |- ( ( 1st ` ( R ` k ) ) e. ( ZZ>= ` M ) -> ( ( 1st ` ( R ` k ) ) + 1 ) e. ( ZZ>= ` M ) )
98	84, 97	syl 14	. . . . . . . . . . . . . . 15 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( 1st ` ( R ` k ) ) + 1 ) e. ( ZZ>= ` M ) )
99	91, 96, 98	rspcdva 2886	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) e. S )
100	89, 86, 99	caovcld 6118	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) e. S )
101		fvoveq1 5985	. . . . . . . . . . . . . . 15 |- ( z = ( 1st ` ( R ` k ) ) -> ( F ` ( z + 1 ) ) = ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) )
102	101	oveq2d 5978	. . . . . . . . . . . . . 14 |- ( z = ( 1st ` ( R ` k ) ) -> ( w .+ ( F ` ( z + 1 ) ) ) = ( w .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) )
103		oveq1 5969	. . . . . . . . . . . . . 14 |- ( w = ( 2nd ` ( R ` k ) ) -> ( w .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) = ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) )
104		eqid 2206	. . . . . . . . . . . . . 14 |- ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) = ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) )
105	102, 103, 104	ovmpog 6098	. . . . . . . . . . . . 13 |- ( ( ( 1st ` ( R ` k ) ) e. ( ZZ>= ` M ) /\ ( 2nd ` ( R ` k ) ) e. S /\ ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) e. S ) -> ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) = ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) )
106	84, 86, 100, 105	syl3anc 1250	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) = ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) )
107	106	opeq2d 3835	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. )
108	106, 100	eqeltrd 2283	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) e. S )
109		opelxpi 4720	. . . . . . . . . . . 12 |- ( ( ( ( 1st ` ( R ` k ) ) + 1 ) e. ( ZZ>= ` M ) /\ ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) e. S ) -> <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
110	98, 108, 109	syl2anc 411	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
111	107, 110	eqeltrrd 2284	. . . . . . . . . 10 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
112		oveq1 5969	. . . . . . . . . . . 12 |- ( x = ( 1st ` ( R ` k ) ) -> ( x + 1 ) = ( ( 1st ` ( R ` k ) ) + 1 ) )
113		fvoveq1 5985	. . . . . . . . . . . . 13 |- ( x = ( 1st ` ( R ` k ) ) -> ( F ` ( x + 1 ) ) = ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) )
114	113	oveq2d 5978	. . . . . . . . . . . 12 |- ( x = ( 1st ` ( R ` k ) ) -> ( y .+ ( F ` ( x + 1 ) ) ) = ( y .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) )
115	112, 114	opeq12d 3836	. . . . . . . . . . 11 |- ( x = ( 1st ` ( R ` k ) ) -> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( y .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. )
116		oveq1 5969	. . . . . . . . . . . 12 |- ( y = ( 2nd ` ( R ` k ) ) -> ( y .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) = ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) )
117	116	opeq2d 3835	. . . . . . . . . . 11 |- ( y = ( 2nd ` ( R ` k ) ) -> <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( y .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. )
118	115, 117, 45	ovmpog 6098	. . . . . . . . . 10 |- ( ( ( 1st ` ( R ` k ) ) e. ( ZZ>= ` M ) /\ ( 2nd ` ( R ` k ) ) e. _V /\ <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` ( R ` k ) ) ) = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. )
119	84, 87, 111, 118	syl3anc 1250	. . . . . . . . 9 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` ( R ` k ) ) ) = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. )
120	50	ad2antlr 489	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) )
121	52	ad2antlr 489	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) )
122		frecsuc 6511	. . . . . . . . . . . 12 |- ( ( A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) /\ <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) /\ k e. om ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
123	120, 121, 81, 122	syl3anc 1250	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
124		simpr 110	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) )
125	124	fveq2d 5598	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` ( R ` k ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
126	123, 125	eqtr4d 2242	. . . . . . . . . 10 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` ( R ` k ) ) )
127		1st2nd2 6279	. . . . . . . . . . . . 13 |- ( ( R ` k ) e. ( ( ZZ>= ` M ) X. S ) -> ( R ` k ) = <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. )
128	82, 127	syl 14	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` k ) = <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. )
129	128	fveq2d 5598	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` ( R ` k ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. ) )
130		df-ov 5965	. . . . . . . . . . 11 |- ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` ( R ` k ) ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. )
131	129, 130	eqtr4di 2257	. . . . . . . . . 10 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ` ( R ` k ) ) = ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` ( R ` k ) ) ) )
132	126, 131	eqtrd 2239	. . . . . . . . 9 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) = ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) ( 2nd ` ( R ` k ) ) ) )
133	14	fveq1i 5595	. . . . . . . . . . . . . . 15 |- ( R ` suc k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` suc k )
134	19	fveq2d 5598	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` <. ( 1st ` u ) , ( 2nd ` u ) >. ) )
135		df-ov 5965	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` u ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` <. ( 1st ` u ) , ( 2nd ` u ) >. )
136	134, 135	eqtr4di 2257	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) = ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` u ) ) )
137		fvoveq1 5985	. . . . . . . . . . . . . . . . . . . . . . . . . 26 |- ( z = ( 1st ` u ) -> ( F ` ( z + 1 ) ) = ( F ` ( ( 1st ` u ) + 1 ) ) )
138	137	oveq2d 5978	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( z = ( 1st ` u ) -> ( w .+ ( F ` ( z + 1 ) ) ) = ( w .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) )
139		oveq1 5969	. . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( w = ( 2nd ` u ) -> ( w .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) = ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) )
140	138, 139, 104	ovmpog 6098	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( ( 1st ` u ) e. ( ZZ>= ` M ) /\ ( 2nd ` u ) e. S /\ ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) e. S ) -> ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) = ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) )
141	24, 26, 36, 140	syl3anc 1250	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) = ( ( 2nd ` u ) .+ ( F ` ( ( 1st ` u ) + 1 ) ) ) )
142	141, 36	eqeltrd 2283	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) e. S )
143		opelxpi 4720	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ( 1st ` u ) + 1 ) e. ( ZZ>= ` M ) /\ ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) e. S ) -> <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
144	29, 142, 143	syl2anc 411	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. e. ( ( ZZ>= ` M ) X. S ) )
145		oveq1 5969	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( x = ( 1st ` u ) -> ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) = ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) )
146	39, 145	opeq12d 3836	. . . . . . . . . . . . . . . . . . . . . 22 |- ( x = ( 1st ` u ) -> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. = <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. )
147		oveq2 5970	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( y = ( 2nd ` u ) -> ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) = ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) )
148	147	opeq2d 3835	. . . . . . . . . . . . . . . . . . . . . 22 |- ( y = ( 2nd ` u ) -> <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. = <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. )
149		eqid 2206	. . . . . . . . . . . . . . . . . . . . . 22 |- ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) = ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. )
150	146, 148, 149	ovmpog 6098	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( 1st ` u ) e. ( ZZ>= ` M ) /\ ( 2nd ` u ) e. _V /\ <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` u ) ) = <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. )
151	24, 27, 144, 150	syl3anc 1250	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` u ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` u ) ) = <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. )
152	136, 151	eqtrd 2239	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) = <. ( ( 1st ` u ) + 1 ) , ( ( 1st ` u ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` u ) ) >. )
153	152, 144	eqeltrd 2283	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ u e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) )
154	153	ralrimiva 2580	. . . . . . . . . . . . . . . . 17 |- ( ph -> A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) )
155	154	ad2antlr 489	. . . . . . . . . . . . . . . 16 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) )
156		frecsuc 6511	. . . . . . . . . . . . . . . 16 |- ( ( A. u e. ( ( ZZ>= ` M ) X. S ) ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` u ) e. ( ( ZZ>= ` M ) X. S ) /\ <. M , ( F ` M ) >. e. ( ( ZZ>= ` M ) X. S ) /\ k e. om ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
157	155, 121, 81, 156	syl3anc 1250	. . . . . . . . . . . . . . 15 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
158	133, 157	eqtrid 2251	. . . . . . . . . . . . . 14 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) )
159	14	fveq1i 5595	. . . . . . . . . . . . . . 15 |- ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` k )
160	159	fveq2i 5597	. . . . . . . . . . . . . 14 |- ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` ( R ` k ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) , <. M , ( F ` M ) >. ) ` k ) )
161	158, 160	eqtr4di 2257	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` ( R ` k ) ) )
162	128	fveq2d 5598	. . . . . . . . . . . . 13 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` ( R ` k ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. ) )
163	161, 162	eqtrd 2239	. . . . . . . . . . . 12 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. ) )
164		df-ov 5965	. . . . . . . . . . . 12 |- ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` ( R ` k ) ) ) = ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ` <. ( 1st ` ( R ` k ) ) , ( 2nd ` ( R ` k ) ) >. )
165	163, 164	eqtr4di 2257	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` ( R ` k ) ) ) )
166		oveq1 5969	. . . . . . . . . . . . . 14 |- ( x = ( 1st ` ( R ` k ) ) -> ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) = ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) )
167	112, 166	opeq12d 3836	. . . . . . . . . . . . 13 |- ( x = ( 1st ` ( R ` k ) ) -> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. )
168		oveq2 5970	. . . . . . . . . . . . . 14 |- ( y = ( 2nd ` ( R ` k ) ) -> ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) = ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) )
169	168	opeq2d 3835	. . . . . . . . . . . . 13 |- ( y = ( 2nd ` ( R ` k ) ) -> <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. )
170	167, 169, 149	ovmpog 6098	. . . . . . . . . . . 12 |- ( ( ( 1st ` ( R ` k ) ) e. ( ZZ>= ` M ) /\ ( 2nd ` ( R ` k ) ) e. _V /\ <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. e. ( ( ZZ>= ` M ) X. S ) ) -> ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` ( R ` k ) ) ) = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. )
171	84, 87, 110, 170	syl3anc 1250	. . . . . . . . . . 11 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ( 1st ` ( R ` k ) ) ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( x ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) y ) >. ) ( 2nd ` ( R ` k ) ) ) = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. )
172	165, 171	eqtrd 2239	. . . . . . . . . 10 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 1st ` ( R ` k ) ) ( z e. ( ZZ>= ` M ) , w e. S |-> ( w .+ ( F ` ( z + 1 ) ) ) ) ( 2nd ` ( R ` k ) ) ) >. )
173	172, 107	eqtrd 2239	. . . . . . . . 9 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = <. ( ( 1st ` ( R ` k ) ) + 1 ) , ( ( 2nd ` ( R ` k ) ) .+ ( F ` ( ( 1st ` ( R ` k ) ) + 1 ) ) ) >. )
174	119, 132, 173	3eqtr4rd 2250	. . . . . . . 8 |- ( ( ( k e. om /\ ph ) /\ ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( R ` suc k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) )
175	174	exp31 364	. . . . . . 7 |- ( k e. om -> ( ph -> ( ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) -> ( R ` suc k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) ) ) )
176	175	a2d 26	. . . . . 6 |- ( k e. om -> ( ( ph -> ( R ` k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` k ) ) -> ( ph -> ( R ` suc k ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` suc k ) ) ) )
177	60, 64, 68, 72, 79, 176	finds 4661	. . . . 5 |- ( n e. om -> ( ph -> ( R ` n ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` n ) ) )
178	177	impcom 125	. . . 4 |- ( ( ph /\ n e. om ) -> ( R ` n ) = (frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) ` n ) )
179	17, 56, 178	eqfnfvd 5698	. . 3 |- ( ph -> R = frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) )
180	179	rneqd 4921	. 2 |- ( ph -> ran R = ran frec ( ( x e. ( ZZ>= ` M ) , y e. _V |-> <. ( x + 1 ) , ( y .+ ( F ` ( x + 1 ) ) ) >. ) , <. M , ( F ` M ) >. ) )
181	1, 180	eqtr4id 2258	1 |- ( ph -> seq M ( .+ , F ) = ran R )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1373   e. wcel 2177   A.wral 2485   _Vcvv 2773   C_ wss 3170   (/)c0 3464   <.cop 3641   suc csuc 4425   omcom 4651   X. cxp 4686   ran crn 4689   Fn wfn 5280   -->wf 5281   ` cfv 5285  (class class class)co 5962   e. cmpo 5964   1stc1st 6242   2ndc2nd 6243  freccfrec 6494   1c1 7956   + caddc 7958   ZZcz 9402   ZZ>=cuz 9678   seqcseq 10624

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 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-coll 4170  ax-sep 4173  ax-nul 4181  ax-pow 4229  ax-pr 4264  ax-un 4493  ax-setind 4598  ax-iinf 4649  ax-cnex 8046  ax-resscn 8047  ax-1cn 8048  ax-1re 8049  ax-icn 8050  ax-addcl 8051  ax-addrcl 8052  ax-mulcl 8053  ax-addcom 8055  ax-addass 8057  ax-distr 8059  ax-i2m1 8060  ax-0lt1 8061  ax-0id 8063  ax-rnegex 8064  ax-cnre 8066  ax-pre-ltirr 8067  ax-pre-ltwlin 8068  ax-pre-lttrn 8069  ax-pre-ltadd 8071

This theorem depends on definitions:  df-bi 117  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ne 2378  df-nel 2473  df-ral 2490  df-rex 2491  df-reu 2492  df-rab 2494  df-v 2775  df-sbc 3003  df-csb 3098  df-dif 3172  df-un 3174  df-in 3176  df-ss 3183  df-nul 3465  df-pw 3623  df-sn 3644  df-pr 3645  df-op 3647  df-uni 3860  df-int 3895  df-iun 3938  df-br 4055  df-opab 4117  df-mpt 4118  df-tr 4154  df-id 4353  df-iord 4426  df-on 4428  df-ilim 4429  df-suc 4431  df-iom 4652  df-xp 4694  df-rel 4695  df-cnv 4696  df-co 4697  df-dm 4698  df-rn 4699  df-res 4700  df-ima 4701  df-iota 5246  df-fun 5287  df-fn 5288  df-f 5289  df-f1 5290  df-fo 5291  df-f1o 5292  df-fv 5293  df-riota 5917  df-ov 5965  df-oprab 5966  df-mpo 5967  df-1st 6244  df-2nd 6245  df-recs 6409  df-frec 6495  df-pnf 8139  df-mnf 8140  df-xr 8141  df-ltxr 8142  df-le 8143  df-sub 8275  df-neg 8276  df-inn 9067  df-n0 9326  df-z 9403  df-uz 9679  df-seqfrec 10625

This theorem is referenced by:  seq3-1  10639  seqf  10641  seq3p1  10642