MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  chfacfpmmulgsum Structured version   Unicode version

Theorem chfacfpmmulgsum 19492
Description: Breaking up a sum of values of the "characteristic factor function" multiplied with a constant polynomial matrix. (Contributed by AV, 23-Nov-2019.)
Hypotheses
Ref Expression
cayhamlem1.a  |-  A  =  ( N Mat  R )
cayhamlem1.b  |-  B  =  ( Base `  A
)
cayhamlem1.p  |-  P  =  (Poly1 `  R )
cayhamlem1.y  |-  Y  =  ( N Mat  P )
cayhamlem1.r  |-  .X.  =  ( .r `  Y )
cayhamlem1.s  |-  .-  =  ( -g `  Y )
cayhamlem1.0  |-  .0.  =  ( 0g `  Y )
cayhamlem1.t  |-  T  =  ( N matToPolyMat  R )
cayhamlem1.g  |-  G  =  ( n  e.  NN0  |->  if ( n  =  0 ,  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) ,  if ( n  =  (
s  +  1 ) ,  ( T `  ( b `  s
) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) ) ) ) )
cayhamlem1.e  |-  .^  =  (.g
`  (mulGrp `  Y )
)
chfacfpmmulgsum.p  |-  .+  =  ( +g  `  Y )
Assertion
Ref Expression
chfacfpmmulgsum  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  NN0  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  (
i  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  i
) ) ) ) ) ) )  .+  ( ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  0
) ) ) ) ) )
Distinct variable groups:    B, n    n, M    n, N    R, n    n, Y    n, b    n, s    .0. , n    B, i   
i, G    i, M    i, N    R, i    T, i    .X. , i    .^ , i    i, s    i, b    T, n, i    i, Y    .X. , n    .- , n
Allowed substitution hints:    A( i, n, s, b)    B( s, b)    P( i, n, s, b)    .+ ( i, n, s, b)    R( s, b)    T( s, b)    .X. ( s, b)    .^ ( n, s, b)    G( n, s, b)    M( s, b)    .- ( i, s, b)    N( s, b)    Y( s, b)    .0. ( i, s, b)

Proof of Theorem chfacfpmmulgsum
StepHypRef Expression
1 eqid 2457 . . 3  |-  ( Base `  Y )  =  (
Base `  Y )
2 cayhamlem1.0 . . 3  |-  .0.  =  ( 0g `  Y )
3 chfacfpmmulgsum.p . . 3  |-  .+  =  ( +g  `  Y )
4 crngring 17336 . . . . . . . 8  |-  ( R  e.  CRing  ->  R  e.  Ring )
54anim2i 569 . . . . . . 7  |-  ( ( N  e.  Fin  /\  R  e.  CRing )  -> 
( N  e.  Fin  /\  R  e.  Ring )
)
653adant3 1016 . . . . . 6  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  ( N  e.  Fin  /\  R  e.  Ring ) )
7 cayhamlem1.p . . . . . . 7  |-  P  =  (Poly1 `  R )
8 cayhamlem1.y . . . . . . 7  |-  Y  =  ( N Mat  P )
97, 8pmatring 19321 . . . . . 6  |-  ( ( N  e.  Fin  /\  R  e.  Ring )  ->  Y  e.  Ring )
106, 9syl 16 . . . . 5  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  Y  e.  Ring )
11 ringcmn 17356 . . . . 5  |-  ( Y  e.  Ring  ->  Y  e. CMnd
)
1210, 11syl 16 . . . 4  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  Y  e. CMnd )
1312adantr 465 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  Y  e. CMnd )
14 nn0ex 10822 . . . 4  |-  NN0  e.  _V
1514a1i 11 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  NN0  e.  _V )
16 simpll 753 . . . . 5  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  NN0 )  ->  ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B ) )
17 simplr 755 . . . . 5  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  NN0 )  ->  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )
18 simpr 461 . . . . 5  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  NN0 )  ->  i  e.  NN0 )
1916, 17, 183jca 1176 . . . 4  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  NN0 )  ->  (
( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  /\  i  e.  NN0 ) )
20 cayhamlem1.a . . . . 5  |-  A  =  ( N Mat  R )
21 cayhamlem1.b . . . . 5  |-  B  =  ( Base `  A
)
22 cayhamlem1.r . . . . 5  |-  .X.  =  ( .r `  Y )
23 cayhamlem1.s . . . . 5  |-  .-  =  ( -g `  Y )
24 cayhamlem1.t . . . . 5  |-  T  =  ( N matToPolyMat  R )
25 cayhamlem1.g . . . . 5  |-  G  =  ( n  e.  NN0  |->  if ( n  =  0 ,  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) ,  if ( n  =  (
s  +  1 ) ,  ( T `  ( b `  s
) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) ) ) ) )
26 cayhamlem1.e . . . . 5  |-  .^  =  (.g
`  (mulGrp `  Y )
)
2720, 21, 7, 8, 22, 23, 2, 24, 25, 26chfacfpmmulcl 19489 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  /\  i  e.  NN0 )  -> 
( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
2819, 27syl 16 . . 3  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  NN0 )  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
2920, 21, 7, 8, 22, 23, 2, 24, 25, 26chfacfpmmulfsupp 19491 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( i  e. 
NN0  |->  ( ( i 
.^  ( T `  M ) )  .X.  ( G `  i ) ) ) finSupp  .0.  )
30 nn0disj 11817 . . . 4  |-  ( ( 0 ... ( s  +  1 ) )  i^i  ( ZZ>= `  (
( s  +  1 )  +  1 ) ) )  =  (/)
3130a1i 11 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( 0 ... ( s  +  1 ) )  i^i  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) )  =  (/) )
32 nnnn0 10823 . . . . . 6  |-  ( s  e.  NN  ->  s  e.  NN0 )
33 peano2nn0 10857 . . . . . 6  |-  ( s  e.  NN0  ->  ( s  +  1 )  e. 
NN0 )
3432, 33syl 16 . . . . 5  |-  ( s  e.  NN  ->  (
s  +  1 )  e.  NN0 )
35 nn0split 11816 . . . . 5  |-  ( ( s  +  1 )  e.  NN0  ->  NN0  =  ( ( 0 ... ( s  +  1 ) )  u.  ( ZZ>=
`  ( ( s  +  1 )  +  1 ) ) ) )
3634, 35syl 16 . . . 4  |-  ( s  e.  NN  ->  NN0  =  ( ( 0 ... ( s  +  1 ) )  u.  ( ZZ>=
`  ( ( s  +  1 )  +  1 ) ) ) )
3736ad2antrl 727 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  NN0  =  (
( 0 ... (
s  +  1 ) )  u.  ( ZZ>= `  ( ( s  +  1 )  +  1 ) ) ) )
381, 2, 3, 13, 15, 28, 29, 31, 37gsumsplit2 17075 . 2  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  NN0  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y  gsumg  ( i  e.  (
ZZ>= `  ( ( s  +  1 )  +  1 ) )  |->  ( ( i  .^  ( T `  M )
)  .X.  ( G `  i ) ) ) ) ) )
39 simpll 753 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) )  ->  ( N  e.  Fin  /\  R  e. 
CRing  /\  M  e.  B
) )
40 simplr 755 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) )  ->  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )
41 nncn 10564 . . . . . . . . . . . . 13  |-  ( s  e.  NN  ->  s  e.  CC )
42 add1p1 10809 . . . . . . . . . . . . 13  |-  ( s  e.  CC  ->  (
( s  +  1 )  +  1 )  =  ( s  +  2 ) )
4341, 42syl 16 . . . . . . . . . . . 12  |-  ( s  e.  NN  ->  (
( s  +  1 )  +  1 )  =  ( s  +  2 ) )
4443ad2antrl 727 . . . . . . . . . . 11  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( s  +  1 )  +  1 )  =  ( s  +  2 ) )
4544fveq2d 5876 . . . . . . . . . 10  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ZZ>= `  (
( s  +  1 )  +  1 ) )  =  ( ZZ>= `  ( s  +  2 ) ) )
4645eleq2d 2527 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) )  <-> 
i  e.  ( ZZ>= `  ( s  +  2 ) ) ) )
4746biimpa 484 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) )  ->  i  e.  ( ZZ>= `  ( s  +  2 ) ) )
4820, 21, 7, 8, 22, 23, 2, 24, 25, 26chfacfpmmul0 19490 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  /\  i  e.  ( ZZ>= `  ( s  +  2 ) ) )  -> 
( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) )  =  .0.  )
4939, 40, 47, 48syl3anc 1228 . . . . . . 7  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) )  ->  ( (
i  .^  ( T `  M ) )  .X.  ( G `  i ) )  =  .0.  )
5049mpteq2dva 4543 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) )  =  ( i  e.  ( ZZ>= `  ( (
s  +  1 )  +  1 ) ) 
|->  .0.  ) )
5150oveq2d 6312 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( ZZ>= `  (
( s  +  1 )  +  1 ) )  |->  ( ( i 
.^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( Y  gsumg  ( i  e.  (
ZZ>= `  ( ( s  +  1 )  +  1 ) )  |->  .0.  ) ) )
524, 9sylan2 474 . . . . . . . . . 10  |-  ( ( N  e.  Fin  /\  R  e.  CRing )  ->  Y  e.  Ring )
53 ringmnd 17334 . . . . . . . . . 10  |-  ( Y  e.  Ring  ->  Y  e. 
Mnd )
5452, 53syl 16 . . . . . . . . 9  |-  ( ( N  e.  Fin  /\  R  e.  CRing )  ->  Y  e.  Mnd )
55543adant3 1016 . . . . . . . 8  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  Y  e.  Mnd )
56 fvex 5882 . . . . . . . 8  |-  ( ZZ>= `  ( ( s  +  1 )  +  1 ) )  e.  _V
5755, 56jctir 538 . . . . . . 7  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  ( Y  e.  Mnd  /\  ( ZZ>=
`  ( ( s  +  1 )  +  1 ) )  e. 
_V ) )
5857adantr 465 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  e. 
Mnd  /\  ( ZZ>= `  ( ( s  +  1 )  +  1 ) )  e.  _V ) )
592gsumz 16132 . . . . . 6  |-  ( ( Y  e.  Mnd  /\  ( ZZ>= `  ( (
s  +  1 )  +  1 ) )  e.  _V )  -> 
( Y  gsumg  ( i  e.  (
ZZ>= `  ( ( s  +  1 )  +  1 ) )  |->  .0.  ) )  =  .0.  )
6058, 59syl 16 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( ZZ>= `  (
( s  +  1 )  +  1 ) )  |->  .0.  ) )  =  .0.  )
6151, 60eqtrd 2498 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( ZZ>= `  (
( s  +  1 )  +  1 ) )  |->  ( ( i 
.^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  .0.  )
6261oveq2d 6312 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( Y 
gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y 
gsumg  ( i  e.  (
ZZ>= `  ( ( s  +  1 )  +  1 ) )  |->  ( ( i  .^  ( T `  M )
)  .X.  ( G `  i ) ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  .0.  )
)
6355adantr 465 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  Y  e.  Mnd )
64 fzfid 12086 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( 0 ... ( s  +  1 ) )  e.  Fin )
65 elfznn0 11797 . . . . . . . 8  |-  ( i  e.  ( 0 ... ( s  +  1 ) )  ->  i  e.  NN0 )
6665, 19sylan2 474 . . . . . . 7  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 0 ... (
s  +  1 ) ) )  ->  (
( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  /\  i  e.  NN0 ) )
6766, 27syl 16 . . . . . 6  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 0 ... (
s  +  1 ) ) )  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
6867ralrimiva 2871 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  A. i  e.  ( 0 ... ( s  +  1 ) ) ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
691, 13, 64, 68gsummptcl 17121 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  e.  ( Base `  Y
) )
701, 3, 2mndrid 16069 . . . 4  |-  ( ( Y  e.  Mnd  /\  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  e.  ( Base `  Y ) )  -> 
( ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  .0.  )  =  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) )
7163, 69, 70syl2anc 661 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( Y 
gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  .0.  )  =  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) )
7262, 71eqtrd 2498 . 2  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( Y 
gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y 
gsumg  ( i  e.  (
ZZ>= `  ( ( s  +  1 )  +  1 ) )  |->  ( ( i  .^  ( T `  M )
)  .X.  ( G `  i ) ) ) ) )  =  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) )
7332ad2antrl 727 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  s  e.  NN0 )
741, 3, 13, 73, 67gsummptfzsplit 17079 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 0 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y  gsumg  ( i  e.  {
( s  +  1 ) }  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) ) )
75 elfznn0 11797 . . . . . . 7  |-  ( i  e.  ( 0 ... s )  ->  i  e.  NN0 )
7675, 28sylan2 474 . . . . . 6  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 0 ... s
) )  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
771, 3, 13, 73, 76gsummptfzsplitl 17080 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 0 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y  gsumg  ( i  e.  {
0 }  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) ) )
78 0nn0 10831 . . . . . . . 8  |-  0  e.  NN0
7978a1i 11 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  0  e.  NN0 )
8020, 21, 7, 8, 22, 23, 2, 24, 25, 26chfacfpmmulcl 19489 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  /\  0  e.  NN0 )  -> 
( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) )  e.  ( Base `  Y
) )
8179, 80mpd3an3 1325 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( 0 
.^  ( T `  M ) )  .X.  ( G `  0 ) )  e.  ( Base `  Y ) )
82 oveq1 6303 . . . . . . . . 9  |-  ( i  =  0  ->  (
i  .^  ( T `  M ) )  =  ( 0  .^  ( T `  M )
) )
83 fveq2 5872 . . . . . . . . 9  |-  ( i  =  0  ->  ( G `  i )  =  ( G ` 
0 ) )
8482, 83oveq12d 6314 . . . . . . . 8  |-  ( i  =  0  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  =  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )
851, 84gsumsn 17108 . . . . . . 7  |-  ( ( Y  e.  Mnd  /\  0  e.  NN0  /\  (
( 0  .^  ( T `  M )
)  .X.  ( G `  0 ) )  e.  ( Base `  Y
) )  ->  ( Y  gsumg  ( i  e.  {
0 }  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )
8663, 79, 81, 85syl3anc 1228 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  { 0 } 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )
8786oveq2d 6312 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y 
gsumg  ( i  e.  {
0 }  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) )  =  ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) ) )
8877, 87eqtrd 2498 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 0 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) ) )
89 ovex 6324 . . . . . 6  |-  ( s  +  1 )  e. 
_V
9089a1i 11 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( s  +  1 )  e.  _V )
91 1nn0 10832 . . . . . . . 8  |-  1  e.  NN0
9291a1i 11 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  1  e.  NN0 )
9373, 92nn0addcld 10877 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( s  +  1 )  e.  NN0 )
9420, 21, 7, 8, 22, 23, 2, 24, 25, 26chfacfpmmulcl 19489 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  /\  ( s  +  1 )  e.  NN0 )  ->  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  e.  ( Base `  Y
) )
9593, 94mpd3an3 1325 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  e.  ( Base `  Y ) )
96 oveq1 6303 . . . . . . 7  |-  ( i  =  ( s  +  1 )  ->  (
i  .^  ( T `  M ) )  =  ( ( s  +  1 )  .^  ( T `  M )
) )
97 fveq2 5872 . . . . . . 7  |-  ( i  =  ( s  +  1 )  ->  ( G `  i )  =  ( G `  ( s  +  1 ) ) )
9896, 97oveq12d 6314 . . . . . 6  |-  ( i  =  ( s  +  1 )  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  =  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) )
991, 98gsumsn 17108 . . . . 5  |-  ( ( Y  e.  Mnd  /\  ( s  +  1 )  e.  _V  /\  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  e.  ( Base `  Y
) )  ->  ( Y  gsumg  ( i  e.  {
( s  +  1 ) }  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) )
10063, 90, 95, 99syl3anc 1228 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  { ( s  +  1 ) } 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) )
10188, 100oveq12d 6314 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( Y 
gsumg  ( i  e.  ( 0 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( Y 
gsumg  ( i  e.  {
( s  +  1 ) }  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) ) )  =  ( ( ( Y  gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )  .+  (
( ( s  +  1 )  .^  ( T `  M )
)  .X.  ( G `  ( s  +  1 ) ) ) ) )
102 fzfid 12086 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( 1 ... s )  e.  Fin )
103 simpll 753 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B ) )
104 simplr 755 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )
105 elfznn 11739 . . . . . . . . . 10  |-  ( i  e.  ( 1 ... s )  ->  i  e.  NN )
106105nnnn0d 10873 . . . . . . . . 9  |-  ( i  e.  ( 1 ... s )  ->  i  e.  NN0 )
107106adantl 466 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  i  e.  NN0 )
108103, 104, 107, 27syl3anc 1228 . . . . . . 7  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
109108ralrimiva 2871 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  A. i  e.  ( 1 ... s ) ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) )  e.  ( Base `  Y
) )
1101, 13, 102, 109gsummptcl 17121 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  e.  ( Base `  Y
) )
1111, 3mndass 16057 . . . . 5  |-  ( ( Y  e.  Mnd  /\  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  e.  ( Base `  Y
)  /\  ( (
0  .^  ( T `  M ) )  .X.  ( G `  0 ) )  e.  ( Base `  Y )  /\  (
( ( s  +  1 )  .^  ( T `  M )
)  .X.  ( G `  ( s  +  1 ) ) )  e.  ( Base `  Y
) ) )  -> 
( ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )  .+  (
( ( s  +  1 )  .^  ( T `  M )
)  .X.  ( G `  ( s  +  1 ) ) ) )  =  ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( ( 0  .^  ( T `  M )
)  .X.  ( G `  0 ) ) 
.+  ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) ) ) )
11263, 110, 81, 95, 111syl13anc 1230 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( Y  gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )  .+  (
( ( s  +  1 )  .^  ( T `  M )
)  .X.  ( G `  ( s  +  1 ) ) ) )  =  ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( ( 0  .^  ( T `  M )
)  .X.  ( G `  0 ) ) 
.+  ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) ) ) )
11325a1i 11 . . . . . . . . 9  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  G  =  ( n  e. 
NN0  |->  if ( n  =  0 ,  (  .0.  .-  ( ( T `  M )  .X.  ( T `  (
b `  0 )
) ) ) ,  if ( n  =  ( s  +  1 ) ,  ( T `
 ( b `  s ) ) ,  if ( ( s  +  1 )  < 
n ,  .0.  , 
( ( T `  ( b `  (
n  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  n
) ) ) ) ) ) ) ) )
114105nnne0d 10601 . . . . . . . . . . . . . 14  |-  ( i  e.  ( 1 ... s )  ->  i  =/=  0 )
115114ad2antlr 726 . . . . . . . . . . . . 13  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  i  =/=  0 )
116 neeq1 2738 . . . . . . . . . . . . . 14  |-  ( n  =  i  ->  (
n  =/=  0  <->  i  =/=  0 ) )
117116adantl 466 . . . . . . . . . . . . 13  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  (
n  =/=  0  <->  i  =/=  0 ) )
118115, 117mpbird 232 . . . . . . . . . . . 12  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  n  =/=  0 )
119 eqneqall 2664 . . . . . . . . . . . 12  |-  ( n  =  0  ->  (
n  =/=  0  ->  .0.  =  ( T `  ( b `  (
i  -  1 ) ) ) ) )
120118, 119mpan9 469 . . . . . . . . . . 11  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  ->  .0.  =  ( T `  ( b `  (
i  -  1 ) ) ) )
121 simplr 755 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  ->  n  =  i )
122 eqeq1 2461 . . . . . . . . . . . . . . . . 17  |-  ( 0  =  n  ->  (
0  =  i  <->  n  =  i ) )
123122eqcoms 2469 . . . . . . . . . . . . . . . 16  |-  ( n  =  0  ->  (
0  =  i  <->  n  =  i ) )
124123adantl 466 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  -> 
( 0  =  i  <-> 
n  =  i ) )
125121, 124mpbird 232 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  -> 
0  =  i )
126125fveq2d 5876 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  -> 
( b `  0
)  =  ( b `
 i ) )
127126fveq2d 5876 . . . . . . . . . . . 12  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  -> 
( T `  (
b `  0 )
)  =  ( T `
 ( b `  i ) ) )
128127oveq2d 6312 . . . . . . . . . . 11  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  -> 
( ( T `  M )  .X.  ( T `  ( b `  0 ) ) )  =  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) )
129120, 128oveq12d 6314 . . . . . . . . . 10  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  n  =  0 )  -> 
(  .0.  .-  (
( T `  M
)  .X.  ( T `  ( b `  0
) ) ) )  =  ( ( T `
 ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) )
130 elfz2 11704 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... s )  <->  ( (
1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  /\  (
1  <_  i  /\  i  <_  s ) ) )
131 zleltp1 10935 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( i  e.  ZZ  /\  s  e.  ZZ )  ->  ( i  <_  s  <->  i  <  ( s  +  1 ) ) )
132131ancoms 453 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( s  e.  ZZ  /\  i  e.  ZZ )  ->  ( i  <_  s  <->  i  <  ( s  +  1 ) ) )
1331323adant1 1014 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  ->  (
i  <_  s  <->  i  <  ( s  +  1 ) ) )
134133biimpcd 224 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  <_  s  ->  (
( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  ->  i  <  ( s  +  1 ) ) )
135134adantl 466 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( 1  <_  i  /\  i  <_  s )  -> 
( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  ->  i  <  ( s  +  1 ) ) )
136135impcom 430 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  /\  ( 1  <_  i  /\  i  <_  s ) )  ->  i  <  ( s  +  1 ) )
137136orcd 392 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  /\  ( 1  <_  i  /\  i  <_  s ) )  ->  ( i  <  ( s  +  1 )  \/  ( s  +  1 )  < 
i ) )
138 zre 10889 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( s  e.  ZZ  ->  s  e.  RR )
139 1red 9628 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( s  e.  ZZ  ->  1  e.  RR )
140138, 139readdcld 9640 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( s  e.  ZZ  ->  (
s  +  1 )  e.  RR )
141 zre 10889 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( i  e.  ZZ  ->  i  e.  RR )
142140, 141anim12ci 567 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( s  e.  ZZ  /\  i  e.  ZZ )  ->  ( i  e.  RR  /\  ( s  +  1 )  e.  RR ) )
1431423adant1 1014 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  ->  (
i  e.  RR  /\  ( s  +  1 )  e.  RR ) )
144 lttri2 9684 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( i  e.  RR  /\  ( s  +  1 )  e.  RR )  ->  ( i  =/=  ( s  +  1 )  <->  ( i  < 
( s  +  1 )  \/  ( s  +  1 )  < 
i ) ) )
145143, 144syl 16 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  ->  (
i  =/=  ( s  +  1 )  <->  ( i  <  ( s  +  1 )  \/  ( s  +  1 )  < 
i ) ) )
146145adantr 465 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  /\  ( 1  <_  i  /\  i  <_  s ) )  ->  ( i  =/=  ( s  +  1 )  <->  ( i  < 
( s  +  1 )  \/  ( s  +  1 )  < 
i ) ) )
147137, 146mpbird 232 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( 1  e.  ZZ  /\  s  e.  ZZ  /\  i  e.  ZZ )  /\  ( 1  <_  i  /\  i  <_  s ) )  ->  i  =/=  ( s  +  1 ) )
148130, 147sylbi 195 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... s )  ->  i  =/=  ( s  +  1 ) )
149148ad2antlr 726 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  i  =/=  ( s  +  1 ) )
150 neeq1 2738 . . . . . . . . . . . . . . . . 17  |-  ( n  =  i  ->  (
n  =/=  ( s  +  1 )  <->  i  =/=  ( s  +  1 ) ) )
151150adantl 466 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  (
n  =/=  ( s  +  1 )  <->  i  =/=  ( s  +  1 ) ) )
152149, 151mpbird 232 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  n  =/=  ( s  +  1 ) )
153152adantr 465 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  ->  n  =/=  (
s  +  1 ) )
154153neneqd 2659 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  ->  -.  n  =  ( s  +  1 ) )
155154pm2.21d 106 . . . . . . . . . . . 12  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  ->  ( n  =  ( s  +  1 )  ->  ( T `  ( b `  s
) )  =  ( ( T `  (
b `  ( i  -  1 ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) ) ) )
156155imp 429 . . . . . . . . . . 11  |-  ( ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  /\  n  =  ( s  +  1 ) )  ->  ( T `  ( b `  s
) )  =  ( ( T `  (
b `  ( i  -  1 ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) ) )
157105nnred 10571 . . . . . . . . . . . . . . . . . . 19  |-  ( i  e.  ( 1 ... s )  ->  i  e.  RR )
158 eleq1 2529 . . . . . . . . . . . . . . . . . . 19  |-  ( n  =  i  ->  (
n  e.  RR  <->  i  e.  RR ) )
159157, 158syl5ibrcom 222 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... s )  ->  (
n  =  i  ->  n  e.  RR )
)
160159adantl 466 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  (
n  =  i  ->  n  e.  RR )
)
161160imp 429 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  n  e.  RR )
16273nn0red 10874 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  s  e.  RR )
163162ad2antrr 725 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  s  e.  RR )
164 1red 9628 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  1  e.  RR )
165163, 164readdcld 9640 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  (
s  +  1 )  e.  RR )
166130, 136sylbi 195 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... s )  ->  i  <  ( s  +  1 ) )
167166ad2antlr 726 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  i  <  ( s  +  1 ) )
168 breq1 4459 . . . . . . . . . . . . . . . . . 18  |-  ( n  =  i  ->  (
n  <  ( s  +  1 )  <->  i  <  ( s  +  1 ) ) )
169168adantl 466 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  (
n  <  ( s  +  1 )  <->  i  <  ( s  +  1 ) ) )
170167, 169mpbird 232 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  n  <  ( s  +  1 ) )
171161, 165, 170ltnsymd 9751 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  -.  ( s  +  1 )  <  n )
172171pm2.21d 106 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  (
( s  +  1 )  <  n  ->  .0.  =  ( ( T `
 ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) ) )
173172ad2antrr 725 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  /\  -.  n  =  ( s  +  1 ) )  ->  (
( s  +  1 )  <  n  ->  .0.  =  ( ( T `
 ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) ) )
174173imp 429 . . . . . . . . . . . 12  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  ( s  +  1 )  <  n )  ->  .0.  =  (
( T `  (
b `  ( i  -  1 ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) ) )
175 simp-4r 768 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  n  =  i )
176175oveq1d 6311 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( n  - 
1 )  =  ( i  -  1 ) )
177176fveq2d 5876 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( b `  ( n  -  1
) )  =  ( b `  ( i  -  1 ) ) )
178177fveq2d 5876 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( T `  ( b `  (
n  -  1 ) ) )  =  ( T `  ( b `
 ( i  - 
1 ) ) ) )
179175fveq2d 5876 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( b `  n )  =  ( b `  i ) )
180179fveq2d 5876 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( T `  ( b `  n
) )  =  ( T `  ( b `
 i ) ) )
181180oveq2d 6312 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) )  =  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) )
182178, 181oveq12d 6314 . . . . . . . . . . . 12  |-  ( ( ( ( ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  /\  n  =  i )  /\  -.  n  =  0
)  /\  -.  n  =  ( s  +  1 ) )  /\  -.  ( s  +  1 )  <  n )  ->  ( ( T `
 ( b `  ( n  -  1
) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  n ) ) ) )  =  ( ( T `  ( b `
 ( i  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 i ) ) ) ) )
183174, 182ifeqda 3977 . . . . . . . . . . 11  |-  ( ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  /\  -.  n  =  ( s  +  1 ) )  ->  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) )  =  ( ( T `  ( b `  (
i  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  i
) ) ) ) )
184156, 183ifeqda 3977 . . . . . . . . . 10  |-  ( ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  /\  -.  n  =  0 )  ->  if ( n  =  ( s  +  1 ) ,  ( T `  ( b `
 s ) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `  (
n  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  n
) ) ) ) ) )  =  ( ( T `  (
b `  ( i  -  1 ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) ) )
185129, 184ifeqda 3977 . . . . . . . . 9  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  i  e.  ( 1 ... s ) )  /\  n  =  i )  ->  if ( n  =  0 ,  (  .0.  .-  (
( T `  M
)  .X.  ( T `  ( b `  0
) ) ) ) ,  if ( n  =  ( s  +  1 ) ,  ( T `  ( b `
 s ) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `  (
n  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  n
) ) ) ) ) ) )  =  ( ( T `  ( b `  (
i  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  i
) ) ) ) )
186 ovex 6324 . . . . . . . . . 10  |-  ( ( T `  ( b `
 ( i  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 i ) ) ) )  e.  _V
187186a1i 11 . . . . . . . . 9  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  (
( T `  (
b `  ( i  -  1 ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  i
) ) ) )  e.  _V )
188113, 185, 107, 187fvmptd 5961 . . . . . . . 8  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  ( G `  i )  =  ( ( T `
 ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) )
189188oveq2d 6312 . . . . . . 7  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  i  e.  ( 1 ... s
) )  ->  (
( i  .^  ( T `  M )
)  .X.  ( G `  i ) )  =  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) ) )
190189mpteq2dva 4543 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( i  e.  ( 1 ... s
)  |->  ( ( i 
.^  ( T `  M ) )  .X.  ( G `  i ) ) )  =  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M )
)  .X.  ( ( T `  ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) ) ) )
191190oveq2d 6312 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( Y  gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) ) ) ) )
19225a1i 11 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  G  =  ( n  e.  NN0  |->  if ( n  =  0 ,  (  .0.  .-  (
( T `  M
)  .X.  ( T `  ( b `  0
) ) ) ) ,  if ( n  =  ( s  +  1 ) ,  ( T `  ( b `
 s ) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `  (
n  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  n
) ) ) ) ) ) ) ) )
193 nn0p1gt0 10846 . . . . . . . . . . . . . . 15  |-  ( s  e.  NN0  ->  0  < 
( s  +  1 ) )
194 0red 9614 . . . . . . . . . . . . . . . . 17  |-  ( s  e.  NN0  ->  0  e.  RR )
195 ltne 9698 . . . . . . . . . . . . . . . . 17  |-  ( ( 0  e.  RR  /\  0  <  ( s  +  1 ) )  -> 
( s  +  1 )  =/=  0 )
196194, 195sylan 471 . . . . . . . . . . . . . . . 16  |-  ( ( s  e.  NN0  /\  0  <  ( s  +  1 ) )  -> 
( s  +  1 )  =/=  0 )
197 neeq1 2738 . . . . . . . . . . . . . . . 16  |-  ( n  =  ( s  +  1 )  ->  (
n  =/=  0  <->  (
s  +  1 )  =/=  0 ) )
198196, 197syl5ibrcom 222 . . . . . . . . . . . . . . 15  |-  ( ( s  e.  NN0  /\  0  <  ( s  +  1 ) )  -> 
( n  =  ( s  +  1 )  ->  n  =/=  0
) )
199193, 198mpdan 668 . . . . . . . . . . . . . 14  |-  ( s  e.  NN0  ->  ( n  =  ( s  +  1 )  ->  n  =/=  0 ) )
20032, 199syl 16 . . . . . . . . . . . . 13  |-  ( s  e.  NN  ->  (
n  =  ( s  +  1 )  ->  n  =/=  0 ) )
201200ad2antrl 727 . . . . . . . . . . . 12  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( n  =  ( s  +  1 )  ->  n  =/=  0 ) )
202201imp 429 . . . . . . . . . . 11  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  n  =  ( s  +  1 ) )  ->  n  =/=  0 )
203 eqneqall 2664 . . . . . . . . . . 11  |-  ( n  =  0  ->  (
n  =/=  0  -> 
(  .0.  .-  (
( T `  M
)  .X.  ( T `  ( b `  0
) ) ) )  =  ( T `  ( b `  s
) ) ) )
204202, 203mpan9 469 . . . . . . . . . 10  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  n  =  ( s  +  1 ) )  /\  n  =  0 )  ->  (  .0.  .-  ( ( T `
 M )  .X.  ( T `  ( b `
 0 ) ) ) )  =  ( T `  ( b `
 s ) ) )
205 iftrue 3950 . . . . . . . . . . 11  |-  ( n  =  ( s  +  1 )  ->  if ( n  =  (
s  +  1 ) ,  ( T `  ( b `  s
) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) ) )  =  ( T `  ( b `  s
) ) )
206205ad2antlr 726 . . . . . . . . . 10  |-  ( ( ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  /\  n  =  ( s  +  1 ) )  /\  -.  n  =  0 )  ->  if ( n  =  ( s  +  1 ) ,  ( T `  ( b `  s
) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) ) )  =  ( T `  ( b `  s
) ) )
207204, 206ifeqda 3977 . . . . . . . . 9  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  n  =  ( s  +  1 ) )  ->  if ( n  =  0 ,  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) ,  if ( n  =  (
s  +  1 ) ,  ( T `  ( b `  s
) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) ) ) )  =  ( T `
 ( b `  s ) ) )
20873, 33syl 16 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( s  +  1 )  e.  NN0 )
209 fvex 5882 . . . . . . . . . 10  |-  ( T `
 ( b `  s ) )  e. 
_V
210209a1i 11 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( T `  ( b `  s
) )  e.  _V )
211192, 207, 208, 210fvmptd 5961 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( G `  ( s  +  1 ) )  =  ( T `  ( b `
 s ) ) )
212211oveq2d 6312 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  =  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) ) )
21324, 20, 21, 7, 8mat2pmatbas 19354 . . . . . . . . . . . . 13  |-  ( ( N  e.  Fin  /\  R  e.  Ring  /\  M  e.  B )  ->  ( T `  M )  e.  ( Base `  Y
) )
2144, 213syl3an2 1262 . . . . . . . . . . . 12  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  ( T `  M )  e.  ( Base `  Y
) )
215 eqid 2457 . . . . . . . . . . . . . 14  |-  (mulGrp `  Y )  =  (mulGrp `  Y )
216215, 1mgpbas 17274 . . . . . . . . . . . . 13  |-  ( Base `  Y )  =  (
Base `  (mulGrp `  Y
) )
217 eqid 2457 . . . . . . . . . . . . 13  |-  ( 0g
`  (mulGrp `  Y )
)  =  ( 0g
`  (mulGrp `  Y )
)
218216, 217, 26mulg0 16274 . . . . . . . . . . . 12  |-  ( ( T `  M )  e.  ( Base `  Y
)  ->  ( 0 
.^  ( T `  M ) )  =  ( 0g `  (mulGrp `  Y ) ) )
219214, 218syl 16 . . . . . . . . . . 11  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  (
0  .^  ( T `  M ) )  =  ( 0g `  (mulGrp `  Y ) ) )
220 eqid 2457 . . . . . . . . . . . 12  |-  ( 1r
`  Y )  =  ( 1r `  Y
)
221215, 220ringidval 17282 . . . . . . . . . . 11  |-  ( 1r
`  Y )  =  ( 0g `  (mulGrp `  Y ) )
222219, 221syl6eqr 2516 . . . . . . . . . 10  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  (
0  .^  ( T `  M ) )  =  ( 1r `  Y
) )
223222adantr 465 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( 0  .^  ( T `  M ) )  =  ( 1r
`  Y ) )
224223oveq1d 6311 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( 0 
.^  ( T `  M ) )  .X.  ( G `  0 ) )  =  ( ( 1r `  Y ) 
.X.  ( G ` 
0 ) ) )
225523adant3 1016 . . . . . . . . . 10  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  Y  e.  Ring )
226225adantr 465 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  Y  e.  Ring )
22720, 21, 7, 8, 22, 23, 2, 24, 25chfacfisf 19482 . . . . . . . . . . 11  |-  ( ( ( N  e.  Fin  /\  R  e.  Ring  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  G : NN0 --> (
Base `  Y )
)
2284, 227syl3anl2 1277 . . . . . . . . . 10  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  G : NN0 --> (
Base `  Y )
)
229228, 79ffvelrnd 6033 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( G ` 
0 )  e.  (
Base `  Y )
)
2301, 22, 220ringlidm 17349 . . . . . . . . 9  |-  ( ( Y  e.  Ring  /\  ( G `  0 )  e.  ( Base `  Y
) )  ->  (
( 1r `  Y
)  .X.  ( G `  0 ) )  =  ( G ` 
0 ) )
231226, 229, 230syl2anc 661 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( 1r
`  Y )  .X.  ( G `  0 ) )  =  ( G `
 0 ) )
232 iftrue 3950 . . . . . . . . . 10  |-  ( n  =  0  ->  if ( n  =  0 ,  (  .0.  .-  (
( T `  M
)  .X.  ( T `  ( b `  0
) ) ) ) ,  if ( n  =  ( s  +  1 ) ,  ( T `  ( b `
 s ) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `  (
n  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  n
) ) ) ) ) ) )  =  (  .0.  .-  (
( T `  M
)  .X.  ( T `  ( b `  0
) ) ) ) )
233232adantl 466 . . . . . . . . 9  |-  ( ( ( ( N  e. 
Fin  /\  R  e.  CRing  /\  M  e.  B
)  /\  ( s  e.  NN  /\  b  e.  ( B  ^m  (
0 ... s ) ) ) )  /\  n  =  0 )  ->  if ( n  =  0 ,  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) ,  if ( n  =  (
s  +  1 ) ,  ( T `  ( b `  s
) ) ,  if ( ( s  +  1 )  <  n ,  .0.  ,  ( ( T `  ( b `
 ( n  - 
1 ) ) ) 
.-  ( ( T `
 M )  .X.  ( T `  ( b `
 n ) ) ) ) ) ) )  =  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) )
234 ovex 6324 . . . . . . . . . 10  |-  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) )  e.  _V
235234a1i 11 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) )  e.  _V )
236192, 233, 79, 235fvmptd 5961 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( G ` 
0 )  =  (  .0.  .-  ( ( T `  M )  .X.  ( T `  (
b `  0 )
) ) ) )
237224, 231, 2363eqtrd 2502 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( 0 
.^  ( T `  M ) )  .X.  ( G `  0 ) )  =  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) )
238212, 237oveq12d 6314 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )  =  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `  s
) ) )  .+  (  .0.  .-  ( ( T `  M )  .X.  ( T `  (
b `  0 )
) ) ) ) )
2391, 3cmncom 16941 . . . . . . 7  |-  ( ( Y  e. CMnd  /\  (
( 0  .^  ( T `  M )
)  .X.  ( G `  0 ) )  e.  ( Base `  Y
)  /\  ( (
( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  e.  ( Base `  Y ) )  -> 
( ( ( 0 
.^  ( T `  M ) )  .X.  ( G `  0 ) )  .+  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) )  =  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) ) )
24013, 81, 95, 239syl3anc 1228 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) )  .+  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) )  =  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) ) )
241 ringgrp 17330 . . . . . . . . 9  |-  ( Y  e.  Ring  ->  Y  e. 
Grp )
24210, 241syl 16 . . . . . . . 8  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  Y  e.  Grp )
243242adantr 465 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  Y  e.  Grp )
244212, 95eqeltrrd 2546 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  e.  ( Base `  Y ) )
24510adantr 465 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  Y  e.  Ring )
246214adantr 465 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( T `  M )  e.  (
Base `  Y )
)
247 simpl1 999 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  N  e.  Fin )
24843ad2ant2 1018 . . . . . . . . . 10  |-  ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  ->  R  e.  Ring )
249248adantr 465 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  R  e.  Ring )
250 elmapi 7459 . . . . . . . . . . . 12  |-  ( b  e.  ( B  ^m  ( 0 ... s
) )  ->  b : ( 0 ... s ) --> B )
251250adantl 466 . . . . . . . . . . 11  |-  ( ( s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) )  -> 
b : ( 0 ... s ) --> B )
252251adantl 466 . . . . . . . . . 10  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  b : ( 0 ... s ) --> B )
253 0elfz 11799 . . . . . . . . . . . 12  |-  ( s  e.  NN0  ->  0  e.  ( 0 ... s
) )
25432, 253syl 16 . . . . . . . . . . 11  |-  ( s  e.  NN  ->  0  e.  ( 0 ... s
) )
255254ad2antrl 727 . . . . . . . . . 10  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  0  e.  ( 0 ... s ) )
256252, 255ffvelrnd 6033 . . . . . . . . 9  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( b ` 
0 )  e.  B
)
25724, 20, 21, 7, 8mat2pmatbas 19354 . . . . . . . . 9  |-  ( ( N  e.  Fin  /\  R  e.  Ring  /\  (
b `  0 )  e.  B )  ->  ( T `  ( b `  0 ) )  e.  ( Base `  Y
) )
258247, 249, 256, 257syl3anc 1228 . . . . . . . 8  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( T `  ( b `  0
) )  e.  (
Base `  Y )
)
2591, 22ringcl 17339 . . . . . . . 8  |-  ( ( Y  e.  Ring  /\  ( T `  M )  e.  ( Base `  Y
)  /\  ( T `  ( b `  0
) )  e.  (
Base `  Y )
)  ->  ( ( T `  M )  .X.  ( T `  (
b `  0 )
) )  e.  (
Base `  Y )
)
260245, 246, 258, 259syl3anc 1228 . . . . . . 7  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( T `
 M )  .X.  ( T `  ( b `
 0 ) ) )  e.  ( Base `  Y ) )
2611, 2, 23, 3grpsubadd0sub 16252 . . . . . . 7  |-  ( ( Y  e.  Grp  /\  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `  s
) ) )  e.  ( Base `  Y
)  /\  ( ( T `  M )  .X.  ( T `  (
b `  0 )
) )  e.  (
Base `  Y )
)  ->  ( (
( ( s  +  1 )  .^  ( T `  M )
)  .X.  ( T `  ( b `  s
) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) )  =  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `  s
) ) )  .+  (  .0.  .-  ( ( T `  M )  .X.  ( T `  (
b `  0 )
) ) ) ) )
262243, 244, 260, 261syl3anc 1228 . . . . . 6  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  0
) ) ) )  =  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .+  (  .0.  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) ) )
263238, 240, 2623eqtr4d 2508 . . . . 5  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) )  .+  ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) )  =  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `  s
) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  0 ) ) ) ) )
264191, 263oveq12d 6314 . . . 4  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( ( 0  .^  ( T `  M )
)  .X.  ( G `  0 ) ) 
.+  ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( G `  ( s  +  1 ) ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  (
i  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  i
) ) ) ) ) ) )  .+  ( ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  0
) ) ) ) ) )
265112, 264eqtrd 2498 . . 3  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( ( ( Y  gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  .+  ( ( 0  .^  ( T `  M ) )  .X.  ( G `  0 ) ) )  .+  (
( ( s  +  1 )  .^  ( T `  M )
)  .X.  ( G `  ( s  +  1 ) ) ) )  =  ( ( Y 
gsumg  ( i  e.  ( 1 ... s ) 
|->  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  ( i  -  1 ) ) )  .-  ( ( T `  M )  .X.  ( T `  ( b `  i ) ) ) ) ) ) ) 
.+  ( ( ( ( s  +  1 )  .^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  0
) ) ) ) ) )
26674, 101, 2653eqtrd 2502 . 2  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  ( 0 ... ( s  +  1 ) )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  (
i  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  i
) ) ) ) ) ) )  .+  ( ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  0
) ) ) ) ) )
26738, 72, 2663eqtrd 2502 1  |-  ( ( ( N  e.  Fin  /\  R  e.  CRing  /\  M  e.  B )  /\  (
s  e.  NN  /\  b  e.  ( B  ^m  ( 0 ... s
) ) ) )  ->  ( Y  gsumg  ( i  e.  NN0  |->  ( ( i  .^  ( T `  M ) )  .X.  ( G `  i ) ) ) )  =  ( ( Y  gsumg  ( i  e.  ( 1 ... s )  |->  ( ( i  .^  ( T `  M ) )  .X.  ( ( T `  ( b `  (
i  -  1 ) ) )  .-  (
( T `  M
)  .X.  ( T `  ( b `  i
) ) ) ) ) ) )  .+  ( ( ( ( s  +  1 ) 
.^  ( T `  M ) )  .X.  ( T `  ( b `
 s ) ) )  .-  ( ( T `  M ) 
.X.  ( T `  ( b `  0
) ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    \/ wo 368    /\ wa 369    /\ w3a 973    = wceq 1395    e. wcel 1819    =/= wne 2652   _Vcvv 3109    u. cun 3469    i^i cin 3470   (/)c0 3793   ifcif 3944   {csn 4032   class class class wbr 4456    |-> cmpt 4515   -->wf 5590   ` cfv 5594  (class class class)co 6296    ^m cmap 7438   Fincfn 7535   CCcc 9507   RRcr 9508   0cc0 9509   1c1 9510    + caddc 9512    < clt 9645    <_ cle 9646    - cmin 9824   NNcn 10556   2c2 10606   NN0cn0 10816   ZZcz 10885   ZZ>=cuz 11106   ...cfz 11697   Basecbs 14644   +g cplusg 14712   .rcmulr 14713   0gc0g 14857    gsumg cgsu 14858   Mndcmnd 16046   Grpcgrp 16180   -gcsg 16182  .gcmg 16183  CMndccmn 16925  mulGrpcmgp 17268   1rcur 17280   Ringcrg 17325   CRingccrg 17326  Poly1cpl1 18343   Mat cmat 19036   matToPolyMat cmat2pmat 19332
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1619  ax-4 1632  ax-5 1705  ax-6 1748  ax-7 1791  ax-8 1821  ax-9 1823  ax-10 1838  ax-11 1843  ax-12 1855  ax-13 2000  ax-ext 2435  ax-rep 4568  ax-sep 4578  ax-nul 4586  ax-pow