Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  pwdif Structured version   Visualization version   Unicode version

Theorem pwdif 41501
Description: The difference of two numbers to the same power is the difference of the two numbers multiplied with a finite sum. Generalization of subsq 12972. See Wikipedia "Fermat number", section "Other theorems about Fermat numbers", https://en.wikipedia.org/wiki/Fermat_number, 5-Aug-2021. (Contributed by AV, 6-Aug-2021.) (Revised by AV, 19-Aug-2021.)
Assertion
Ref Expression
pwdif  |-  ( ( N  e.  NN0  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ N
)  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) )
Distinct variable groups:    A, k    B, k    k, N

Proof of Theorem pwdif
Dummy variable  l is distinct from all other variables.
StepHypRef Expression
1 elnn0 11294 . . 3  |-  ( N  e.  NN0  <->  ( N  e.  NN  \/  N  =  0 ) )
2 simp2 1062 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  A  e.  CC )
3 simp3 1063 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  B  e.  CC )
4 fzofi 12773 . . . . . . . . 9  |-  ( 0..^ N )  e.  Fin
54a1i 11 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
0..^ N )  e. 
Fin )
62adantr 481 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  A  e.  CC )
7 elfzonn0 12512 . . . . . . . . . . 11  |-  ( k  e.  ( 0..^ N )  ->  k  e.  NN0 )
87adantl 482 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  k  e.  NN0 )
96, 8expcld 13008 . . . . . . . . 9  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( A ^
k )  e.  CC )
103adantr 481 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  B  e.  CC )
11 ubmelm1fzo 12564 . . . . . . . . . . . 12  |-  ( k  e.  ( 0..^ N )  ->  ( ( N  -  k )  -  1 )  e.  ( 0..^ N ) )
12 elfzonn0 12512 . . . . . . . . . . . 12  |-  ( ( ( N  -  k
)  -  1 )  e.  ( 0..^ N )  ->  ( ( N  -  k )  -  1 )  e. 
NN0 )
1311, 12syl 17 . . . . . . . . . . 11  |-  ( k  e.  ( 0..^ N )  ->  ( ( N  -  k )  -  1 )  e. 
NN0 )
1413adantl 482 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( N  -  k )  - 
1 )  e.  NN0 )
1510, 14expcld 13008 . . . . . . . . 9  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( B ^
( ( N  -  k )  -  1 ) )  e.  CC )
169, 15mulcld 10060 . . . . . . . 8  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( A ^ k )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  e.  CC )
175, 16fsumcl 14464 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  e.  CC )
182, 3, 17subdird 10487 . . . . . 6  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A  -  B
)  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  ( ( A  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  -  ( B  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) ) )
195, 2, 16fsummulc2 14516 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  sum_ k  e.  ( 0..^ N ) ( A  x.  (
( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) )
206, 9, 15mulassd 10063 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( A  x.  ( A ^
k ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  ( A  x.  ( ( A ^ k )  x.  ( B ^
( ( N  -  k )  -  1 ) ) ) ) )
216, 9mulcomd 10061 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( A  x.  ( A ^ k ) )  =  ( ( A ^ k )  x.  A ) )
22 expp1 12867 . . . . . . . . . . . . 13  |-  ( ( A  e.  CC  /\  k  e.  NN0 )  -> 
( A ^ (
k  +  1 ) )  =  ( ( A ^ k )  x.  A ) )
232, 7, 22syl2an 494 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( A ^
( k  +  1 ) )  =  ( ( A ^ k
)  x.  A ) )
2421, 23eqtr4d 2659 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( A  x.  ( A ^ k ) )  =  ( A ^ ( k  +  1 ) ) )
2524oveq1d 6665 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( A  x.  ( A ^
k ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  ( ( A ^ (
k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )
2620, 25eqtr3d 2658 . . . . . . . . 9  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( A  x.  ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  ( ( A ^ ( k  +  1 ) )  x.  ( B ^
( ( N  -  k )  -  1 ) ) ) )
2726sumeq2dv 14433 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( A  x.  (
( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  sum_ k  e.  ( 0..^ N ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )
2819, 27eqtrd 2656 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  sum_ k  e.  ( 0..^ N ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )
295, 3, 16fsummulc2 14516 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  sum_ k  e.  ( 0..^ N ) ( B  x.  (
( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) )
3010, 16mulcomd 10061 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( B  x.  ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  ( ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  x.  B ) )
319, 15, 10mulassd 10063 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( ( A ^ k )  x.  ( B ^
( ( N  -  k )  -  1 ) ) )  x.  B )  =  ( ( A ^ k
)  x.  ( ( B ^ ( ( N  -  k )  -  1 ) )  x.  B ) ) )
32 expp1 12867 . . . . . . . . . . . . . 14  |-  ( ( B  e.  CC  /\  ( ( N  -  k )  -  1 )  e.  NN0 )  ->  ( B ^ (
( ( N  -  k )  -  1 )  +  1 ) )  =  ( ( B ^ ( ( N  -  k )  -  1 ) )  x.  B ) )
3332eqcomd 2628 . . . . . . . . . . . . 13  |-  ( ( B  e.  CC  /\  ( ( N  -  k )  -  1 )  e.  NN0 )  ->  ( ( B ^
( ( N  -  k )  -  1 ) )  x.  B
)  =  ( B ^ ( ( ( N  -  k )  -  1 )  +  1 ) ) )
343, 13, 33syl2an 494 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( B ^ ( ( N  -  k )  - 
1 ) )  x.  B )  =  ( B ^ ( ( ( N  -  k
)  -  1 )  +  1 ) ) )
35 nncn 11028 . . . . . . . . . . . . . . . 16  |-  ( N  e.  NN  ->  N  e.  CC )
36353ad2ant1 1082 . . . . . . . . . . . . . . 15  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  N  e.  CC )
3736adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  N  e.  CC )
38 elfzoelz 12470 . . . . . . . . . . . . . . . 16  |-  ( k  e.  ( 0..^ N )  ->  k  e.  ZZ )
3938zcnd 11483 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0..^ N )  ->  k  e.  CC )
4039adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  k  e.  CC )
4137, 40subcld 10392 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( N  -  k )  e.  CC )
42 npcan1 10455 . . . . . . . . . . . . . 14  |-  ( ( N  -  k )  e.  CC  ->  (
( ( N  -  k )  -  1 )  +  1 )  =  ( N  -  k ) )
4342oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( N  -  k )  e.  CC  ->  ( B ^ ( ( ( N  -  k )  -  1 )  +  1 ) )  =  ( B ^ ( N  -  k )
) )
4441, 43syl 17 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( B ^
( ( ( N  -  k )  - 
1 )  +  1 ) )  =  ( B ^ ( N  -  k ) ) )
4534, 44eqtrd 2656 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( B ^ ( ( N  -  k )  - 
1 ) )  x.  B )  =  ( B ^ ( N  -  k ) ) )
4645oveq2d 6666 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( ( A ^ k )  x.  ( ( B ^
( ( N  -  k )  -  1 ) )  x.  B
) )  =  ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) )
4730, 31, 463eqtrd 2660 . . . . . . . . 9  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0..^ N ) )  ->  ( B  x.  ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  ( ( A ^ k )  x.  ( B ^
( N  -  k
) ) ) )
4847sumeq2dv 14433 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( B  x.  (
( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) )
4929, 48eqtrd 2656 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )  =  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) )
5028, 49oveq12d 6668 . . . . . 6  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^ k )  x.  ( B ^
( ( N  -  k )  -  1 ) ) ) )  -  ( B  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^ k )  x.  ( B ^
( ( N  -  k )  -  1 ) ) ) ) )  =  ( sum_ k  e.  ( 0..^ N ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^
( ( N  -  k )  -  1 ) ) )  -  sum_ k  e.  ( 0..^ N ) ( ( A ^ k )  x.  ( B ^
( N  -  k
) ) ) ) )
51 nnz 11399 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  N  e.  ZZ )
52513ad2ant1 1082 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  N  e.  ZZ )
53 fzoval 12471 . . . . . . . . . . 11  |-  ( N  e.  ZZ  ->  (
0..^ N )  =  ( 0 ... ( N  -  1 ) ) )
5452, 53syl 17 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
0..^ N )  =  ( 0 ... ( N  -  1 ) ) )
5554sumeq1d 14431 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  sum_ k  e.  ( 0 ... ( N  -  1 ) ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )
56 nnm1nn0 11334 . . . . . . . . . . . 12  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  NN0 )
57 nn0uz 11722 . . . . . . . . . . . 12  |-  NN0  =  ( ZZ>= `  0 )
5856, 57syl6eleq 2711 . . . . . . . . . . 11  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  ( ZZ>= `  0
) )
59583ad2ant1 1082 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( N  -  1 )  e.  ( ZZ>= `  0
) )
602adantr 481 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  A  e.  CC )
61 elfznn0 12433 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... ( N  -  1 ) )  ->  k  e.  NN0 )
62 peano2nn0 11333 . . . . . . . . . . . . . 14  |-  ( k  e.  NN0  ->  ( k  +  1 )  e. 
NN0 )
6361, 62syl 17 . . . . . . . . . . . . 13  |-  ( k  e.  ( 0 ... ( N  -  1 ) )  ->  (
k  +  1 )  e.  NN0 )
6463adantl 482 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( k  +  1 )  e.  NN0 )
6560, 64expcld 13008 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( A ^
( k  +  1 ) )  e.  CC )
663adantr 481 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  B  e.  CC )
6736adantr 481 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  N  e.  CC )
6861nn0cnd 11353 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0 ... ( N  -  1 ) )  ->  k  e.  CC )
6968adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  k  e.  CC )
70 1cnd 10056 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  1  e.  CC )
7167, 69, 70sub32d 10424 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( ( N  -  k )  - 
1 )  =  ( ( N  -  1 )  -  k ) )
72 fznn0sub 12373 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0 ... ( N  -  1 ) )  ->  (
( N  -  1 )  -  k )  e.  NN0 )
7372adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( ( N  -  1 )  -  k )  e.  NN0 )
7471, 73eqeltrd 2701 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( ( N  -  k )  - 
1 )  e.  NN0 )
7566, 74expcld 13008 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( B ^
( ( N  -  k )  -  1 ) )  e.  CC )
7665, 75mulcld 10060 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( ( A ^ ( k  +  1 ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  e.  CC )
77 oveq1 6657 . . . . . . . . . . . 12  |-  ( k  =  ( N  - 
1 )  ->  (
k  +  1 )  =  ( ( N  -  1 )  +  1 ) )
7877oveq2d 6666 . . . . . . . . . . 11  |-  ( k  =  ( N  - 
1 )  ->  ( A ^ ( k  +  1 ) )  =  ( A ^ (
( N  -  1 )  +  1 ) ) )
79 oveq2 6658 . . . . . . . . . . . . 13  |-  ( k  =  ( N  - 
1 )  ->  ( N  -  k )  =  ( N  -  ( N  -  1
) ) )
8079oveq1d 6665 . . . . . . . . . . . 12  |-  ( k  =  ( N  - 
1 )  ->  (
( N  -  k
)  -  1 )  =  ( ( N  -  ( N  - 
1 ) )  - 
1 ) )
8180oveq2d 6666 . . . . . . . . . . 11  |-  ( k  =  ( N  - 
1 )  ->  ( B ^ ( ( N  -  k )  - 
1 ) )  =  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) )
8278, 81oveq12d 6668 . . . . . . . . . 10  |-  ( k  =  ( N  - 
1 )  ->  (
( A ^ (
k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  ( ( A ^ ( ( N  -  1 )  +  1 ) )  x.  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) ) )
8359, 76, 82fsumm1 14480 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0 ... ( N  -  1 ) ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  (
sum_ k  e.  ( 0 ... ( ( N  -  1 )  -  1 ) ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  +  ( ( A ^ ( ( N  -  1 )  +  1 ) )  x.  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) ) ) )
8455, 83eqtrd 2656 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  ( sum_ k  e.  ( 0 ... (
( N  -  1 )  -  1 ) ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  +  ( ( A ^ (
( N  -  1 )  +  1 ) )  x.  ( B ^ ( ( N  -  ( N  - 
1 ) )  - 
1 ) ) ) ) )
8554sumeq1d 14431 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) )  =  sum_ k  e.  ( 0 ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) )
8661adantl 482 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  k  e.  NN0 )
8760, 86expcld 13008 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( A ^
k )  e.  CC )
8854eleq2d 2687 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
k  e.  ( 0..^ N )  <->  k  e.  ( 0 ... ( N  -  1 ) ) ) )
89 fzonnsub 12493 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 0..^ N )  ->  ( N  -  k )  e.  NN )
9089nnnn0d 11351 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 0..^ N )  ->  ( N  -  k )  e. 
NN0 )
9188, 90syl6bir 244 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
k  e.  ( 0 ... ( N  - 
1 ) )  -> 
( N  -  k
)  e.  NN0 )
)
9291imp 445 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( N  -  k )  e.  NN0 )
9366, 92expcld 13008 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( B ^
( N  -  k
) )  e.  CC )
9487, 93mulcld 10060 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
0 ... ( N  - 
1 ) ) )  ->  ( ( A ^ k )  x.  ( B ^ ( N  -  k )
) )  e.  CC )
95 oveq2 6658 . . . . . . . . . . 11  |-  ( k  =  0  ->  ( A ^ k )  =  ( A ^ 0 ) )
96 oveq2 6658 . . . . . . . . . . . 12  |-  ( k  =  0  ->  ( N  -  k )  =  ( N  - 
0 ) )
9796oveq2d 6666 . . . . . . . . . . 11  |-  ( k  =  0  ->  ( B ^ ( N  -  k ) )  =  ( B ^ ( N  -  0 ) ) )
9895, 97oveq12d 6668 . . . . . . . . . 10  |-  ( k  =  0  ->  (
( A ^ k
)  x.  ( B ^ ( N  -  k ) ) )  =  ( ( A ^ 0 )  x.  ( B ^ ( N  -  0 ) ) ) )
9959, 94, 98fsum1p 14482 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0 ... ( N  -  1 ) ) ( ( A ^ k )  x.  ( B ^ ( N  -  k )
) )  =  ( ( ( A ^
0 )  x.  ( B ^ ( N  - 
0 ) ) )  +  sum_ k  e.  ( ( 0  +  1 ) ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) ) )
1002exp0d 13002 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A ^ 0 )  =  1 )
10136subid1d 10381 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( N  -  0 )  =  N )
102101oveq2d 6666 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ ( N  - 
0 ) )  =  ( B ^ N
) )
103100, 102oveq12d 6668 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ 0 )  x.  ( B ^ ( N  - 
0 ) ) )  =  ( 1  x.  ( B ^ N
) ) )
104 simp1 1061 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  N  e.  NN )
105104nnnn0d 11351 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  N  e.  NN0 )
1063, 105expcld 13008 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ N )  e.  CC )
107106mulid2d 10058 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
1  x.  ( B ^ N ) )  =  ( B ^ N ) )
108103, 107eqtrd 2656 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ 0 )  x.  ( B ^ ( N  - 
0 ) ) )  =  ( B ^ N ) )
109 0p1e1 11132 . . . . . . . . . . . . 13  |-  ( 0  +  1 )  =  1
110109a1i 11 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
0  +  1 )  =  1 )
111110oveq1d 6665 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( 0  +  1 ) ... ( N  -  1 ) )  =  ( 1 ... ( N  -  1 ) ) )
112111sumeq1d 14431 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( ( 0  +  1 ) ... ( N  -  1 ) ) ( ( A ^ k )  x.  ( B ^ ( N  -  k )
) )  =  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) )
113108, 112oveq12d 6668 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( ( A ^
0 )  x.  ( B ^ ( N  - 
0 ) ) )  +  sum_ k  e.  ( ( 0  +  1 ) ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) )  =  ( ( B ^ N )  +  sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) ) )
11485, 99, 1133eqtrd 2660 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) )  =  ( ( B ^ N )  + 
sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) ) )
11584, 114oveq12d 6668 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( sum_ k  e.  ( 0..^ N ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^
( ( N  -  k )  -  1 ) ) )  -  sum_ k  e.  ( 0..^ N ) ( ( A ^ k )  x.  ( B ^
( N  -  k
) ) ) )  =  ( ( sum_ k  e.  ( 0 ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  +  ( ( A ^ ( ( N  -  1 )  +  1 ) )  x.  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) ) )  -  ( ( B ^ N )  +  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) ) ) )
116 fzfid 12772 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
1 ... ( N  - 
1 ) )  e. 
Fin )
1172adantr 481 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  A  e.  CC )
118 elfznn 12370 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 1 ... ( N  -  1 ) )  ->  k  e.  NN )
119118nnnn0d 11351 . . . . . . . . . . . . 13  |-  ( k  e.  ( 1 ... ( N  -  1 ) )  ->  k  e.  NN0 )
120119adantl 482 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  k  e.  NN0 )
121117, 120expcld 13008 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  ( A ^
k )  e.  CC )
1223adantr 481 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  B  e.  CC )
123 fzoval 12471 . . . . . . . . . . . . . . . 16  |-  ( N  e.  ZZ  ->  (
1..^ N )  =  ( 1 ... ( N  -  1 ) ) )
12452, 123syl 17 . . . . . . . . . . . . . . 15  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
1..^ N )  =  ( 1 ... ( N  -  1 ) ) )
125124eleq2d 2687 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
k  e.  ( 1..^ N )  <->  k  e.  ( 1 ... ( N  -  1 ) ) ) )
126 fzonnsub 12493 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 1..^ N )  ->  ( N  -  k )  e.  NN )
127126nnnn0d 11351 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 1..^ N )  ->  ( N  -  k )  e. 
NN0 )
128125, 127syl6bir 244 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
k  e.  ( 1 ... ( N  - 
1 ) )  -> 
( N  -  k
)  e.  NN0 )
)
129128imp 445 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  ( N  -  k )  e.  NN0 )
130122, 129expcld 13008 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  ( B ^
( N  -  k
) )  e.  CC )
131121, 130mulcld 10060 . . . . . . . . . 10  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  k  e.  (
1 ... ( N  - 
1 ) ) )  ->  ( ( A ^ k )  x.  ( B ^ ( N  -  k )
) )  e.  CC )
132116, 131fsumcl 14464 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^ k )  x.  ( B ^ ( N  -  k )
) )  e.  CC )
1332, 105expcld 13008 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A ^ N )  e.  CC )
134 oveq1 6657 . . . . . . . . . . . . . . 15  |-  ( k  =  l  ->  (
k  +  1 )  =  ( l  +  1 ) )
135134oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( k  =  l  ->  ( A ^ ( k  +  1 ) )  =  ( A ^ (
l  +  1 ) ) )
136 oveq2 6658 . . . . . . . . . . . . . . . 16  |-  ( k  =  l  ->  ( N  -  k )  =  ( N  -  l ) )
137136oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( k  =  l  ->  (
( N  -  k
)  -  1 )  =  ( ( N  -  l )  - 
1 ) )
138137oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( k  =  l  ->  ( B ^ ( ( N  -  k )  - 
1 ) )  =  ( B ^ (
( N  -  l
)  -  1 ) ) )
139135, 138oveq12d 6668 . . . . . . . . . . . . 13  |-  ( k  =  l  ->  (
( A ^ (
k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  ( ( A ^ ( l  +  1 ) )  x.  ( B ^ (
( N  -  l
)  -  1 ) ) ) )
140139cbvsumv 14426 . . . . . . . . . . . 12  |-  sum_ k  e.  ( 0 ... (
( N  -  1 )  -  1 ) ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  sum_ l  e.  ( 0 ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
l  +  1 ) )  x.  ( B ^ ( ( N  -  l )  - 
1 ) ) )
141 1m1e0 11089 . . . . . . . . . . . . . . . 16  |-  ( 1  -  1 )  =  0
142141eqcomi 2631 . . . . . . . . . . . . . . 15  |-  0  =  ( 1  -  1 )
143142oveq1i 6660 . . . . . . . . . . . . . 14  |-  ( 0 ... ( ( N  -  1 )  - 
1 ) )  =  ( ( 1  -  1 ) ... (
( N  -  1 )  -  1 ) )
144143a1i 11 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
0 ... ( ( N  -  1 )  - 
1 ) )  =  ( ( 1  -  1 ) ... (
( N  -  1 )  -  1 ) ) )
14536adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  l  e.  (
0 ... ( ( N  -  1 )  - 
1 ) ) )  ->  N  e.  CC )
146 elfznn0 12433 . . . . . . . . . . . . . . . . . 18  |-  ( l  e.  ( 0 ... ( ( N  - 
1 )  -  1 ) )  ->  l  e.  NN0 )
147146nn0cnd 11353 . . . . . . . . . . . . . . . . 17  |-  ( l  e.  ( 0 ... ( ( N  - 
1 )  -  1 ) )  ->  l  e.  CC )
148147adantl 482 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  l  e.  (
0 ... ( ( N  -  1 )  - 
1 ) ) )  ->  l  e.  CC )
149 1cnd 10056 . . . . . . . . . . . . . . . 16  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  l  e.  (
0 ... ( ( N  -  1 )  - 
1 ) ) )  ->  1  e.  CC )
150145, 148, 149subsub4d 10423 . . . . . . . . . . . . . . 15  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  l  e.  (
0 ... ( ( N  -  1 )  - 
1 ) ) )  ->  ( ( N  -  l )  - 
1 )  =  ( N  -  ( l  +  1 ) ) )
151150oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  l  e.  (
0 ... ( ( N  -  1 )  - 
1 ) ) )  ->  ( B ^
( ( N  -  l )  -  1 ) )  =  ( B ^ ( N  -  ( l  +  1 ) ) ) )
152151oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  /\  l  e.  (
0 ... ( ( N  -  1 )  - 
1 ) ) )  ->  ( ( A ^ ( l  +  1 ) )  x.  ( B ^ (
( N  -  l
)  -  1 ) ) )  =  ( ( A ^ (
l  +  1 ) )  x.  ( B ^ ( N  -  ( l  +  1 ) ) ) ) )
153144, 152sumeq12dv 14437 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ l  e.  ( 0 ... (
( N  -  1 )  -  1 ) ) ( ( A ^ ( l  +  1 ) )  x.  ( B ^ (
( N  -  l
)  -  1 ) ) )  =  sum_ l  e.  ( (
1  -  1 ) ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
l  +  1 ) )  x.  ( B ^ ( N  -  ( l  +  1 ) ) ) ) )
154140, 153syl5eq 2668 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0 ... (
( N  -  1 )  -  1 ) ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  sum_ l  e.  ( (
1  -  1 ) ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
l  +  1 ) )  x.  ( B ^ ( N  -  ( l  +  1 ) ) ) ) )
155 1zzd 11408 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  1  e.  ZZ )
156 peano2zm 11420 . . . . . . . . . . . . 13  |-  ( N  e.  ZZ  ->  ( N  -  1 )  e.  ZZ )
15752, 156syl 17 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( N  -  1 )  e.  ZZ )
158 oveq2 6658 . . . . . . . . . . . . 13  |-  ( k  =  ( l  +  1 )  ->  ( A ^ k )  =  ( A ^ (
l  +  1 ) ) )
159 oveq2 6658 . . . . . . . . . . . . . 14  |-  ( k  =  ( l  +  1 )  ->  ( N  -  k )  =  ( N  -  ( l  +  1 ) ) )
160159oveq2d 6666 . . . . . . . . . . . . 13  |-  ( k  =  ( l  +  1 )  ->  ( B ^ ( N  -  k ) )  =  ( B ^ ( N  -  ( l  +  1 ) ) ) )
161158, 160oveq12d 6668 . . . . . . . . . . . 12  |-  ( k  =  ( l  +  1 )  ->  (
( A ^ k
)  x.  ( B ^ ( N  -  k ) ) )  =  ( ( A ^ ( l  +  1 ) )  x.  ( B ^ ( N  -  ( l  +  1 ) ) ) ) )
162155, 155, 157, 131, 161fsumshftm 14513 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^ k )  x.  ( B ^ ( N  -  k )
) )  =  sum_ l  e.  ( (
1  -  1 ) ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
l  +  1 ) )  x.  ( B ^ ( N  -  ( l  +  1 ) ) ) ) )
163154, 162eqtr4d 2659 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  sum_ k  e.  ( 0 ... (
( N  -  1 )  -  1 ) ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) )
164 npcan1 10455 . . . . . . . . . . . . . 14  |-  ( N  e.  CC  ->  (
( N  -  1 )  +  1 )  =  N )
16536, 164syl 17 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( N  -  1 )  +  1 )  =  N )
166165oveq2d 6666 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A ^ ( ( N  -  1 )  +  1 ) )  =  ( A ^ N
) )
167 peano2cnm 10347 . . . . . . . . . . . . . . . . . 18  |-  ( N  e.  CC  ->  ( N  -  1 )  e.  CC )
16835, 167syl 17 . . . . . . . . . . . . . . . . 17  |-  ( N  e.  NN  ->  ( N  -  1 )  e.  CC )
169 1cnd 10056 . . . . . . . . . . . . . . . . 17  |-  ( N  e.  NN  ->  1  e.  CC )
17035, 168, 169sub32d 10424 . . . . . . . . . . . . . . . 16  |-  ( N  e.  NN  ->  (
( N  -  ( N  -  1 ) )  -  1 )  =  ( ( N  -  1 )  -  ( N  -  1
) ) )
171168subidd 10380 . . . . . . . . . . . . . . . 16  |-  ( N  e.  NN  ->  (
( N  -  1 )  -  ( N  -  1 ) )  =  0 )
172170, 171eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( N  e.  NN  ->  (
( N  -  ( N  -  1 ) )  -  1 )  =  0 )
1731723ad2ant1 1082 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( N  -  ( N  -  1 ) )  -  1 )  =  0 )
174173oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ ( ( N  -  ( N  - 
1 ) )  - 
1 ) )  =  ( B ^ 0 ) )
175 exp0 12864 . . . . . . . . . . . . . 14  |-  ( B  e.  CC  ->  ( B ^ 0 )  =  1 )
1761753ad2ant3 1084 . . . . . . . . . . . . 13  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ 0 )  =  1 )
177174, 176eqtrd 2656 . . . . . . . . . . . 12  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ ( ( N  -  ( N  - 
1 ) )  - 
1 ) )  =  1 )
178166, 177oveq12d 6668 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ (
( N  -  1 )  +  1 ) )  x.  ( B ^ ( ( N  -  ( N  - 
1 ) )  - 
1 ) ) )  =  ( ( A ^ N )  x.  1 ) )
179133mulid1d 10057 . . . . . . . . . . 11  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ N
)  x.  1 )  =  ( A ^ N ) )
180178, 179eqtrd 2656 . . . . . . . . . 10  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ (
( N  -  1 )  +  1 ) )  x.  ( B ^ ( ( N  -  ( N  - 
1 ) )  - 
1 ) ) )  =  ( A ^ N ) )
181163, 180oveq12d 6668 . . . . . . . . 9  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( sum_ k  e.  ( 0 ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  +  ( ( A ^ ( ( N  -  1 )  +  1 ) )  x.  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) ) )  =  ( sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) )  +  ( A ^ N ) ) )
182132, 133, 181comraddd 10250 . . . . . . . 8  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( sum_ k  e.  ( 0 ... ( ( N  -  1 )  - 
1 ) ) ( ( A ^ (
k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  +  ( ( A ^ ( ( N  -  1 )  +  1 ) )  x.  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) ) )  =  ( ( A ^ N )  +  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) ) )
183182oveq1d 6665 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( sum_ k  e.  ( 0 ... ( ( N  -  1 )  -  1 ) ) ( ( A ^
( k  +  1 ) )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  +  ( ( A ^ ( ( N  -  1 )  +  1 ) )  x.  ( B ^ (
( N  -  ( N  -  1 ) )  -  1 ) ) ) )  -  ( ( B ^ N )  +  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) ) )  =  ( ( ( A ^ N )  +  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) )  -  ( ( B ^ N )  +  sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) ) ) )
184133, 106, 132pnpcan2d 10430 . . . . . . 7  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( ( A ^ N )  +  sum_ k  e.  ( 1 ... ( N  - 
1 ) ) ( ( A ^ k
)  x.  ( B ^ ( N  -  k ) ) ) )  -  ( ( B ^ N )  +  sum_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( A ^
k )  x.  ( B ^ ( N  -  k ) ) ) ) )  =  ( ( A ^ N
)  -  ( B ^ N ) ) )
185115, 183, 1843eqtrd 2660 . . . . . 6  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  ( sum_ k  e.  ( 0..^ N ) ( ( A ^ ( k  +  1 ) )  x.  ( B ^
( ( N  -  k )  -  1 ) ) )  -  sum_ k  e.  ( 0..^ N ) ( ( A ^ k )  x.  ( B ^
( N  -  k
) ) ) )  =  ( ( A ^ N )  -  ( B ^ N ) ) )
18618, 50, 1853eqtrrd 2661 . . . . 5  |-  ( ( N  e.  NN  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ N
)  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) )
1871863exp 1264 . . . 4  |-  ( N  e.  NN  ->  ( A  e.  CC  ->  ( B  e.  CC  ->  ( ( A ^ N
)  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) ) ) )
188 simp2 1062 . . . . . . . 8  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  A  e.  CC )
189 simp3 1063 . . . . . . . 8  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  B  e.  CC )
190188, 189subcld 10392 . . . . . . 7  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A  -  B
)  e.  CC )
191190mul01d 10235 . . . . . 6  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( ( A  -  B )  x.  0 )  =  0 )
192 oveq2 6658 . . . . . . . . . . 11  |-  ( N  =  0  ->  (
0..^ N )  =  ( 0..^ 0 ) )
193 fzo0 12492 . . . . . . . . . . 11  |-  ( 0..^ 0 )  =  (/)
194192, 193syl6eq 2672 . . . . . . . . . 10  |-  ( N  =  0  ->  (
0..^ N )  =  (/) )
195194sumeq1d 14431 . . . . . . . . 9  |-  ( N  =  0  ->  sum_ k  e.  ( 0..^ N ) ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  sum_ k  e.  (/)  ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )
1961953ad2ant1 1082 . . . . . . . 8  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  -> 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  sum_ k  e.  (/)  ( ( A ^
k )  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) )
197 sum0 14452 . . . . . . . 8  |-  sum_ k  e.  (/)  ( ( A ^ k )  x.  ( B ^ (
( N  -  k
)  -  1 ) ) )  =  0
198196, 197syl6eq 2672 . . . . . . 7  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  -> 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) )  =  0 )
199198oveq2d 6666 . . . . . 6  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( ( A  -  B )  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^ k )  x.  ( B ^
( ( N  -  k )  -  1 ) ) ) )  =  ( ( A  -  B )  x.  0 ) )
200 oveq2 6658 . . . . . . . . . 10  |-  ( N  =  0  ->  ( A ^ N )  =  ( A ^ 0 ) )
2012003ad2ant1 1082 . . . . . . . . 9  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A ^ N
)  =  ( A ^ 0 ) )
202 exp0 12864 . . . . . . . . . 10  |-  ( A  e.  CC  ->  ( A ^ 0 )  =  1 )
2032023ad2ant2 1083 . . . . . . . . 9  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A ^ 0 )  =  1 )
204201, 203eqtrd 2656 . . . . . . . 8  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( A ^ N
)  =  1 )
205 oveq2 6658 . . . . . . . . . 10  |-  ( N  =  0  ->  ( B ^ N )  =  ( B ^ 0 ) )
2062053ad2ant1 1082 . . . . . . . . 9  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ N
)  =  ( B ^ 0 ) )
2071753ad2ant3 1084 . . . . . . . . 9  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ 0 )  =  1 )
208206, 207eqtrd 2656 . . . . . . . 8  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( B ^ N
)  =  1 )
209204, 208oveq12d 6668 . . . . . . 7  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( ( A ^ N )  -  ( B ^ N ) )  =  ( 1  -  1 ) )
210209, 141syl6eq 2672 . . . . . 6  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( ( A ^ N )  -  ( B ^ N ) )  =  0 )
211191, 199, 2103eqtr4rd 2667 . . . . 5  |-  ( ( N  =  0  /\  A  e.  CC  /\  B  e.  CC )  ->  ( ( A ^ N )  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) )
2122113exp 1264 . . . 4  |-  ( N  =  0  ->  ( A  e.  CC  ->  ( B  e.  CC  ->  ( ( A ^ N
)  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) ) ) )
213187, 212jaoi 394 . . 3  |-  ( ( N  e.  NN  \/  N  =  0 )  ->  ( A  e.  CC  ->  ( B  e.  CC  ->  ( ( A ^ N )  -  ( B ^ N ) )  =  ( ( A  -  B )  x.  sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) ) ) )
2141, 213sylbi 207 . 2  |-  ( N  e.  NN0  ->  ( A  e.  CC  ->  ( B  e.  CC  ->  ( ( A ^ N
)  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) ) ) )
2152143imp 1256 1  |-  ( ( N  e.  NN0  /\  A  e.  CC  /\  B  e.  CC )  ->  (
( A ^ N
)  -  ( B ^ N ) )  =  ( ( A  -  B )  x. 
sum_ k  e.  ( 0..^ N ) ( ( A ^ k
)  x.  ( B ^ ( ( N  -  k )  - 
1 ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    \/ wo 383    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990   (/)c0 3915   ` cfv 5888  (class class class)co 6650   Fincfn 7955   CCcc 9934   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    - cmin 10266   NNcn 11020   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   ...cfz 12326  ..^cfzo 12465   ^cexp 12860   sum_csu 14416
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-oadd 7564  df-er 7742  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-sup 8348  df-oi 8415  df-card 8765  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-n0 11293  df-z 11378  df-uz 11688  df-rp 11833  df-fz 12327  df-fzo 12466  df-seq 12802  df-exp 12861  df-hash 13118  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-clim 14219  df-sum 14417
This theorem is referenced by:  pwm1geoserALT  41502  2pwp1prm  41503
  Copyright terms: Public domain W3C validator