Theorem summodclem3 11545

Description: Lemma for summodc 11548. (Contributed by Mario Carneiro, 29-Mar-2014.) (Revised by Jim Kingdon, 9-Apr-2023.)

Hypotheses

Ref	Expression
isummo.1	|- F = ( k e. ZZ |-> if ( k e. A , B , 0 ) )
isummo.2	|- ( ( ph /\ k e. A ) -> B e. CC )
isummolem3.5	|- ( ph -> ( M e. NN /\ N e. NN ) )
isummolem3.6	|- ( ph -> f : ( 1 ... M ) -1-1-onto-> A )
isummolem3.7	|- ( ph -> K : ( 1 ... N ) -1-1-onto-> A )
isummolem3.g	|- G = ( n e. NN |-> if ( n <_ M , [_ ( f ` n ) / k ]_ B , 0 ) )
isummolem3.4	|- H = ( n e. NN |-> if ( n <_ N , [_ ( K ` n ) / k ]_ B , 0 ) )

Assertion

Ref	Expression
summodclem3	|- ( ph -> ( seq 1 ( + , G ) ` M ) = ( seq 1 ( + , H ) ` N ) )

Distinct variable groups:   k, n, A   n, F   k, N, n   ph, k, n   k, M, n   B, n   k, K, n   f, k, n

Allowed substitution hints:   ph( f)   A( f)   B( f, k)   F( f, k)   G( f, k, n)   H( f, k, n)   K( f)   M( f)   N( f)

Proof of Theorem summodclem3

Dummy variables i j m y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		addcl 8004	. . . 4 |- ( ( m e. CC /\ j e. CC ) -> ( m + j ) e. CC )
2	1	adantl 277	. . 3 |- ( ( ph /\ ( m e. CC /\ j e. CC ) ) -> ( m + j ) e. CC )
3		addcom 8163	. . . 4 |- ( ( m e. CC /\ j e. CC ) -> ( m + j ) = ( j + m ) )
4	3	adantl 277	. . 3 |- ( ( ph /\ ( m e. CC /\ j e. CC ) ) -> ( m + j ) = ( j + m ) )
5		addass 8009	. . . 4 |- ( ( m e. CC /\ j e. CC /\ y e. CC ) -> ( ( m + j ) + y ) = ( m + ( j + y ) ) )
6	5	adantl 277	. . 3 |- ( ( ph /\ ( m e. CC /\ j e. CC /\ y e. CC ) ) -> ( ( m + j ) + y ) = ( m + ( j + y ) ) )
7		isummolem3.5	. . . . 5 |- ( ph -> ( M e. NN /\ N e. NN ) )
8	7	simpld 112	. . . 4 |- ( ph -> M e. NN )
9		nnuz 9637	. . . 4 |- NN = ( ZZ>= ` 1 )
10	8, 9	eleqtrdi 2289	. . 3 |- ( ph -> M e. ( ZZ>= ` 1 ) )
11		isummolem3.6	. . . . . 6 |- ( ph -> f : ( 1 ... M ) -1-1-onto-> A )
12		f1ocnv 5517	. . . . . 6 |- ( f : ( 1 ... M ) -1-1-onto-> A -> `' f : A -1-1-onto-> ( 1 ... M ) )
13	11, 12	syl 14	. . . . 5 |- ( ph -> `' f : A -1-1-onto-> ( 1 ... M ) )
14		isummolem3.7	. . . . 5 |- ( ph -> K : ( 1 ... N ) -1-1-onto-> A )
15		f1oco 5527	. . . . 5 |- ( ( `' f : A -1-1-onto-> ( 1 ... M ) /\ K : ( 1 ... N ) -1-1-onto-> A ) -> ( `' f o. K ) : ( 1 ... N ) -1-1-onto-> ( 1 ... M ) )
16	13, 14, 15	syl2anc 411	. . . 4 |- ( ph -> ( `' f o. K ) : ( 1 ... N ) -1-1-onto-> ( 1 ... M ) )
17	7, 11, 14	nnf1o 11541	. . . . . . 7 |- ( ph -> N = M )
18	17	eqcomd 2202	. . . . . 6 |- ( ph -> M = N )
19	18	oveq2d 5938	. . . . 5 |- ( ph -> ( 1 ... M ) = ( 1 ... N ) )
20		f1oeq2 5493	. . . . 5 |- ( ( 1 ... M ) = ( 1 ... N ) -> ( ( `' f o. K ) : ( 1 ... M ) -1-1-onto-> ( 1 ... M ) <-> ( `' f o. K ) : ( 1 ... N ) -1-1-onto-> ( 1 ... M ) ) )
21	19, 20	syl 14	. . . 4 |- ( ph -> ( ( `' f o. K ) : ( 1 ... M ) -1-1-onto-> ( 1 ... M ) <-> ( `' f o. K ) : ( 1 ... N ) -1-1-onto-> ( 1 ... M ) ) )
22	16, 21	mpbird 167	. . 3 |- ( ph -> ( `' f o. K ) : ( 1 ... M ) -1-1-onto-> ( 1 ... M ) )
23		elnnuz 9638	. . . 4 |- ( m e. NN <-> m e. ( ZZ>= ` 1 ) )
24		isummolem3.g	. . . . . . 7 |- G = ( n e. NN |-> if ( n <_ M , [_ ( f ` n ) / k ]_ B , 0 ) )
25		breq1 4036	. . . . . . . 8 |- ( n = m -> ( n <_ M <-> m <_ M ) )
26		fveq2 5558	. . . . . . . . 9 |- ( n = m -> ( f ` n ) = ( f ` m ) )
27	26	csbeq1d 3091	. . . . . . . 8 |- ( n = m -> [_ ( f ` n ) / k ]_ B = [_ ( f ` m ) / k ]_ B )
28	25, 27	ifbieq1d 3583	. . . . . . 7 |- ( n = m -> if ( n <_ M , [_ ( f ` n ) / k ]_ B , 0 ) = if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) )
29		simplr 528	. . . . . . 7 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> m e. NN )
30		elfzle2 10103	. . . . . . . . . 10 |- ( m e. ( 1 ... M ) -> m <_ M )
31	30	adantl 277	. . . . . . . . 9 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> m <_ M )
32	31	iftrued 3568	. . . . . . . 8 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) = [_ ( f ` m ) / k ]_ B )
33		f1of 5504	. . . . . . . . . . . 12 |- ( f : ( 1 ... M ) -1-1-onto-> A -> f : ( 1 ... M ) --> A )
34	11, 33	syl 14	. . . . . . . . . . 11 |- ( ph -> f : ( 1 ... M ) --> A )
35	34	ffvelcdmda 5697	. . . . . . . . . 10 |- ( ( ph /\ m e. ( 1 ... M ) ) -> ( f ` m ) e. A )
36		isummo.2	. . . . . . . . . . . 12 |- ( ( ph /\ k e. A ) -> B e. CC )
37	36	ralrimiva 2570	. . . . . . . . . . 11 |- ( ph -> A. k e. A B e. CC )
38	37	adantr 276	. . . . . . . . . 10 |- ( ( ph /\ m e. ( 1 ... M ) ) -> A. k e. A B e. CC )
39		nfcsb1v 3117	. . . . . . . . . . . 12 |- F/_ k [_ ( f ` m ) / k ]_ B
40	39	nfel1 2350	. . . . . . . . . . 11 |- F/ k [_ ( f ` m ) / k ]_ B e. CC
41		csbeq1a 3093	. . . . . . . . . . . 12 |- ( k = ( f ` m ) -> B = [_ ( f ` m ) / k ]_ B )
42	41	eleq1d 2265	. . . . . . . . . . 11 |- ( k = ( f ` m ) -> ( B e. CC <-> [_ ( f ` m ) / k ]_ B e. CC ) )
43	40, 42	rspc 2862	. . . . . . . . . 10 |- ( ( f ` m ) e. A -> ( A. k e. A B e. CC -> [_ ( f ` m ) / k ]_ B e. CC ) )
44	35, 38, 43	sylc 62	. . . . . . . . 9 |- ( ( ph /\ m e. ( 1 ... M ) ) -> [_ ( f ` m ) / k ]_ B e. CC )
45	44	adantlr 477	. . . . . . . 8 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> [_ ( f ` m ) / k ]_ B e. CC )
46	32, 45	eqeltrd 2273	. . . . . . 7 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) e. CC )
47	24, 28, 29, 46	fvmptd3 5655	. . . . . 6 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> ( G ` m ) = if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) )
48	47, 46	eqeltrd 2273	. . . . 5 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> ( G ` m ) e. CC )
49		simplr 528	. . . . . . 7 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> m e. NN )
50	8	ad2antrr 488	. . . . . . . . . . . 12 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> M e. NN )
51	50	nnzd 9447	. . . . . . . . . . 11 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> M e. ZZ )
52		eluzp1l 9626	. . . . . . . . . . 11 |- ( ( M e. ZZ /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> M < m )
53	51, 52	sylancom 420	. . . . . . . . . 10 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> M < m )
54	49	nnzd 9447	. . . . . . . . . . 11 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> m e. ZZ )
55		zltnle 9372	. . . . . . . . . . 11 |- ( ( M e. ZZ /\ m e. ZZ ) -> ( M < m <-> -. m <_ M ) )
56	51, 54, 55	syl2anc 411	. . . . . . . . . 10 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> ( M < m <-> -. m <_ M ) )
57	53, 56	mpbid 147	. . . . . . . . 9 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> -. m <_ M )
58	57	iffalsed 3571	. . . . . . . 8 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) = 0 )
59		0cn 8018	. . . . . . . 8 |- 0 e. CC
60	58, 59	eqeltrdi 2287	. . . . . . 7 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) e. CC )
61	24, 28, 49, 60	fvmptd3 5655	. . . . . 6 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> ( G ` m ) = if ( m <_ M , [_ ( f ` m ) / k ]_ B , 0 ) )
62	61, 60	eqeltrd 2273	. . . . 5 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> ( G ` m ) e. CC )
63		nnsplit 10212	. . . . . . . . 9 |- ( M e. NN -> NN = ( ( 1 ... M ) u. ( ZZ>= ` ( M + 1 ) ) ) )
64	8, 63	syl 14	. . . . . . . 8 |- ( ph -> NN = ( ( 1 ... M ) u. ( ZZ>= ` ( M + 1 ) ) ) )
65	64	eleq2d 2266	. . . . . . 7 |- ( ph -> ( m e. NN <-> m e. ( ( 1 ... M ) u. ( ZZ>= ` ( M + 1 ) ) ) ) )
66	65	biimpa 296	. . . . . 6 |- ( ( ph /\ m e. NN ) -> m e. ( ( 1 ... M ) u. ( ZZ>= ` ( M + 1 ) ) ) )
67		elun 3304	. . . . . 6 |- ( m e. ( ( 1 ... M ) u. ( ZZ>= ` ( M + 1 ) ) ) <-> ( m e. ( 1 ... M ) \/ m e. ( ZZ>= ` ( M + 1 ) ) ) )
68	66, 67	sylib 122	. . . . 5 |- ( ( ph /\ m e. NN ) -> ( m e. ( 1 ... M ) \/ m e. ( ZZ>= ` ( M + 1 ) ) ) )
69	48, 62, 68	mpjaodan 799	. . . 4 |- ( ( ph /\ m e. NN ) -> ( G ` m ) e. CC )
70	23, 69	sylan2br 288	. . 3 |- ( ( ph /\ m e. ( ZZ>= ` 1 ) ) -> ( G ` m ) e. CC )
71	17	oveq2d 5938	. . . . . . . . 9 |- ( ph -> ( 1 ... N ) = ( 1 ... M ) )
72	71	eleq2d 2266	. . . . . . . 8 |- ( ph -> ( m e. ( 1 ... N ) <-> m e. ( 1 ... M ) ) )
73	72	adantr 276	. . . . . . 7 |- ( ( ph /\ m e. NN ) -> ( m e. ( 1 ... N ) <-> m e. ( 1 ... M ) ) )
74	73	pm5.32i 454	. . . . . 6 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) <-> ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) )
75		isummolem3.4	. . . . . . . 8 |- H = ( n e. NN |-> if ( n <_ N , [_ ( K ` n ) / k ]_ B , 0 ) )
76		breq1 4036	. . . . . . . . 9 |- ( n = m -> ( n <_ N <-> m <_ N ) )
77		fveq2 5558	. . . . . . . . . 10 |- ( n = m -> ( K ` n ) = ( K ` m ) )
78	77	csbeq1d 3091	. . . . . . . . 9 |- ( n = m -> [_ ( K ` n ) / k ]_ B = [_ ( K ` m ) / k ]_ B )
79	76, 78	ifbieq1d 3583	. . . . . . . 8 |- ( n = m -> if ( n <_ N , [_ ( K ` n ) / k ]_ B , 0 ) = if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) )
80		simplr 528	. . . . . . . 8 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> m e. NN )
81		elfzle2 10103	. . . . . . . . . . 11 |- ( m e. ( 1 ... N ) -> m <_ N )
82	81	adantl 277	. . . . . . . . . 10 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> m <_ N )
83	82	iftrued 3568	. . . . . . . . 9 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) = [_ ( K ` m ) / k ]_ B )
84		f1of 5504	. . . . . . . . . . . . 13 |- ( K : ( 1 ... N ) -1-1-onto-> A -> K : ( 1 ... N ) --> A )
85	14, 84	syl 14	. . . . . . . . . . . 12 |- ( ph -> K : ( 1 ... N ) --> A )
86	85	ffvelcdmda 5697	. . . . . . . . . . 11 |- ( ( ph /\ m e. ( 1 ... N ) ) -> ( K ` m ) e. A )
87	37	adantr 276	. . . . . . . . . . 11 |- ( ( ph /\ m e. ( 1 ... N ) ) -> A. k e. A B e. CC )
88		nfcsb1v 3117	. . . . . . . . . . . . 13 |- F/_ k [_ ( K ` m ) / k ]_ B
89	88	nfel1 2350	. . . . . . . . . . . 12 |- F/ k [_ ( K ` m ) / k ]_ B e. CC
90		csbeq1a 3093	. . . . . . . . . . . . 13 |- ( k = ( K ` m ) -> B = [_ ( K ` m ) / k ]_ B )
91	90	eleq1d 2265	. . . . . . . . . . . 12 |- ( k = ( K ` m ) -> ( B e. CC <-> [_ ( K ` m ) / k ]_ B e. CC ) )
92	89, 91	rspc 2862	. . . . . . . . . . 11 |- ( ( K ` m ) e. A -> ( A. k e. A B e. CC -> [_ ( K ` m ) / k ]_ B e. CC ) )
93	86, 87, 92	sylc 62	. . . . . . . . . 10 |- ( ( ph /\ m e. ( 1 ... N ) ) -> [_ ( K ` m ) / k ]_ B e. CC )
94	93	adantlr 477	. . . . . . . . 9 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> [_ ( K ` m ) / k ]_ B e. CC )
95	83, 94	eqeltrd 2273	. . . . . . . 8 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) e. CC )
96	75, 79, 80, 95	fvmptd3 5655	. . . . . . 7 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> ( H ` m ) = if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) )
97	96, 95	eqeltrd 2273	. . . . . 6 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... N ) ) -> ( H ` m ) e. CC )
98	74, 97	sylbir 135	. . . . 5 |- ( ( ( ph /\ m e. NN ) /\ m e. ( 1 ... M ) ) -> ( H ` m ) e. CC )
99	17	breq2d 4045	. . . . . . . . . . . 12 |- ( ph -> ( m <_ N <-> m <_ M ) )
100	99	notbid 668	. . . . . . . . . . 11 |- ( ph -> ( -. m <_ N <-> -. m <_ M ) )
101	100	ad2antrr 488	. . . . . . . . . 10 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> ( -. m <_ N <-> -. m <_ M ) )
102	57, 101	mpbird 167	. . . . . . . . 9 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> -. m <_ N )
103	102	iffalsed 3571	. . . . . . . 8 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) = 0 )
104	103, 59	eqeltrdi 2287	. . . . . . 7 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) e. CC )
105	75, 79, 49, 104	fvmptd3 5655	. . . . . 6 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> ( H ` m ) = if ( m <_ N , [_ ( K ` m ) / k ]_ B , 0 ) )
106	105, 104	eqeltrd 2273	. . . . 5 |- ( ( ( ph /\ m e. NN ) /\ m e. ( ZZ>= ` ( M + 1 ) ) ) -> ( H ` m ) e. CC )
107	98, 106, 68	mpjaodan 799	. . . 4 |- ( ( ph /\ m e. NN ) -> ( H ` m ) e. CC )
108	23, 107	sylan2br 288	. . 3 |- ( ( ph /\ m e. ( ZZ>= ` 1 ) ) -> ( H ` m ) e. CC )
109		f1oeq2 5493	. . . . . . . . . . 11 |- ( ( 1 ... M ) = ( 1 ... N ) -> ( K : ( 1 ... M ) -1-1-onto-> A <-> K : ( 1 ... N ) -1-1-onto-> A ) )
110	19, 109	syl 14	. . . . . . . . . 10 |- ( ph -> ( K : ( 1 ... M ) -1-1-onto-> A <-> K : ( 1 ... N ) -1-1-onto-> A ) )
111	14, 110	mpbird 167	. . . . . . . . 9 |- ( ph -> K : ( 1 ... M ) -1-1-onto-> A )
112		f1of 5504	. . . . . . . . 9 |- ( K : ( 1 ... M ) -1-1-onto-> A -> K : ( 1 ... M ) --> A )
113	111, 112	syl 14	. . . . . . . 8 |- ( ph -> K : ( 1 ... M ) --> A )
114		fvco3 5632	. . . . . . . 8 |- ( ( K : ( 1 ... M ) --> A /\ i e. ( 1 ... M ) ) -> ( ( `' f o. K ) ` i ) = ( `' f ` ( K ` i ) ) )
115	113, 114	sylan 283	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( ( `' f o. K ) ` i ) = ( `' f ` ( K ` i ) ) )
116	115	fveq2d 5562	. . . . . 6 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( f ` ( ( `' f o. K ) ` i ) ) = ( f ` ( `' f ` ( K ` i ) ) ) )
117	11	adantr 276	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> f : ( 1 ... M ) -1-1-onto-> A )
118	113	ffvelcdmda 5697	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( K ` i ) e. A )
119		f1ocnvfv2 5825	. . . . . . 7 |- ( ( f : ( 1 ... M ) -1-1-onto-> A /\ ( K ` i ) e. A ) -> ( f ` ( `' f ` ( K ` i ) ) ) = ( K ` i ) )
120	117, 118, 119	syl2anc 411	. . . . . 6 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( f ` ( `' f ` ( K ` i ) ) ) = ( K ` i ) )
121	116, 120	eqtr2d 2230	. . . . 5 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( K ` i ) = ( f ` ( ( `' f o. K ) ` i ) ) )
122	121	csbeq1d 3091	. . . 4 |- ( ( ph /\ i e. ( 1 ... M ) ) -> [_ ( K ` i ) / k ]_ B = [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B )
123		elfznn 10129	. . . . . 6 |- ( i e. ( 1 ... M ) -> i e. NN )
124		elfzle2 10103	. . . . . . . . . 10 |- ( i e. ( 1 ... M ) -> i <_ M )
125	124	adantl 277	. . . . . . . . 9 |- ( ( ph /\ i e. ( 1 ... M ) ) -> i <_ M )
126	18	breq2d 4045	. . . . . . . . . 10 |- ( ph -> ( i <_ M <-> i <_ N ) )
127	126	adantr 276	. . . . . . . . 9 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( i <_ M <-> i <_ N ) )
128	125, 127	mpbid 147	. . . . . . . 8 |- ( ( ph /\ i e. ( 1 ... M ) ) -> i <_ N )
129	128	iftrued 3568	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> if ( i <_ N , [_ ( K ` i ) / k ]_ B , 0 ) = [_ ( K ` i ) / k ]_ B )
130	37	adantr 276	. . . . . . . 8 |- ( ( ph /\ i e. ( 1 ... M ) ) -> A. k e. A B e. CC )
131		nfcsb1v 3117	. . . . . . . . . 10 |- F/_ k [_ ( K ` i ) / k ]_ B
132	131	nfel1 2350	. . . . . . . . 9 |- F/ k [_ ( K ` i ) / k ]_ B e. CC
133		csbeq1a 3093	. . . . . . . . . 10 |- ( k = ( K ` i ) -> B = [_ ( K ` i ) / k ]_ B )
134	133	eleq1d 2265	. . . . . . . . 9 |- ( k = ( K ` i ) -> ( B e. CC <-> [_ ( K ` i ) / k ]_ B e. CC ) )
135	132, 134	rspc 2862	. . . . . . . 8 |- ( ( K ` i ) e. A -> ( A. k e. A B e. CC -> [_ ( K ` i ) / k ]_ B e. CC ) )
136	118, 130, 135	sylc 62	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> [_ ( K ` i ) / k ]_ B e. CC )
137	129, 136	eqeltrd 2273	. . . . . 6 |- ( ( ph /\ i e. ( 1 ... M ) ) -> if ( i <_ N , [_ ( K ` i ) / k ]_ B , 0 ) e. CC )
138		breq1 4036	. . . . . . . 8 |- ( n = i -> ( n <_ N <-> i <_ N ) )
139		fveq2 5558	. . . . . . . . 9 |- ( n = i -> ( K ` n ) = ( K ` i ) )
140	139	csbeq1d 3091	. . . . . . . 8 |- ( n = i -> [_ ( K ` n ) / k ]_ B = [_ ( K ` i ) / k ]_ B )
141	138, 140	ifbieq1d 3583	. . . . . . 7 |- ( n = i -> if ( n <_ N , [_ ( K ` n ) / k ]_ B , 0 ) = if ( i <_ N , [_ ( K ` i ) / k ]_ B , 0 ) )
142	141, 75	fvmptg 5637	. . . . . 6 |- ( ( i e. NN /\ if ( i <_ N , [_ ( K ` i ) / k ]_ B , 0 ) e. CC ) -> ( H ` i ) = if ( i <_ N , [_ ( K ` i ) / k ]_ B , 0 ) )
143	123, 137, 142	syl2an2 594	. . . . 5 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( H ` i ) = if ( i <_ N , [_ ( K ` i ) / k ]_ B , 0 ) )
144	143, 129	eqtrd 2229	. . . 4 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( H ` i ) = [_ ( K ` i ) / k ]_ B )
145		breq1 4036	. . . . . . 7 |- ( n = ( ( `' f o. K ) ` i ) -> ( n <_ M <-> ( ( `' f o. K ) ` i ) <_ M ) )
146		fveq2 5558	. . . . . . . 8 |- ( n = ( ( `' f o. K ) ` i ) -> ( f ` n ) = ( f ` ( ( `' f o. K ) ` i ) ) )
147	146	csbeq1d 3091	. . . . . . 7 |- ( n = ( ( `' f o. K ) ` i ) -> [_ ( f ` n ) / k ]_ B = [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B )
148	145, 147	ifbieq1d 3583	. . . . . 6 |- ( n = ( ( `' f o. K ) ` i ) -> if ( n <_ M , [_ ( f ` n ) / k ]_ B , 0 ) = if ( ( ( `' f o. K ) ` i ) <_ M , [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B , 0 ) )
149		f1of 5504	. . . . . . . . 9 |- ( ( `' f o. K ) : ( 1 ... M ) -1-1-onto-> ( 1 ... M ) -> ( `' f o. K ) : ( 1 ... M ) --> ( 1 ... M ) )
150	22, 149	syl 14	. . . . . . . 8 |- ( ph -> ( `' f o. K ) : ( 1 ... M ) --> ( 1 ... M ) )
151	150	ffvelcdmda 5697	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( ( `' f o. K ) ` i ) e. ( 1 ... M ) )
152		elfznn 10129	. . . . . . 7 |- ( ( ( `' f o. K ) ` i ) e. ( 1 ... M ) -> ( ( `' f o. K ) ` i ) e. NN )
153	151, 152	syl 14	. . . . . 6 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( ( `' f o. K ) ` i ) e. NN )
154		elfzle2 10103	. . . . . . . . . 10 |- ( ( ( `' f o. K ) ` i ) e. ( 1 ... M ) -> ( ( `' f o. K ) ` i ) <_ M )
155	151, 154	syl 14	. . . . . . . . 9 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( ( `' f o. K ) ` i ) <_ M )
156	155	iftrued 3568	. . . . . . . 8 |- ( ( ph /\ i e. ( 1 ... M ) ) -> if ( ( ( `' f o. K ) ` i ) <_ M , [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B , 0 ) = [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B )
157	156, 122	eqtr4d 2232	. . . . . . 7 |- ( ( ph /\ i e. ( 1 ... M ) ) -> if ( ( ( `' f o. K ) ` i ) <_ M , [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B , 0 ) = [_ ( K ` i ) / k ]_ B )
158	157, 136	eqeltrd 2273	. . . . . 6 |- ( ( ph /\ i e. ( 1 ... M ) ) -> if ( ( ( `' f o. K ) ` i ) <_ M , [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B , 0 ) e. CC )
159	24, 148, 153, 158	fvmptd3 5655	. . . . 5 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( G ` ( ( `' f o. K ) ` i ) ) = if ( ( ( `' f o. K ) ` i ) <_ M , [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B , 0 ) )
160	159, 156	eqtrd 2229	. . . 4 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( G ` ( ( `' f o. K ) ` i ) ) = [_ ( f ` ( ( `' f o. K ) ` i ) ) / k ]_ B )
161	122, 144, 160	3eqtr4d 2239	. . 3 |- ( ( ph /\ i e. ( 1 ... M ) ) -> ( H ` i ) = ( G ` ( ( `' f o. K ) ` i ) ) )
162	2, 4, 6, 10, 22, 70, 108, 161	seq3f1o 10609	. 2 |- ( ph -> ( seq 1 ( + , H ) ` M ) = ( seq 1 ( + , G ) ` M ) )
163	18	fveq2d 5562	. 2 |- ( ph -> ( seq 1 ( + , H ) ` M ) = ( seq 1 ( + , H ) ` N ) )
164	162, 163	eqtr3d 2231	1 |- ( ph -> ( seq 1 ( + , G ) ` M ) = ( seq 1 ( + , H ) ` N ) )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 709   /\ w3a 980   = wceq 1364   e. wcel 2167   A.wral 2475   [_csb 3084   u. cun 3155   ifcif 3561   class class class wbr 4033   |-> cmpt 4094   `'ccnv 4662   o. ccom 4667   -->wf 5254   -1-1-onto->wf1o 5257   ` cfv 5258  (class class class)co 5922   CCcc 7877   0cc0 7879   1c1 7880   + caddc 7882   < clt 8061   <_ cle 8062   NNcn 8990   ZZcz 9326   ZZ>=cuz 9601   ...cfz 10083   seqcseq 10539

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 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4148  ax-sep 4151  ax-nul 4159  ax-pow 4207  ax-pr 4242  ax-un 4468  ax-setind 4573  ax-iinf 4624  ax-cnex 7970  ax-resscn 7971  ax-1cn 7972  ax-1re 7973  ax-icn 7974  ax-addcl 7975  ax-addrcl 7976  ax-mulcl 7977  ax-addcom 7979  ax-addass 7981  ax-distr 7983  ax-i2m1 7984  ax-0lt1 7985  ax-0id 7987  ax-rnegex 7988  ax-cnre 7990  ax-pre-ltirr 7991  ax-pre-ltwlin 7992  ax-pre-lttrn 7993  ax-pre-apti 7994  ax-pre-ltadd 7995

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-nel 2463  df-ral 2480  df-rex 2481  df-reu 2482  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3451  df-if 3562  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-uni 3840  df-int 3875  df-iun 3918  df-br 4034  df-opab 4095  df-mpt 4096  df-tr 4132  df-id 4328  df-iord 4401  df-on 4403  df-ilim 4404  df-suc 4406  df-iom 4627  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-rn 4674  df-res 4675  df-ima 4676  df-iota 5219  df-fun 5260  df-fn 5261  df-f 5262  df-f1 5263  df-fo 5264  df-f1o 5265  df-fv 5266  df-riota 5877  df-ov 5925  df-oprab 5926  df-mpo 5927  df-1st 6198  df-2nd 6199  df-recs 6363  df-frec 6449  df-1o 6474  df-er 6592  df-en 6800  df-dom 6801  df-fin 6802  df-pnf 8063  df-mnf 8064  df-xr 8065  df-ltxr 8066  df-le 8067  df-sub 8199  df-neg 8200  df-inn 8991  df-n0 9250  df-z 9327  df-uz 9602  df-fz 10084  df-fzo 10218  df-seqfrec 10540  df-ihash 10868

This theorem is referenced by:  summodclem2a  11546  summodc  11548