MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  chfacfpmmulgsum Structured version   Visualization version   Unicode version
Theorem chfacfpmmulgsum 19965
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 2471 . . 3 |- ( Base ` Y ) = ( Base ` Y )
2 cayhamlem1.0 . . 3 |- .0. = ( 0g ` Y )
3 chfacfpmmulgsum.p . . 3 |- .+ = ( +g ` Y )
4 crngring 17869 . . . . . . . 8 |- ( R e. CRing -> R e. Ring )
54anim2i 579 . . . . . . 7 |- ( ( N e. Fin /\ R e. CRing ) -> ( N e. Fin /\ R e. Ring ) )
653adant3 1050 . . . . . 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 19794 . . . . . 6 |- ( ( N e. Fin /\ R e. Ring ) -> Y e. Ring )
106, 9syl 17 . . . . 5 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> Y e. Ring )
11 ringcmn 17889 . . . . 5 |- ( Y e. Ring -> Y e. CMnd )
1210, 11syl 17 . . . 4 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> Y e. CMnd )
1312adantr 472 . . 3 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> Y e. CMnd )
14 nn0ex 10899 . . . 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 768 . . . . 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 770 . . . . 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 468 . . . . 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 1210 . . . 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 19962 . . . 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 17 . . 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 19964 . . 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 11932 . . . 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 10900 . . . . . 6 |- ( s e. NN -> s e. NN0 )
33 peano2nn0 10934 . . . . . 6 |- ( s e. NN0 -> ( s + 1 ) e. NN0 )
3432, 33syl 17 . . . . 5 |- ( s e. NN -> ( s + 1 ) e. NN0 )
35 nn0split 11931 . . . . 5 |- ( ( s + 1 ) e. NN0 -> NN0 = ( ( 0 ... ( s + 1 ) ) u. ( ZZ>= ` ( ( s + 1 ) + 1 ) ) ) )
3634, 35syl 17 . . . 4 |- ( s e. NN -> NN0 = ( ( 0 ... ( s + 1 ) ) u. ( ZZ>= ` ( ( s + 1 ) + 1 ) ) ) )
3736ad2antrl 742 . . 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 17640 . 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 768 . . . . . . . 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 770 . . . . . . . 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 10639 . . . . . . . . . . . . 13 |- ( s e. NN -> s e. CC )
42 add1p1 10886 . . . . . . . . . . . . 13 |- ( s e. CC -> ( ( s + 1 ) + 1 ) = ( s + 2 ) )
4341, 42syl 17 . . . . . . . . . . . 12 |- ( s e. NN -> ( ( s + 1 ) + 1 ) = ( s + 2 ) )
4443ad2antrl 742 . . . . . . . . . . 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 5883 . . . . . . . . . 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 2534 . . . . . . . . 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 492 . . . . . . . 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 19963 . . . . . . . 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 1292 . . . . . . 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 4482 . . . . . 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 6324 . . . . 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 482 . . . . . . . . . 10 |- ( ( N e. Fin /\ R e. CRing ) -> Y e. Ring )
53 ringmnd 17867 . . . . . . . . . 10 |- ( Y e. Ring -> Y e. Mnd )
5452, 53syl 17 . . . . . . . . 9 |- ( ( N e. Fin /\ R e. CRing ) -> Y e. Mnd )
55543adant3 1050 . . . . . . . 8 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> Y e. Mnd )
56 fvex 5889 . . . . . . . 8 |- ( ZZ>= ` ( ( s + 1 ) + 1 ) ) e. _V
5755, 56jctir 547 . . . . . . 7 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> ( Y e. Mnd /\ ( ZZ>= ` ( ( s + 1 ) + 1 ) ) e. _V ) )
5857adantr 472 . . . . . 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 16699 . . . . . 6 |- ( ( Y e. Mnd /\ ( ZZ>= ` ( ( s + 1 ) + 1 ) ) e. _V ) -> ( Y gsumg ( i e. ( ZZ>= ` ( ( s + 1 ) + 1 ) ) |-> .0. ) ) = .0. )
6058, 59syl 17 . . . . 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 2505 . . . 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 6324 . . 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 472 . . . 4 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> Y e. Mnd )
64 fzfid 12224 . . . . 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 11913 . . . . . . . 8 |- ( i e. ( 0 ... ( s + 1 ) ) -> i e. NN0 )
6665, 19sylan2 482 . . . . . . 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 17 . . . . . 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 2809 . . . . 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 17677 . . . 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 16636 . . . 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 673 . . 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 2505 . 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 742 . . . 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 17643 . . 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 11913 . . . . . . 7 |- ( i e. ( 0 ... s ) -> i e. NN0 )
7675, 28sylan2 482 . . . . . 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 17644 . . . . 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 10908 . . . . . . . 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 19962 . . . . . . . 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 1391 . . . . . . 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 6315 . . . . . . . . 9 |- ( i = 0 -> ( i .^ ( T ` M ) ) = ( 0 .^ ( T ` M ) ) )
83 fveq2 5879 . . . . . . . . 9 |- ( i = 0 -> ( G ` i ) = ( G ` 0 ) )
8482, 83oveq12d 6326 . . . . . . . 8 |- ( i = 0 -> ( ( i .^ ( T ` M ) ) .X. ( G ` i ) ) = ( ( 0 .^ ( T ` M ) ) .X. ( G ` 0 ) ) )
851, 84gsumsn 17665 . . . . . . 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 1292 . . . . . 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 6324 . . . . 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 2505 . . . 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 6336 . . . . . 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 10909 . . . . . . . 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 10953 . . . . . 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 19962 . . . . . 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 1391 . . . . 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 6315 . . . . . . 7 |- ( i = ( s + 1 ) -> ( i .^ ( T ` M ) ) = ( ( s + 1 ) .^ ( T ` M ) ) )
97 fveq2 5879 . . . . . . 7 |- ( i = ( s + 1 ) -> ( G ` i ) = ( G ` ( s + 1 ) ) )
9896, 97oveq12d 6326 . . . . . 6 |- ( i = ( s + 1 ) -> ( ( i .^ ( T ` M ) ) .X. ( G ` i ) ) = ( ( ( s + 1 ) .^ ( T ` M ) ) .X. ( G ` ( s + 1 ) ) ) )
991, 98gsumsn 17665 . . . . 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 1292 . . . 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 6326 . . 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 12224 . . . . . 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 768 . . . . . . . 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 770 . . . . . . . 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 11854 . . . . . . . . . 10 |- ( i e. ( 1 ... s ) -> i e. NN )
106105nnnn0d 10949 . . . . . . . . 9 |- ( i e. ( 1 ... s ) -> i e. NN0 )
107106adantl 473 . . . . . . . 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 1292 . . . . . . 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 2809 . . . . . 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 17677 . . . . 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 16624 . . . . 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 1294 . . . 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 10676 . . . . . . . . . . . . . 14 |- ( i e. ( 1 ... s ) -> i =/= 0 )
115114ad2antlr 741 . . . . . . . . . . . . 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 2705 . . . . . . . . . . . . . 14 |- ( n = i -> ( n =/= 0 <-> i =/= 0 ) )
117116adantl 473 . . . . . . . . . . . . 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 240 . . . . . . . . . . . 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 2654 . . . . . . . . . . . 12 |- ( n = 0 -> ( n =/= 0 -> .0. = ( T ` ( b ` ( i - 1 ) ) ) ) )
120118, 119mpan9 477 . . . . . . . . . . 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 770 . . . . . . . . . . . . . . 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 2475 . . . . . . . . . . . . . . . . 17 |- ( 0 = n -> ( 0 = i <-> n = i ) )
123122eqcoms 2479 . . . . . . . . . . . . . . . 16 |- ( n = 0 -> ( 0 = i <-> n = i ) )
124123adantl 473 . . . . . . . . . . . . . . 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 240 . . . . . . . . . . . . . 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 5883 . . . . . . . . . . . . 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 5883 . . . . . . . . . . . 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 6324 . . . . . . . . . . 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 6326 . . . . . . . . . 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 11817 . . . . . . . . . . . . . . . . . 18 |- ( i e. ( 1 ... s ) <-> ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) /\ ( 1 <_ i /\ i <_ s ) ) )
131 zleltp1 11011 . . . . . . . . . . . . . . . . . . . . . . . . 25 |- ( ( i e. ZZ /\ s e. ZZ ) -> ( i <_ s <-> i < ( s + 1 ) ) )
132131ancoms 460 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ( ( s e. ZZ /\ i e. ZZ ) -> ( i <_ s <-> i < ( s + 1 ) ) )
1331323adant1 1048 . . . . . . . . . . . . . . . . . . . . . . 23 |- ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) -> ( i <_ s <-> i < ( s + 1 ) ) )
134133biimpcd 232 . . . . . . . . . . . . . . . . . . . . . 22 |- ( i <_ s -> ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) -> i < ( s + 1 ) ) )
135134adantl 473 . . . . . . . . . . . . . . . . . . . . 21 |- ( ( 1 <_ i /\ i <_ s ) -> ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) -> i < ( s + 1 ) ) )
136135impcom 437 . . . . . . . . . . . . . . . . . . . 20 |- ( ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) /\ ( 1 <_ i /\ i <_ s ) ) -> i < ( s + 1 ) )
137136orcd 399 . . . . . . . . . . . . . . . . . . 19 |- ( ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) /\ ( 1 <_ i /\ i <_ s ) ) -> ( i < ( s + 1 ) \/ ( s + 1 ) < i ) )
138 zre 10965 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ( s e. ZZ -> s e. RR )
139 1red 9676 . . . . . . . . . . . . . . . . . . . . . . . 24 |- ( s e. ZZ -> 1 e. RR )
140138, 139readdcld 9688 . . . . . . . . . . . . . . . . . . . . . . 23 |- ( s e. ZZ -> ( s + 1 ) e. RR )
141 zre 10965 . . . . . . . . . . . . . . . . . . . . . . 23 |- ( i e. ZZ -> i e. RR )
142140, 141anim12ci 577 . . . . . . . . . . . . . . . . . . . . . 22 |- ( ( s e. ZZ /\ i e. ZZ ) -> ( i e. RR /\ ( s + 1 ) e. RR ) )
1431423adant1 1048 . . . . . . . . . . . . . . . . . . . . 21 |- ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) -> ( i e. RR /\ ( s + 1 ) e. RR ) )
144 lttri2 9734 . . . . . . . . . . . . . . . . . . . . 21 |- ( ( i e. RR /\ ( s + 1 ) e. RR ) -> ( i =/= ( s + 1 ) <-> ( i < ( s + 1 ) \/ ( s + 1 ) < i ) ) )
145143, 144syl 17 . . . . . . . . . . . . . . . . . . . 20 |- ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) -> ( i =/= ( s + 1 ) <-> ( i < ( s + 1 ) \/ ( s + 1 ) < i ) ) )
146145adantr 472 . . . . . . . . . . . . . . . . . . 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 240 . . . . . . . . . . . . . . . . . 18 |- ( ( ( 1 e. ZZ /\ s e. ZZ /\ i e. ZZ ) /\ ( 1 <_ i /\ i <_ s ) ) -> i =/= ( s + 1 ) )
148130, 147sylbi 200 . . . . . . . . . . . . . . . . 17 |- ( i e. ( 1 ... s ) -> i =/= ( s + 1 ) )
149148ad2antlr 741 . . . . . . . . . . . . . . . 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 2705 . . . . . . . . . . . . . . . . 17 |- ( n = i -> ( n =/= ( s + 1 ) <-> i =/= ( s + 1 ) ) )
151150adantl 473 . . . . . . . . . . . . . . . 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 240 . . . . . . . . . . . . . . 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 472 . . . . . . . . . . . . . 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 2648 . . . . . . . . . . . . 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 109 . . . . . . . . . . . 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 436 . . . . . . . . . . 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 10646 . . . . . . . . . . . . . . . . . . 19 |- ( i e. ( 1 ... s ) -> i e. RR )
158 eleq1 2537 . . . . . . . . . . . . . . . . . . 19 |- ( n = i -> ( n e. RR <-> i e. RR ) )
159157, 158syl5ibrcom 230 . . . . . . . . . . . . . . . . . 18 |- ( i e. ( 1 ... s ) -> ( n = i -> n e. RR ) )
160159adantl 473 . . . . . . . . . . . . . . . . 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 436 . . . . . . . . . . . . . . . 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 10950 . . . . . . . . . . . . . . . . . 18 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> s e. RR )
163162ad2antrr 740 . . . . . . . . . . . . . . . . 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 9676 . . . . . . . . . . . . . . . . 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 9688 . . . . . . . . . . . . . . . 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 200 . . . . . . . . . . . . . . . . . 18 |- ( i e. ( 1 ... s ) -> i < ( s + 1 ) )
167166ad2antlr 741 . . . . . . . . . . . . . . . . 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 4398 . . . . . . . . . . . . . . . . . 18 |- ( n = i -> ( n < ( s + 1 ) <-> i < ( s + 1 ) ) )
169168adantl 473 . . . . . . . . . . . . . . . . 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 240 . . . . . . . . . . . . . . . 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 9801 . . . . . . . . . . . . . . 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 109 . . . . . . . . . . . . . 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 740 . . . . . . . . . . . . 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 436 . . . . . . . . . . . 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 785 . . . . . . . . . . . . . . . 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 6323 . . . . . . . . . . . . . . 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 5883 . . . . . . . . . . . . . 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 5883 . . . . . . . . . . . . 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 5883 . . . . . . . . . . . . . . 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 5883 . . . . . . . . . . . . . 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 6324 . . . . . . . . . . . . 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 6326 . . . . . . . . . . . 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 3905 . . . . . . . . . . 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 3905 . . . . . . . . . 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 3905 . . . . . . . . 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 6336 . . . . . . . . . 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 5969 . . . . . . . 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 6324 . . . . . . 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 4482 . . . . . 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 6324 . . . . 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 10923 . . . . . . . . . . . . . . 15 |- ( s e. NN0 -> 0 < ( s + 1 ) )
194 0red 9662 . . . . . . . . . . . . . . . . 17 |- ( s e. NN0 -> 0 e. RR )
195 ltne 9748 . . . . . . . . . . . . . . . . 17 |- ( ( 0 e. RR /\ 0 < ( s + 1 ) ) -> ( s + 1 ) =/= 0 )
196194, 195sylan 479 . . . . . . . . . . . . . . . 16 |- ( ( s e. NN0 /\ 0 < ( s + 1 ) ) -> ( s + 1 ) =/= 0 )
197 neeq1 2705 . . . . . . . . . . . . . . . 16 |- ( n = ( s + 1 ) -> ( n =/= 0 <-> ( s + 1 ) =/= 0 ) )
198196, 197syl5ibrcom 230 . . . . . . . . . . . . . . 15 |- ( ( s e. NN0 /\ 0 < ( s + 1 ) ) -> ( n = ( s + 1 ) -> n =/= 0 ) )
199193, 198mpdan 681 . . . . . . . . . . . . . 14 |- ( s e. NN0 -> ( n = ( s + 1 ) -> n =/= 0 ) )
20032, 199syl 17 . . . . . . . . . . . . 13 |- ( s e. NN -> ( n = ( s + 1 ) -> n =/= 0 ) )
201200ad2antrl 742 . . . . . . . . . . . 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 436 . . . . . . . . . . 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 2654 . . . . . . . . . . 11 |- ( n = 0 -> ( n =/= 0 -> ( .0. .- ( ( T ` M ) .X. ( T ` ( b ` 0 ) ) ) ) = ( T ` ( b ` s ) ) ) )
204202, 203mpan9 477 . . . . . . . . . 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 3878 . . . . . . . . . . 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 741 . . . . . . . . . 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 3905 . . . . . . . . 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 17 . . . . . . . . 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 5889 . . . . . . . . . 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 5969 . . . . . . . 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 6324 . . . . . . 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 19827 . . . . . . . . . . . . 13 |- ( ( N e. Fin /\ R e. Ring /\ M e. B ) -> ( T ` M ) e. ( Base ` Y ) )
2144, 213syl3an2 1326 . . . . . . . . . . . 12 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> ( T ` M ) e. ( Base ` Y ) )
215 eqid 2471 . . . . . . . . . . . . . 14 |- (mulGrp ` Y ) = (mulGrp ` Y )
216215, 1mgpbas 17807 . . . . . . . . . . . . 13 |- ( Base ` Y ) = ( Base ` (mulGrp ` Y ) )
217 eqid 2471 . . . . . . . . . . . . 13 |- ( 0g ` (mulGrp ` Y ) ) = ( 0g ` (mulGrp ` Y ) )
218216, 217, 26mulg0 16841 . . . . . . . . . . . 12 |- ( ( T ` M ) e. ( Base ` Y ) -> ( 0 .^ ( T ` M ) ) = ( 0g ` (mulGrp ` Y ) ) )
219214, 218syl 17 . . . . . . . . . . 11 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> ( 0 .^ ( T ` M ) ) = ( 0g ` (mulGrp ` Y ) ) )
220 eqid 2471 . . . . . . . . . . . 12 |- ( 1r ` Y ) = ( 1r ` Y )
221215, 220ringidval 17815 . . . . . . . . . . 11 |- ( 1r ` Y ) = ( 0g ` (mulGrp ` Y ) )
222219, 221syl6eqr 2523 . . . . . . . . . 10 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> ( 0 .^ ( T ` M ) ) = ( 1r ` Y ) )
223222adantr 472 . . . . . . . . 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 6323 . . . . . . . 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 1050 . . . . . . . . . 10 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> Y e. Ring )
226225adantr 472 . . . . . . . . 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 19955 . . . . . . . . . . 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 1341 . . . . . . . . . 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 6038 . . . . . . . . 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 17882 . . . . . . . . 9 |- ( ( Y e. Ring /\ ( G ` 0 ) e. ( Base ` Y ) ) -> ( ( 1r ` Y ) .X. ( G ` 0 ) ) = ( G ` 0 ) )
231226, 229, 230syl2anc 673 . . . . . . . 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 3878 . . . . . . . . . 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 473 . . . . . . . . 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 6336 . . . . . . . . . 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 5969 . . . . . . . 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 2509 . . . . . . 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 6326 . . . . . 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 17524 . . . . . . 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 1292 . . . . . 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 17863 . . . . . . . . 9 |- ( Y e. Ring -> Y e. Grp )
24210, 241syl 17 . . . . . . . 8 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> Y e. Grp )
243242adantr 472 . . . . . . 7 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> Y e. Grp )
244212, 95eqeltrrd 2550 . . . . . . 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 472 . . . . . . . 8 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> Y e. Ring )
246214adantr 472 . . . . . . . 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 1033 . . . . . . . . 9 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> N e. Fin )
24843ad2ant2 1052 . . . . . . . . . 10 |- ( ( N e. Fin /\ R e. CRing /\ M e. B ) -> R e. Ring )
249248adantr 472 . . . . . . . . 9 |- ( ( ( N e. Fin /\ R e. CRing /\ M e. B ) /\ ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) ) -> R e. Ring )
250 elmapi 7511 . . . . . . . . . . . 12 |- ( b e. ( B ^m ( 0 ... s ) ) -> b : ( 0 ... s ) --> B )
251250adantl 473 . . . . . . . . . . 11 |- ( ( s e. NN /\ b e. ( B ^m ( 0 ... s ) ) ) -> b : ( 0 ... s ) --> B )
252251adantl 473 . . . . . . . . . 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 11915 . . . . . . . . . . . 12 |- ( s e. NN0 -> 0 e. ( 0 ... s ) )
25432, 253syl 17 . . . . . . . . . . 11 |- ( s e. NN -> 0 e. ( 0 ... s ) )
255254ad2antrl 742 . . . . . . . . . 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 6038 . . . . . . . . 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 19827 . . . . . . . . 9 |- ( ( N e. Fin /\ R e. Ring /\ ( b ` 0 ) e. B ) -> ( T ` ( b ` 0 ) ) e. ( Base ` Y ) )
258247, 249, 256, 257syl3anc 1292 . . . . . . . 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 17872 . . . . . . . 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 1292 . . . . . . 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 16819 . . . . . . 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 1292 . . . . . 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 2515 . . . . 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 6326 . . . 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 2505 . . 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 2509 . 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 2509 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 189   \/ wo 375   /\ wa 376   /\ w3a 1007   = wceq 1452   e. wcel 1904   =/= wne 2641   _Vcvv 3031   u. cun 3388   i^i cin 3389   (/)c0 3722   ifcif 3872   {csn 3959   class class class wbr 4395   |-> cmpt 4454   -->wf 5585   ` cfv 5589  (class class class)co 6308   ^m cmap 7490   Fincfn 7587   CCcc 9555   RRcr 9556   0cc0 9557   1c1 9558   + caddc 9560   < clt 9693   <_ cle 9694   - cmin 9880   NNcn 10631   2c2 10681   NN0cn0 10893   ZZcz 10961   ZZ>=cuz 11182   ...cfz 11810   Basecbs 15199   +g cplusg 15268   .rcmulr 15269   0gc0g 15416   gsumg cgsu 15417   Mndcmnd 16613   Grpcgrp 16747   -gcsg 16749  .gcmg 16750  CMndccmn 17508  mulGrpcmgp 17801   1rcur 17813   Ringcrg 17858   CRingccrg 17859  Poly1cpl1 18847   Mat cmat 19509   matToPolyMat cmat2pmat 19805
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1677  ax-4 1690  ax-5 1766  ax-6 1813  ax-7 1859  ax-8 1906  ax-9 1913  ax-10 1932  ax-11 1937  ax-12 1950  ax-13 2104  ax-ext 2451  ax-rep 4508  ax-sep 4518  ax-nul 4527 &nbs