Theorem psrass1lem 19377

Description: A group sum commutation used by psrass1 19405. (Contributed by Mario Carneiro, 5-Jan-2015.)

Hypotheses

Ref	Expression
psrbag.d	|- D = { f e. ( NN0 ^m I ) | ( `' f " NN ) e. Fin }
psrbagconf1o.1	|- S = { y e. D | y oR <_ F }
gsumbagdiag.i	|- ( ph -> I e. V )
gsumbagdiag.f	|- ( ph -> F e. D )
gsumbagdiag.b	|- B = ( Base ` G )
gsumbagdiag.g	|- ( ph -> G e. CMnd )
gsumbagdiag.x	|- ( ( ph /\ ( j e. S /\ k e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> X e. B )
psrass1lem.y	|- ( k = ( n oF - j ) -> X = Y )

Assertion

Ref	Expression
psrass1lem	|- ( ph -> ( G gsumg ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) ) = ( G gsumg ( j e. S |-> ( G gsumg ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) ) ) ) )

Distinct variable groups:   f, j, k, n, x, y, F   f, G, j, k, n, x, y   n, V, x, y   f, I, n, x, y   ph, j, k   S, j, k, n, x   B, j, k   D, j, k, n, x, y   f, X, n, x, y   f, Y, k, x, y

Allowed substitution hints:   ph( x, y, f, n)   B( x, y, f, n)   D( f)   S( y, f)   I( j, k)   V( f, j, k)   X( j, k)   Y( j, n)

Proof of Theorem psrass1lem

Dummy variables m z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		psrbag.d	. . . 4 |- D = { f e. ( NN0 ^m I ) | ( `' f " NN ) e. Fin }
2		psrbagconf1o.1	. . . 4 |- S = { y e. D | y oR <_ F }
3		gsumbagdiag.i	. . . 4 |- ( ph -> I e. V )
4		gsumbagdiag.f	. . . 4 |- ( ph -> F e. D )
5		gsumbagdiag.b	. . . 4 |- B = ( Base ` G )
6		gsumbagdiag.g	. . . 4 |- ( ph -> G e. CMnd )
7	1, 2, 3, 4	gsumbagdiaglem 19375	. . . . 5 |- ( ( ph /\ ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) ) -> ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) )
8		gsumbagdiag.x	. . . . . . . . . . . 12 |- ( ( ph /\ ( j e. S /\ k e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> X e. B )
9	8	anassrs 680	. . . . . . . . . . 11 |- ( ( ( ph /\ j e. S ) /\ k e. { x e. D | x oR <_ ( F oF - j ) } ) -> X e. B )
10		eqid 2622	. . . . . . . . . . 11 |- ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) = ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X )
11	9, 10	fmptd 6385	. . . . . . . . . 10 |- ( ( ph /\ j e. S ) -> ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) : { x e. D | x oR <_ ( F oF - j ) } --> B )
12	3	adantr 481	. . . . . . . . . . . 12 |- ( ( ph /\ j e. S ) -> I e. V )
13		ssrab2 3687	. . . . . . . . . . . . . 14 |- { y e. D | y oR <_ F } C_ D
14	2, 13	eqsstri 3635	. . . . . . . . . . . . 13 |- S C_ D
15	4	adantr 481	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. S ) -> F e. D )
16		simpr 477	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. S ) -> j e. S )
17	1, 2	psrbagconcl 19373	. . . . . . . . . . . . . 14 |- ( ( I e. V /\ F e. D /\ j e. S ) -> ( F oF - j ) e. S )
18	12, 15, 16, 17	syl3anc 1326	. . . . . . . . . . . . 13 |- ( ( ph /\ j e. S ) -> ( F oF - j ) e. S )
19	14, 18	sseldi 3601	. . . . . . . . . . . 12 |- ( ( ph /\ j e. S ) -> ( F oF - j ) e. D )
20		eqid 2622	. . . . . . . . . . . . 13 |- { x e. D | x oR <_ ( F oF - j ) } = { x e. D | x oR <_ ( F oF - j ) }
21	1, 20	psrbagconf1o 19374	. . . . . . . . . . . 12 |- ( ( I e. V /\ ( F oF - j ) e. D ) -> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) : { x e. D | x oR <_ ( F oF - j ) } -1-1-onto-> { x e. D | x oR <_ ( F oF - j ) } )
22	12, 19, 21	syl2anc 693	. . . . . . . . . . 11 |- ( ( ph /\ j e. S ) -> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) : { x e. D | x oR <_ ( F oF - j ) } -1-1-onto-> { x e. D | x oR <_ ( F oF - j ) } )
23		f1of 6137	. . . . . . . . . . 11 |- ( ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) : { x e. D | x oR <_ ( F oF - j ) } -1-1-onto-> { x e. D | x oR <_ ( F oF - j ) } -> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) : { x e. D | x oR <_ ( F oF - j ) } --> { x e. D | x oR <_ ( F oF - j ) } )
24	22, 23	syl 17	. . . . . . . . . 10 |- ( ( ph /\ j e. S ) -> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) : { x e. D | x oR <_ ( F oF - j ) } --> { x e. D | x oR <_ ( F oF - j ) } )
25		fco 6058	. . . . . . . . . 10 |- ( ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) : { x e. D | x oR <_ ( F oF - j ) } --> B /\ ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) : { x e. D | x oR <_ ( F oF - j ) } --> { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) o. ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) ) : { x e. D | x oR <_ ( F oF - j ) } --> B )
26	11, 24, 25	syl2anc 693	. . . . . . . . 9 |- ( ( ph /\ j e. S ) -> ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) o. ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) ) : { x e. D | x oR <_ ( F oF - j ) } --> B )
27	12	adantr 481	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> I e. V )
28	15	adantr 481	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> F e. D )
29	1	psrbagf 19365	. . . . . . . . . . . . . . . . 17 |- ( ( I e. V /\ F e. D ) -> F : I --> NN0 )
30	27, 28, 29	syl2anc 693	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> F : I --> NN0 )
31	30	ffvelrnda 6359	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ z e. I ) -> ( F ` z ) e. NN0 )
32	16	adantr 481	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> j e. S )
33	14, 32	sseldi 3601	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> j e. D )
34	1	psrbagf 19365	. . . . . . . . . . . . . . . . 17 |- ( ( I e. V /\ j e. D ) -> j : I --> NN0 )
35	27, 33, 34	syl2anc 693	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> j : I --> NN0 )
36	35	ffvelrnda 6359	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ z e. I ) -> ( j ` z ) e. NN0 )
37		ssrab2 3687	. . . . . . . . . . . . . . . . . 18 |- { x e. D | x oR <_ ( F oF - j ) } C_ D
38		simpr 477	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> m e. { x e. D | x oR <_ ( F oF - j ) } )
39	37, 38	sseldi 3601	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> m e. D )
40	1	psrbagf 19365	. . . . . . . . . . . . . . . . 17 |- ( ( I e. V /\ m e. D ) -> m : I --> NN0 )
41	27, 39, 40	syl2anc 693	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> m : I --> NN0 )
42	41	ffvelrnda 6359	. . . . . . . . . . . . . . 15 |- ( ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ z e. I ) -> ( m ` z ) e. NN0 )
43		nn0cn 11302	. . . . . . . . . . . . . . . 16 |- ( ( F ` z ) e. NN0 -> ( F ` z ) e. CC )
44		nn0cn 11302	. . . . . . . . . . . . . . . 16 |- ( ( j ` z ) e. NN0 -> ( j ` z ) e. CC )
45		nn0cn 11302	. . . . . . . . . . . . . . . 16 |- ( ( m ` z ) e. NN0 -> ( m ` z ) e. CC )
46		sub32 10315	. . . . . . . . . . . . . . . 16 |- ( ( ( F ` z ) e. CC /\ ( j ` z ) e. CC /\ ( m ` z ) e. CC ) -> ( ( ( F ` z ) - ( j ` z ) ) - ( m ` z ) ) = ( ( ( F ` z ) - ( m ` z ) ) - ( j ` z ) ) )
47	43, 44, 45, 46	syl3an 1368	. . . . . . . . . . . . . . 15 |- ( ( ( F ` z ) e. NN0 /\ ( j ` z ) e. NN0 /\ ( m ` z ) e. NN0 ) -> ( ( ( F ` z ) - ( j ` z ) ) - ( m ` z ) ) = ( ( ( F ` z ) - ( m ` z ) ) - ( j ` z ) ) )
48	31, 36, 42, 47	syl3anc 1326	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ z e. I ) -> ( ( ( F ` z ) - ( j ` z ) ) - ( m ` z ) ) = ( ( ( F ` z ) - ( m ` z ) ) - ( j ` z ) ) )
49	48	mpteq2dva 4744	. . . . . . . . . . . . 13 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( z e. I |-> ( ( ( F ` z ) - ( j ` z ) ) - ( m ` z ) ) ) = ( z e. I |-> ( ( ( F ` z ) - ( m ` z ) ) - ( j ` z ) ) ) )
50		ovexd 6680	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ z e. I ) -> ( ( F ` z ) - ( j ` z ) ) e. _V )
51	30	feqmptd 6249	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> F = ( z e. I |-> ( F ` z ) ) )
52	35	feqmptd 6249	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> j = ( z e. I |-> ( j ` z ) ) )
53	27, 31, 36, 51, 52	offval2 6914	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( F oF - j ) = ( z e. I |-> ( ( F ` z ) - ( j ` z ) ) ) )
54	41	feqmptd 6249	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> m = ( z e. I |-> ( m ` z ) ) )
55	27, 50, 42, 53, 54	offval2 6914	. . . . . . . . . . . . 13 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( F oF - j ) oF - m ) = ( z e. I |-> ( ( ( F ` z ) - ( j ` z ) ) - ( m ` z ) ) ) )
56		ovexd 6680	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ z e. I ) -> ( ( F ` z ) - ( m ` z ) ) e. _V )
57	27, 31, 42, 51, 54	offval2 6914	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( F oF - m ) = ( z e. I |-> ( ( F ` z ) - ( m ` z ) ) ) )
58	27, 56, 36, 57, 52	offval2 6914	. . . . . . . . . . . . 13 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( F oF - m ) oF - j ) = ( z e. I |-> ( ( ( F ` z ) - ( m ` z ) ) - ( j ` z ) ) ) )
59	49, 55, 58	3eqtr4d 2666	. . . . . . . . . . . 12 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( F oF - j ) oF - m ) = ( ( F oF - m ) oF - j ) )
60	19	adantr 481	. . . . . . . . . . . . 13 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( F oF - j ) e. D )
61	1, 20	psrbagconcl 19373	. . . . . . . . . . . . 13 |- ( ( I e. V /\ ( F oF - j ) e. D /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( F oF - j ) oF - m ) e. { x e. D | x oR <_ ( F oF - j ) } )
62	27, 60, 38, 61	syl3anc 1326	. . . . . . . . . . . 12 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( F oF - j ) oF - m ) e. { x e. D | x oR <_ ( F oF - j ) } )
63	59, 62	eqeltrrd 2702	. . . . . . . . . . 11 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> ( ( F oF - m ) oF - j ) e. { x e. D | x oR <_ ( F oF - j ) } )
64	59	mpteq2dva 4744	. . . . . . . . . . 11 |- ( ( ph /\ j e. S ) -> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) = ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - m ) oF - j ) ) )
65		nfcv 2764	. . . . . . . . . . . . 13 |- F/_ n X
66		nfcsb1v 3549	. . . . . . . . . . . . 13 |- F/_ k [_ n / k ]_ X
67		csbeq1a 3542	. . . . . . . . . . . . 13 |- ( k = n -> X = [_ n / k ]_ X )
68	65, 66, 67	cbvmpt 4749	. . . . . . . . . . . 12 |- ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) = ( n e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ n / k ]_ X )
69	68	a1i 11	. . . . . . . . . . 11 |- ( ( ph /\ j e. S ) -> ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) = ( n e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ n / k ]_ X ) )
70		csbeq1 3536	. . . . . . . . . . 11 |- ( n = ( ( F oF - m ) oF - j ) -> [_ n / k ]_ X = [_ ( ( F oF - m ) oF - j ) / k ]_ X )
71	63, 64, 69, 70	fmptco 6396	. . . . . . . . . 10 |- ( ( ph /\ j e. S ) -> ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) o. ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) ) = ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) )
72	71	feq1d 6030	. . . . . . . . 9 |- ( ( ph /\ j e. S ) -> ( ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) o. ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) ) : { x e. D | x oR <_ ( F oF - j ) } --> B <-> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) : { x e. D | x oR <_ ( F oF - j ) } --> B ) )
73	26, 72	mpbid 222	. . . . . . . 8 |- ( ( ph /\ j e. S ) -> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) : { x e. D | x oR <_ ( F oF - j ) } --> B )
74		eqid 2622	. . . . . . . . 9 |- ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) = ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X )
75	74	fmpt 6381	. . . . . . . 8 |- ( A. m e. { x e. D | x oR <_ ( F oF - j ) } [_ ( ( F oF - m ) oF - j ) / k ]_ X e. B <-> ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) : { x e. D | x oR <_ ( F oF - j ) } --> B )
76	73, 75	sylibr 224	. . . . . . 7 |- ( ( ph /\ j e. S ) -> A. m e. { x e. D | x oR <_ ( F oF - j ) } [_ ( ( F oF - m ) oF - j ) / k ]_ X e. B )
77	76	r19.21bi 2932	. . . . . 6 |- ( ( ( ph /\ j e. S ) /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) -> [_ ( ( F oF - m ) oF - j ) / k ]_ X e. B )
78	77	anasss 679	. . . . 5 |- ( ( ph /\ ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> [_ ( ( F oF - m ) oF - j ) / k ]_ X e. B )
79	7, 78	syldan 487	. . . 4 |- ( ( ph /\ ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) ) -> [_ ( ( F oF - m ) oF - j ) / k ]_ X e. B )
80	1, 2, 3, 4, 5, 6, 79	gsumbagdiag 19376	. . 3 |- ( ph -> ( G gsumg ( m e. S , j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) = ( G gsumg ( j e. S , m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) )
81		eqid 2622	. . . 4 |- ( 0g ` G ) = ( 0g ` G )
82	1	psrbaglefi 19372	. . . . . 6 |- ( ( I e. V /\ F e. D ) -> { y e. D | y oR <_ F } e. Fin )
83	3, 4, 82	syl2anc 693	. . . . 5 |- ( ph -> { y e. D | y oR <_ F } e. Fin )
84	2, 83	syl5eqel 2705	. . . 4 |- ( ph -> S e. Fin )
85	3	adantr 481	. . . . 5 |- ( ( ph /\ m e. S ) -> I e. V )
86	4	adantr 481	. . . . . . 7 |- ( ( ph /\ m e. S ) -> F e. D )
87		simpr 477	. . . . . . 7 |- ( ( ph /\ m e. S ) -> m e. S )
88	1, 2	psrbagconcl 19373	. . . . . . 7 |- ( ( I e. V /\ F e. D /\ m e. S ) -> ( F oF - m ) e. S )
89	85, 86, 87, 88	syl3anc 1326	. . . . . 6 |- ( ( ph /\ m e. S ) -> ( F oF - m ) e. S )
90	14, 89	sseldi 3601	. . . . 5 |- ( ( ph /\ m e. S ) -> ( F oF - m ) e. D )
91	1	psrbaglefi 19372	. . . . 5 |- ( ( I e. V /\ ( F oF - m ) e. D ) -> { x e. D | x oR <_ ( F oF - m ) } e. Fin )
92	85, 90, 91	syl2anc 693	. . . 4 |- ( ( ph /\ m e. S ) -> { x e. D | x oR <_ ( F oF - m ) } e. Fin )
93		xpfi 8231	. . . . 5 |- ( ( S e. Fin /\ S e. Fin ) -> ( S X. S ) e. Fin )
94	84, 84, 93	syl2anc 693	. . . 4 |- ( ph -> ( S X. S ) e. Fin )
95		simprl 794	. . . . . . 7 |- ( ( ph /\ ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) ) -> m e. S )
96	7	simpld 475	. . . . . . 7 |- ( ( ph /\ ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) ) -> j e. S )
97		brxp 5147	. . . . . . 7 |- ( m ( S X. S ) j <-> ( m e. S /\ j e. S ) )
98	95, 96, 97	sylanbrc 698	. . . . . 6 |- ( ( ph /\ ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) ) -> m ( S X. S ) j )
99	98	pm2.24d 147	. . . . 5 |- ( ( ph /\ ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) ) -> ( -. m ( S X. S ) j -> [_ ( ( F oF - m ) oF - j ) / k ]_ X = ( 0g ` G ) ) )
100	99	impr 649	. . . 4 |- ( ( ph /\ ( ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) /\ -. m ( S X. S ) j ) ) -> [_ ( ( F oF - m ) oF - j ) / k ]_ X = ( 0g ` G ) )
101	5, 81, 6, 84, 92, 79, 94, 100	gsum2d2 18373	. . 3 |- ( ph -> ( G gsumg ( m e. S , j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) = ( G gsumg ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) )
102	1	psrbaglefi 19372	. . . . 5 |- ( ( I e. V /\ ( F oF - j ) e. D ) -> { x e. D | x oR <_ ( F oF - j ) } e. Fin )
103	12, 19, 102	syl2anc 693	. . . 4 |- ( ( ph /\ j e. S ) -> { x e. D | x oR <_ ( F oF - j ) } e. Fin )
104		simprl 794	. . . . . . 7 |- ( ( ph /\ ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> j e. S )
105	1, 2, 3, 4	gsumbagdiaglem 19375	. . . . . . . 8 |- ( ( ph /\ ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> ( m e. S /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) )
106	105	simpld 475	. . . . . . 7 |- ( ( ph /\ ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> m e. S )
107		brxp 5147	. . . . . . 7 |- ( j ( S X. S ) m <-> ( j e. S /\ m e. S ) )
108	104, 106, 107	sylanbrc 698	. . . . . 6 |- ( ( ph /\ ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> j ( S X. S ) m )
109	108	pm2.24d 147	. . . . 5 |- ( ( ph /\ ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) ) -> ( -. j ( S X. S ) m -> [_ ( ( F oF - m ) oF - j ) / k ]_ X = ( 0g ` G ) ) )
110	109	impr 649	. . . 4 |- ( ( ph /\ ( ( j e. S /\ m e. { x e. D | x oR <_ ( F oF - j ) } ) /\ -. j ( S X. S ) m ) ) -> [_ ( ( F oF - m ) oF - j ) / k ]_ X = ( 0g ` G ) )
111	5, 81, 6, 84, 103, 78, 94, 110	gsum2d2 18373	. . 3 |- ( ph -> ( G gsumg ( j e. S , m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) = ( G gsumg ( j e. S |-> ( G gsumg ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) )
112	80, 101, 111	3eqtr3d 2664	. 2 |- ( ph -> ( G gsumg ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) = ( G gsumg ( j e. S |-> ( G gsumg ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) )
113	6	adantr 481	. . . . . . . 8 |- ( ( ph /\ m e. S ) -> G e. CMnd )
114	79	anassrs 680	. . . . . . . . 9 |- ( ( ( ph /\ m e. S ) /\ j e. { x e. D | x oR <_ ( F oF - m ) } ) -> [_ ( ( F oF - m ) oF - j ) / k ]_ X e. B )
115		eqid 2622	. . . . . . . . 9 |- ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) = ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X )
116	114, 115	fmptd 6385	. . . . . . . 8 |- ( ( ph /\ m e. S ) -> ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) : { x e. D | x oR <_ ( F oF - m ) } --> B )
117		ovex 6678	. . . . . . . . . . . 12 |- ( NN0 ^m I ) e. _V
118	1, 117	rabex2 4815	. . . . . . . . . . 11 |- D e. _V
119	118	a1i 11	. . . . . . . . . 10 |- ( ( ph /\ m e. S ) -> D e. _V )
120		rabexg 4812	. . . . . . . . . 10 |- ( D e. _V -> { x e. D | x oR <_ ( F oF - m ) } e. _V )
121		mptexg 6484	. . . . . . . . . 10 |- ( { x e. D | x oR <_ ( F oF - m ) } e. _V -> ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) e. _V )
122	119, 120, 121	3syl 18	. . . . . . . . 9 |- ( ( ph /\ m e. S ) -> ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) e. _V )
123		funmpt 5926	. . . . . . . . . 10 |- Fun ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X )
124	123	a1i 11	. . . . . . . . 9 |- ( ( ph /\ m e. S ) -> Fun ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) )
125		fvexd 6203	. . . . . . . . 9 |- ( ( ph /\ m e. S ) -> ( 0g ` G ) e. _V )
126		suppssdm 7308	. . . . . . . . . . 11 |- ( ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) supp ( 0g ` G ) ) C_ dom ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X )
127	115	dmmptss 5631	. . . . . . . . . . 11 |- dom ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) C_ { x e. D | x oR <_ ( F oF - m ) }
128	126, 127	sstri 3612	. . . . . . . . . 10 |- ( ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) supp ( 0g ` G ) ) C_ { x e. D | x oR <_ ( F oF - m ) }
129	128	a1i 11	. . . . . . . . 9 |- ( ( ph /\ m e. S ) -> ( ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) supp ( 0g ` G ) ) C_ { x e. D | x oR <_ ( F oF - m ) } )
130		suppssfifsupp 8290	. . . . . . . . 9 |- ( ( ( ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) e. _V /\ Fun ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) /\ ( 0g ` G ) e. _V ) /\ ( { x e. D | x oR <_ ( F oF - m ) } e. Fin /\ ( ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) supp ( 0g ` G ) ) C_ { x e. D | x oR <_ ( F oF - m ) } ) ) -> ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) finSupp ( 0g ` G ) )
131	122, 124, 125, 92, 129, 130	syl32anc 1334	. . . . . . . 8 |- ( ( ph /\ m e. S ) -> ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) finSupp ( 0g ` G ) )
132	5, 81, 113, 92, 116, 131	gsumcl 18316	. . . . . . 7 |- ( ( ph /\ m e. S ) -> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) e. B )
133		eqid 2622	. . . . . . 7 |- ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) = ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) )
134	132, 133	fmptd 6385	. . . . . 6 |- ( ph -> ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) : S --> B )
135	1, 2	psrbagconf1o 19374	. . . . . . . 8 |- ( ( I e. V /\ F e. D ) -> ( m e. S |-> ( F oF - m ) ) : S -1-1-onto-> S )
136	3, 4, 135	syl2anc 693	. . . . . . 7 |- ( ph -> ( m e. S |-> ( F oF - m ) ) : S -1-1-onto-> S )
137		f1ocnv 6149	. . . . . . 7 |- ( ( m e. S |-> ( F oF - m ) ) : S -1-1-onto-> S -> `' ( m e. S |-> ( F oF - m ) ) : S -1-1-onto-> S )
138		f1of 6137	. . . . . . 7 |- ( `' ( m e. S |-> ( F oF - m ) ) : S -1-1-onto-> S -> `' ( m e. S |-> ( F oF - m ) ) : S --> S )
139	136, 137, 138	3syl 18	. . . . . 6 |- ( ph -> `' ( m e. S |-> ( F oF - m ) ) : S --> S )
140		fco 6058	. . . . . 6 |- ( ( ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) : S --> B /\ `' ( m e. S |-> ( F oF - m ) ) : S --> S ) -> ( ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) : S --> B )
141	134, 139, 140	syl2anc 693	. . . . 5 |- ( ph -> ( ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) : S --> B )
142		coass 5654	. . . . . . . 8 |- ( ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( m e. S |-> ( F oF - m ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) = ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( ( m e. S |-> ( F oF - m ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) )
143		f1ococnv2 6163	. . . . . . . . . 10 |- ( ( m e. S |-> ( F oF - m ) ) : S -1-1-onto-> S -> ( ( m e. S |-> ( F oF - m ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) = ( _I |` S ) )
144	136, 143	syl 17	. . . . . . . . 9 |- ( ph -> ( ( m e. S |-> ( F oF - m ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) = ( _I |` S ) )
145	144	coeq2d 5284	. . . . . . . 8 |- ( ph -> ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( ( m e. S |-> ( F oF - m ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) ) = ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( _I |` S ) ) )
146	142, 145	syl5eq 2668	. . . . . . 7 |- ( ph -> ( ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( m e. S |-> ( F oF - m ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) = ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( _I |` S ) ) )
147		eqidd 2623	. . . . . . . . 9 |- ( ph -> ( m e. S |-> ( F oF - m ) ) = ( m e. S |-> ( F oF - m ) ) )
148		eqidd 2623	. . . . . . . . 9 |- ( ph -> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) )
149		breq2 4657	. . . . . . . . . . . 12 |- ( n = ( F oF - m ) -> ( x oR <_ n <-> x oR <_ ( F oF - m ) ) )
150	149	rabbidv 3189	. . . . . . . . . . 11 |- ( n = ( F oF - m ) -> { x e. D | x oR <_ n } = { x e. D | x oR <_ ( F oF - m ) } )
151		ovex 6678	. . . . . . . . . . . . 13 |- ( n oF - j ) e. _V
152		psrass1lem.y	. . . . . . . . . . . . 13 |- ( k = ( n oF - j ) -> X = Y )
153	151, 152	csbie 3559	. . . . . . . . . . . 12 |- [_ ( n oF - j ) / k ]_ X = Y
154		oveq1 6657	. . . . . . . . . . . . 13 |- ( n = ( F oF - m ) -> ( n oF - j ) = ( ( F oF - m ) oF - j ) )
155	154	csbeq1d 3540	. . . . . . . . . . . 12 |- ( n = ( F oF - m ) -> [_ ( n oF - j ) / k ]_ X = [_ ( ( F oF - m ) oF - j ) / k ]_ X )
156	153, 155	syl5eqr 2670	. . . . . . . . . . 11 |- ( n = ( F oF - m ) -> Y = [_ ( ( F oF - m ) oF - j ) / k ]_ X )
157	150, 156	mpteq12dv 4733	. . . . . . . . . 10 |- ( n = ( F oF - m ) -> ( j e. { x e. D | x oR <_ n } |-> Y ) = ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) )
158	157	oveq2d 6666	. . . . . . . . 9 |- ( n = ( F oF - m ) -> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) = ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) )
159	89, 147, 148, 158	fmptco 6396	. . . . . . . 8 |- ( ph -> ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( m e. S |-> ( F oF - m ) ) ) = ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) )
160	159	coeq1d 5283	. . . . . . 7 |- ( ph -> ( ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( m e. S |-> ( F oF - m ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) = ( ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) )
161		coires1 5653	. . . . . . . . 9 |- ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( _I |` S ) ) = ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) |` S )
162		ssid 3624	. . . . . . . . . 10 |- S C_ S
163		resmpt 5449	. . . . . . . . . 10 |- ( S C_ S -> ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) |` S ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) )
164	162, 163	ax-mp 5	. . . . . . . . 9 |- ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) |` S ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) )
165	161, 164	eqtri 2644	. . . . . . . 8 |- ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( _I |` S ) ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) )
166	165	a1i 11	. . . . . . 7 |- ( ph -> ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( _I |` S ) ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) )
167	146, 160, 166	3eqtr3d 2664	. . . . . 6 |- ( ph -> ( ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) )
168	167	feq1d 6030	. . . . 5 |- ( ph -> ( ( ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) o. `' ( m e. S |-> ( F oF - m ) ) ) : S --> B <-> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) : S --> B ) )
169	141, 168	mpbid 222	. . . 4 |- ( ph -> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) : S --> B )
170		rabexg 4812	. . . . . . . 8 |- ( D e. _V -> { y e. D | y oR <_ F } e. _V )
171	118, 170	mp1i 13	. . . . . . 7 |- ( ph -> { y e. D | y oR <_ F } e. _V )
172	2, 171	syl5eqel 2705	. . . . . 6 |- ( ph -> S e. _V )
173		mptexg 6484	. . . . . 6 |- ( S e. _V -> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) e. _V )
174	172, 173	syl 17	. . . . 5 |- ( ph -> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) e. _V )
175		funmpt 5926	. . . . . 6 |- Fun ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) )
176	175	a1i 11	. . . . 5 |- ( ph -> Fun ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) )
177		fvexd 6203	. . . . 5 |- ( ph -> ( 0g ` G ) e. _V )
178		suppssdm 7308	. . . . . . 7 |- ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) supp ( 0g ` G ) ) C_ dom ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) )
179		eqid 2622	. . . . . . . 8 |- ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) = ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) )
180	179	dmmptss 5631	. . . . . . 7 |- dom ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) C_ S
181	178, 180	sstri 3612	. . . . . 6 |- ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) supp ( 0g ` G ) ) C_ S
182	181	a1i 11	. . . . 5 |- ( ph -> ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) supp ( 0g ` G ) ) C_ S )
183		suppssfifsupp 8290	. . . . 5 |- ( ( ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) e. _V /\ Fun ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) /\ ( 0g ` G ) e. _V ) /\ ( S e. Fin /\ ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) supp ( 0g ` G ) ) C_ S ) ) -> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) finSupp ( 0g ` G ) )
184	174, 176, 177, 84, 182, 183	syl32anc 1334	. . . 4 |- ( ph -> ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) finSupp ( 0g ` G ) )
185	5, 81, 6, 84, 169, 184, 136	gsumf1o 18317	. . 3 |- ( ph -> ( G gsumg ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) ) = ( G gsumg ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( m e. S |-> ( F oF - m ) ) ) ) )
186	159	oveq2d 6666	. . 3 |- ( ph -> ( G gsumg ( ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) o. ( m e. S |-> ( F oF - m ) ) ) ) = ( G gsumg ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) )
187	185, 186	eqtrd 2656	. 2 |- ( ph -> ( G gsumg ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) ) = ( G gsumg ( m e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ ( F oF - m ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) )
188	6	adantr 481	. . . . . 6 |- ( ( ph /\ j e. S ) -> G e. CMnd )
189	118	a1i 11	. . . . . . . 8 |- ( ( ph /\ j e. S ) -> D e. _V )
190		rabexg 4812	. . . . . . . 8 |- ( D e. _V -> { x e. D | x oR <_ ( F oF - j ) } e. _V )
191		mptexg 6484	. . . . . . . 8 |- ( { x e. D | x oR <_ ( F oF - j ) } e. _V -> ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) e. _V )
192	189, 190, 191	3syl 18	. . . . . . 7 |- ( ( ph /\ j e. S ) -> ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) e. _V )
193		funmpt 5926	. . . . . . . 8 |- Fun ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X )
194	193	a1i 11	. . . . . . 7 |- ( ( ph /\ j e. S ) -> Fun ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) )
195		fvexd 6203	. . . . . . 7 |- ( ( ph /\ j e. S ) -> ( 0g ` G ) e. _V )
196		suppssdm 7308	. . . . . . . . 9 |- ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) supp ( 0g ` G ) ) C_ dom ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X )
197	10	dmmptss 5631	. . . . . . . . 9 |- dom ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) C_ { x e. D | x oR <_ ( F oF - j ) }
198	196, 197	sstri 3612	. . . . . . . 8 |- ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) supp ( 0g ` G ) ) C_ { x e. D | x oR <_ ( F oF - j ) }
199	198	a1i 11	. . . . . . 7 |- ( ( ph /\ j e. S ) -> ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) supp ( 0g ` G ) ) C_ { x e. D | x oR <_ ( F oF - j ) } )
200		suppssfifsupp 8290	. . . . . . 7 |- ( ( ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) e. _V /\ Fun ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) /\ ( 0g ` G ) e. _V ) /\ ( { x e. D | x oR <_ ( F oF - j ) } e. Fin /\ ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) supp ( 0g ` G ) ) C_ { x e. D | x oR <_ ( F oF - j ) } ) ) -> ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) finSupp ( 0g ` G ) )
201	192, 194, 195, 103, 199, 200	syl32anc 1334	. . . . . 6 |- ( ( ph /\ j e. S ) -> ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) finSupp ( 0g ` G ) )
202	5, 81, 188, 103, 11, 201, 22	gsumf1o 18317	. . . . 5 |- ( ( ph /\ j e. S ) -> ( G gsumg ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) ) = ( G gsumg ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) o. ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) ) ) )
203	71	oveq2d 6666	. . . . 5 |- ( ( ph /\ j e. S ) -> ( G gsumg ( ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) o. ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> ( ( F oF - j ) oF - m ) ) ) ) = ( G gsumg ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) )
204	202, 203	eqtrd 2656	. . . 4 |- ( ( ph /\ j e. S ) -> ( G gsumg ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) ) = ( G gsumg ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) )
205	204	mpteq2dva 4744	. . 3 |- ( ph -> ( j e. S |-> ( G gsumg ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) ) ) = ( j e. S |-> ( G gsumg ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) )
206	205	oveq2d 6666	. 2 |- ( ph -> ( G gsumg ( j e. S |-> ( G gsumg ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) ) ) ) = ( G gsumg ( j e. S |-> ( G gsumg ( m e. { x e. D | x oR <_ ( F oF - j ) } |-> [_ ( ( F oF - m ) oF - j ) / k ]_ X ) ) ) ) )
207	112, 187, 206	3eqtr4d 2666	1 |- ( ph -> ( G gsumg ( n e. S |-> ( G gsumg ( j e. { x e. D | x oR <_ n } |-> Y ) ) ) ) = ( G gsumg ( j e. S |-> ( G gsumg ( k e. { x e. D | x oR <_ ( F oF - j ) } |-> X ) ) ) ) )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 384   = wceq 1483   e. wcel 1990   A.wral 2912   {crab 2916   _Vcvv 3200   [_csb 3533   C_ wss 3574   class class class wbr 4653   |-> cmpt 4729   _I cid 5023   X. cxp 5112   `'ccnv 5113   dom cdm 5114   |` cres 5116   "cima 5117   o. ccom 5118   Fun wfun 5882   -->wf 5884   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650   |-> cmpt2 6652   oFcof 6895   oRcofr 6896   supp csupp 7295   ^m cmap 7857   Fincfn 7955   finSupp cfsupp 8275   CCcc 9934   <_ cle 10075   - cmin 10266   NNcn 11020   NN0cn0 11292   Basecbs 15857   0gc0g 16100   gsum_g cgsu 16101  CMndccmn 18193

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-ofr 6898  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-oi 8415  df-card 8765  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-nn 11021  df-2 11079  df-n0 11293  df-z 11378  df-uz 11688  df-fz 12327  df-fzo 12466  df-seq 12802  df-hash 13118  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-0g 16102  df-gsum 16103  df-mre 16246  df-mrc 16247  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-submnd 17336  df-mulg 17541  df-cntz 17750  df-cmn 18195

This theorem is referenced by:  psrass1  19405