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

Theorem sumss 12438
Description: Change the index set to a subset in an upper integer sum. (Contributed by Mario Carneiro, 21-Apr-2014.)
Hypotheses
Ref Expression
sumss.1  |-  ( ph  ->  A  C_  B )
sumss.2  |-  ( (
ph  /\  k  e.  A )  ->  C  e.  CC )
sumss.3  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  C  = 
0 )
sumss.4  |-  ( ph  ->  B  C_  ( ZZ>= `  M ) )
Assertion
Ref Expression
sumss  |-  ( ph  -> 
sum_ k  e.  A  C  =  sum_ k  e.  B  C )
Distinct variable groups:    A, k    B, k    ph, k    k, M
Allowed substitution hint:    C( k)

Proof of Theorem sumss
Dummy variable  m is distinct from all other variables.
StepHypRef Expression
1 eqid 2380 . . . . 5  |-  ( ZZ>= `  M )  =  (
ZZ>= `  M )
2 simpr 448 . . . . 5  |-  ( (
ph  /\  M  e.  ZZ )  ->  M  e.  ZZ )
3 sumss.1 . . . . . . 7  |-  ( ph  ->  A  C_  B )
4 sumss.4 . . . . . . 7  |-  ( ph  ->  B  C_  ( ZZ>= `  M ) )
53, 4sstrd 3294 . . . . . 6  |-  ( ph  ->  A  C_  ( ZZ>= `  M ) )
65adantr 452 . . . . 5  |-  ( (
ph  /\  M  e.  ZZ )  ->  A  C_  ( ZZ>= `  M )
)
7 nfcv 2516 . . . . . . 7  |-  F/_ k
m
8 nffvmpt1 5669 . . . . . . . 8  |-  F/_ k
( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  m )
9 nfv 1626 . . . . . . . . 9  |-  F/ k  m  e.  A
10 nffvmpt1 5669 . . . . . . . . 9  |-  F/_ k
( ( k  e.  A  |->  C ) `  m )
11 nfcv 2516 . . . . . . . . 9  |-  F/_ k
0
129, 10, 11nfif 3699 . . . . . . . 8  |-  F/_ k if ( m  e.  A ,  ( ( k  e.  A  |->  C ) `
 m ) ,  0 )
138, 12nfeq 2523 . . . . . . 7  |-  F/ k ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  m )  =  if ( m  e.  A ,  ( ( k  e.  A  |->  C ) `
 m ) ,  0 )
14 fveq2 5661 . . . . . . . 8  |-  ( k  =  m  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  ( ( k  e.  ( ZZ>= `  M
)  |->  if ( k  e.  A ,  C ,  0 ) ) `
 m ) )
15 eleq1 2440 . . . . . . . . 9  |-  ( k  =  m  ->  (
k  e.  A  <->  m  e.  A ) )
16 fveq2 5661 . . . . . . . . 9  |-  ( k  =  m  ->  (
( k  e.  A  |->  C ) `  k
)  =  ( ( k  e.  A  |->  C ) `  m ) )
17 eqidd 2381 . . . . . . . . 9  |-  ( k  =  m  ->  0  =  0 )
1815, 16, 17ifbieq12d 3697 . . . . . . . 8  |-  ( k  =  m  ->  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 )  =  if ( m  e.  A ,  ( ( k  e.  A  |->  C ) `
 m ) ,  0 ) )
1914, 18eqeq12d 2394 . . . . . . 7  |-  ( k  =  m  ->  (
( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  k )  =  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 )  <->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  A ,  ( ( k  e.  A  |->  C ) `  m
) ,  0 ) ) )
20 eqid 2380 . . . . . . . . . . 11  |-  ( k  e.  ( ZZ>= `  M
)  |->  if ( k  e.  A ,  C ,  0 ) )  =  ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) )
2120fvmpt2i 5743 . . . . . . . . . 10  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  (  _I  `  if ( k  e.  A ,  C ,  0 ) ) )
22 iftrue 3681 . . . . . . . . . . 11  |-  ( k  e.  A  ->  if ( k  e.  A ,  C ,  0 )  =  C )
2322fveq2d 5665 . . . . . . . . . 10  |-  ( k  e.  A  ->  (  _I  `  if ( k  e.  A ,  C ,  0 ) )  =  (  _I  `  C ) )
2421, 23sylan9eq 2432 . . . . . . . . 9  |-  ( ( k  e.  ( ZZ>= `  M )  /\  k  e.  A )  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  (  _I  `  C ) )
25 iftrue 3681 . . . . . . . . . . 11  |-  ( k  e.  A  ->  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 )  =  ( ( k  e.  A  |->  C ) `  k
) )
26 eqid 2380 . . . . . . . . . . . 12  |-  ( k  e.  A  |->  C )  =  ( k  e.  A  |->  C )
2726fvmpt2i 5743 . . . . . . . . . . 11  |-  ( k  e.  A  ->  (
( k  e.  A  |->  C ) `  k
)  =  (  _I 
`  C ) )
2825, 27eqtrd 2412 . . . . . . . . . 10  |-  ( k  e.  A  ->  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 )  =  (  _I  `  C ) )
2928adantl 453 . . . . . . . . 9  |-  ( ( k  e.  ( ZZ>= `  M )  /\  k  e.  A )  ->  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 )  =  (  _I  `  C ) )
3024, 29eqtr4d 2415 . . . . . . . 8  |-  ( ( k  e.  ( ZZ>= `  M )  /\  k  e.  A )  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `  k
) ,  0 ) )
31 iffalse 3682 . . . . . . . . . . . 12  |-  ( -.  k  e.  A  ->  if ( k  e.  A ,  C ,  0 )  =  0 )
3231fveq2d 5665 . . . . . . . . . . 11  |-  ( -.  k  e.  A  -> 
(  _I  `  if ( k  e.  A ,  C ,  0 ) )  =  (  _I 
`  0 ) )
33 0z 10218 . . . . . . . . . . . 12  |-  0  e.  ZZ
34 fvi 5715 . . . . . . . . . . . 12  |-  ( 0  e.  ZZ  ->  (  _I  `  0 )  =  0 )
3533, 34ax-mp 8 . . . . . . . . . . 11  |-  (  _I 
`  0 )  =  0
3632, 35syl6eq 2428 . . . . . . . . . 10  |-  ( -.  k  e.  A  -> 
(  _I  `  if ( k  e.  A ,  C ,  0 ) )  =  0 )
3721, 36sylan9eq 2432 . . . . . . . . 9  |-  ( ( k  e.  ( ZZ>= `  M )  /\  -.  k  e.  A )  ->  ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  k )  =  0 )
38 iffalse 3682 . . . . . . . . . 10  |-  ( -.  k  e.  A  ->  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 )  =  0 )
3938adantl 453 . . . . . . . . 9  |-  ( ( k  e.  ( ZZ>= `  M )  /\  -.  k  e.  A )  ->  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `  k ) ,  0 )  =  0 )
4037, 39eqtr4d 2415 . . . . . . . 8  |-  ( ( k  e.  ( ZZ>= `  M )  /\  -.  k  e.  A )  ->  ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  k )  =  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `
 k ) ,  0 ) )
4130, 40pm2.61dan 767 . . . . . . 7  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  if ( k  e.  A ,  ( ( k  e.  A  |->  C ) `  k
) ,  0 ) )
427, 13, 19, 41vtoclgaf 2952 . . . . . 6  |-  ( m  e.  ( ZZ>= `  M
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  A ,  ( ( k  e.  A  |->  C ) `  m
) ,  0 ) )
4342adantl 453 . . . . 5  |-  ( ( ( ph  /\  M  e.  ZZ )  /\  m  e.  ( ZZ>= `  M )
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  A ,  ( ( k  e.  A  |->  C ) `  m
) ,  0 ) )
44 sumss.2 . . . . . . . 8  |-  ( (
ph  /\  k  e.  A )  ->  C  e.  CC )
4544, 26fmptd 5825 . . . . . . 7  |-  ( ph  ->  ( k  e.  A  |->  C ) : A --> CC )
4645adantr 452 . . . . . 6  |-  ( (
ph  /\  M  e.  ZZ )  ->  ( k  e.  A  |->  C ) : A --> CC )
4746ffvelrnda 5802 . . . . 5  |-  ( ( ( ph  /\  M  e.  ZZ )  /\  m  e.  A )  ->  (
( k  e.  A  |->  C ) `  m
)  e.  CC )
481, 2, 6, 43, 47zsum 12432 . . . 4  |-  ( (
ph  /\  M  e.  ZZ )  ->  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  (  ~~>  `  seq  M (  +  ,  ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) ) ) )
494adantr 452 . . . . 5  |-  ( (
ph  /\  M  e.  ZZ )  ->  B  C_  ( ZZ>= `  M )
)
50 nfv 1626 . . . . . . . . 9  |-  F/ k
ph
51 nfv 1626 . . . . . . . . . . 11  |-  F/ k  m  e.  B
52 nffvmpt1 5669 . . . . . . . . . . 11  |-  F/_ k
( ( k  e.  B  |->  C ) `  m )
5351, 52, 11nfif 3699 . . . . . . . . . 10  |-  F/_ k if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `
 m ) ,  0 )
548, 53nfeq 2523 . . . . . . . . 9  |-  F/ k ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `
 m ) ,  0 )
5550, 54nfim 1822 . . . . . . . 8  |-  F/ k ( ph  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `  m
) ,  0 ) )
56 eleq1 2440 . . . . . . . . . . 11  |-  ( k  =  m  ->  (
k  e.  B  <->  m  e.  B ) )
57 fveq2 5661 . . . . . . . . . . 11  |-  ( k  =  m  ->  (
( k  e.  B  |->  C ) `  k
)  =  ( ( k  e.  B  |->  C ) `  m ) )
5856, 57, 17ifbieq12d 3697 . . . . . . . . . 10  |-  ( k  =  m  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `
 m ) ,  0 ) )
5914, 58eqeq12d 2394 . . . . . . . . 9  |-  ( k  =  m  ->  (
( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  k )  =  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  <->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `  m
) ,  0 ) ) )
6059imbi2d 308 . . . . . . . 8  |-  ( k  =  m  ->  (
( ph  ->  ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `  k
) ,  0 ) )  <->  ( ph  ->  ( ( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `  m
) ,  0 ) ) ) )
6124adantll 695 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  k  e.  A )  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  (  _I  `  C ) )
623adantr 452 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  A  C_  B
)
6362sselda 3284 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  k  e.  A )  ->  k  e.  B )
64 iftrue 3681 . . . . . . . . . . . . 13  |-  ( k  e.  B  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  ( ( k  e.  B  |->  C ) `  k
) )
65 eqid 2380 . . . . . . . . . . . . . 14  |-  ( k  e.  B  |->  C )  =  ( k  e.  B  |->  C )
6665fvmpt2i 5743 . . . . . . . . . . . . 13  |-  ( k  e.  B  ->  (
( k  e.  B  |->  C ) `  k
)  =  (  _I 
`  C ) )
6764, 66eqtrd 2412 . . . . . . . . . . . 12  |-  ( k  e.  B  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  (  _I  `  C ) )
6863, 67syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  k  e.  A )  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  (  _I  `  C ) )
6961, 68eqtr4d 2415 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  k  e.  A )  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `  k
) ,  0 ) )
7037adantll 695 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  -.  k  e.  A )  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  0 )
7167ad2antrl 709 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( k  e.  B  /\  -.  k  e.  A ) )  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  (  _I  `  C ) )
72 eldif 3266 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( B  \  A )  <->  ( k  e.  B  /\  -.  k  e.  A ) )
73 sumss.3 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  C  = 
0 )
7473fveq2d 5665 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  (  _I  `  C )  =  (  _I  `  0 ) )
75 0cn 9010 . . . . . . . . . . . . . . . . . . 19  |-  0  e.  CC
76 fvi 5715 . . . . . . . . . . . . . . . . . . 19  |-  ( 0  e.  CC  ->  (  _I  `  0 )  =  0 )
7775, 76ax-mp 8 . . . . . . . . . . . . . . . . . 18  |-  (  _I 
`  0 )  =  0
7874, 77syl6eq 2428 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  (  _I  `  C )  =  0 )
7972, 78sylan2br 463 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( k  e.  B  /\  -.  k  e.  A ) )  -> 
(  _I  `  C
)  =  0 )
8071, 79eqtrd 2412 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( k  e.  B  /\  -.  k  e.  A ) )  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  0 )
8180expr 599 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  B )  ->  ( -.  k  e.  A  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `  k ) ,  0 )  =  0 ) )
82 iffalse 3682 . . . . . . . . . . . . . . . 16  |-  ( -.  k  e.  B  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  0 )
8382adantl 453 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  -.  k  e.  B )  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  0 )
8483a1d 23 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  -.  k  e.  B )  ->  ( -.  k  e.  A  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `  k ) ,  0 )  =  0 ) )
8581, 84pm2.61dan 767 . . . . . . . . . . . . 13  |-  ( ph  ->  ( -.  k  e.  A  ->  if (
k  e.  B , 
( ( k  e.  B  |->  C ) `  k ) ,  0 )  =  0 ) )
8685adantr 452 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( -.  k  e.  A  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  0 ) )
8786imp 419 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  -.  k  e.  A )  ->  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 )  =  0 )
8870, 87eqtr4d 2415 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  -.  k  e.  A )  ->  (
( k  e.  (
ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `  k
) ,  0 ) )
8969, 88pm2.61dan 767 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  k )  =  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `  k
) ,  0 ) )
9089expcom 425 . . . . . . . 8  |-  ( k  e.  ( ZZ>= `  M
)  ->  ( ph  ->  ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  k )  =  if ( k  e.  B ,  ( ( k  e.  B  |->  C ) `
 k ) ,  0 ) ) )
917, 55, 60, 90vtoclgaf 2952 . . . . . . 7  |-  ( m  e.  ( ZZ>= `  M
)  ->  ( ph  ->  ( ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C , 
0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `
 m ) ,  0 ) ) )
9291impcom 420 . . . . . 6  |-  ( (
ph  /\  m  e.  ( ZZ>= `  M )
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `  m
) ,  0 ) )
9392adantlr 696 . . . . 5  |-  ( ( ( ph  /\  M  e.  ZZ )  /\  m  e.  ( ZZ>= `  M )
)  ->  ( (
k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) `  m )  =  if ( m  e.  B ,  ( ( k  e.  B  |->  C ) `  m
) ,  0 ) )
9444ex 424 . . . . . . . . . 10  |-  ( ph  ->  ( k  e.  A  ->  C  e.  CC ) )
9594adantr 452 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B )  ->  (
k  e.  A  ->  C  e.  CC )
)
9673, 75syl6eqel 2468 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  C  e.  CC )
9772, 96sylan2br 463 . . . . . . . . . 10  |-  ( (
ph  /\  ( k  e.  B  /\  -.  k  e.  A ) )  ->  C  e.  CC )
9897expr 599 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  B )  ->  ( -.  k  e.  A  ->  C  e.  CC ) )
9995, 98pm2.61d 152 . . . . . . . 8  |-  ( (
ph  /\  k  e.  B )  ->  C  e.  CC )
10099, 65fmptd 5825 . . . . . . 7  |-  ( ph  ->  ( k  e.  B  |->  C ) : B --> CC )
101100adantr 452 . . . . . 6  |-  ( (
ph  /\  M  e.  ZZ )  ->  ( k  e.  B  |->  C ) : B --> CC )
102101ffvelrnda 5802 . . . . 5  |-  ( ( ( ph  /\  M  e.  ZZ )  /\  m  e.  B )  ->  (
( k  e.  B  |->  C ) `  m
)  e.  CC )
1031, 2, 49, 93, 102zsum 12432 . . . 4  |-  ( (
ph  /\  M  e.  ZZ )  ->  sum_ m  e.  B  ( (
k  e.  B  |->  C ) `  m )  =  (  ~~>  `  seq  M (  +  ,  ( k  e.  ( ZZ>= `  M )  |->  if ( k  e.  A ,  C ,  0 ) ) ) ) )
10448, 103eqtr4d 2415 . . 3  |-  ( (
ph  /\  M  e.  ZZ )  ->  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  sum_ m  e.  B  ( ( k  e.  B  |->  C ) `  m ) )
105 sumfc 12423 . . 3  |-  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  sum_ k  e.  A  C
106 sumfc 12423 . . 3  |-  sum_ m  e.  B  ( (
k  e.  B  |->  C ) `  m )  =  sum_ k  e.  B  C
107104, 105, 1063eqtr3g 2435 . 2  |-  ( (
ph  /\  M  e.  ZZ )  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C
)
1083adantr 452 . . . . . 6  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  A  C_  B )
109 uzf 10416 . . . . . . . . . . . 12  |-  ZZ>= : ZZ --> ~P ZZ
110109fdmi 5529 . . . . . . . . . . 11  |-  dom  ZZ>=  =  ZZ
111110eleq2i 2444 . . . . . . . . . 10  |-  ( M  e.  dom  ZZ>=  <->  M  e.  ZZ )
112 ndmfv 5688 . . . . . . . . . 10  |-  ( -.  M  e.  dom  ZZ>=  -> 
( ZZ>= `  M )  =  (/) )
113111, 112sylnbir 299 . . . . . . . . 9  |-  ( -.  M  e.  ZZ  ->  (
ZZ>= `  M )  =  (/) )
114113sseq2d 3312 . . . . . . . 8  |-  ( -.  M  e.  ZZ  ->  ( B  C_  ( ZZ>= `  M )  <->  B  C_  (/) ) )
1154, 114syl5ib 211 . . . . . . 7  |-  ( -.  M  e.  ZZ  ->  (
ph  ->  B  C_  (/) ) )
116115impcom 420 . . . . . 6  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  B  C_  (/) )
117108, 116sstrd 3294 . . . . 5  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  A  C_  (/) )
118 ss0 3594 . . . . 5  |-  ( A 
C_  (/)  ->  A  =  (/) )
119117, 118syl 16 . . . 4  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  A  =  (/) )
120 ss0 3594 . . . . 5  |-  ( B 
C_  (/)  ->  B  =  (/) )
121116, 120syl 16 . . . 4  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  B  =  (/) )
122119, 121eqtr4d 2415 . . 3  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  A  =  B )
123122sumeq1d 12415 . 2  |-  ( (
ph  /\  -.  M  e.  ZZ )  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C
)
124107, 123pm2.61dan 767 1  |-  ( ph  -> 
sum_ k  e.  A  C  =  sum_ k  e.  B  C )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 359    = wceq 1649    e. wcel 1717    \ cdif 3253    C_ wss 3256   (/)c0 3564   ifcif 3675   ~Pcpw 3735    e. cmpt 4200    _I cid 4427   dom cdm 4811   -->wf 5383   ` cfv 5387   CCcc 8914   0cc0 8916    + caddc 8919   ZZcz 10207   ZZ>=cuz 10413    seq cseq 11243    ~~> cli 12198   sum_csu 12399
This theorem is referenced by:  fsumss  12439  sumss2  12440  binomlem  12528
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2361  ax-rep 4254  ax-sep 4264  ax-nul 4272  ax-pow 4311  ax-pr 4337  ax-un 4634  ax-inf2 7522  ax-cnex 8972  ax-resscn 8973  ax-1cn 8974  ax-icn 8975  ax-addcl 8976  ax-addrcl 8977  ax-mulcl 8978  ax-mulrcl 8979  ax-mulcom 8980  ax-addass 8981  ax-mulass 8982  ax-distr 8983  ax-i2m1 8984  ax-1ne0 8985  ax-1rid 8986  ax-rnegex 8987  ax-rrecex 8988  ax-cnre 8989  ax-pre-lttri 8990  ax-pre-lttrn 8991  ax-pre-ltadd 8992  ax-pre-mulgt0 8993
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2235  df-mo 2236  df-clab 2367  df-cleq 2373  df-clel 2376  df-nfc 2505  df-ne 2545  df-nel 2546  df-ral 2647  df-rex 2648  df-reu 2649  df-rmo 2650  df-rab 2651  df-v 2894  df-sbc 3098  df-csb 3188  df-dif 3259  df-un 3261  df-in 3263  df-ss 3270  df-pss 3272  df-nul 3565  df-if 3676  df-pw 3737  df-sn 3756  df-pr 3757  df-tp 3758  df-op 3759  df-uni 3951  df-int 3986  df-iun 4030  df-br 4147  df-opab 4201  df-mpt 4202  df-tr 4237  df-eprel 4428  df-id 4432  df-po 4437  df-so 4438  df-fr 4475  df-se 4476  df-we 4477  df-ord 4518  df-on 4519  df-lim 4520  df-suc 4521  df-om 4779  df-xp 4817  df-rel 4818  df-cnv 4819  df-co 4820  df-dm 4821  df-rn 4822  df-res 4823  df-ima 4824  df-iota 5351  df-fun 5389  df-fn 5390  df-f 5391  df-f1 5392  df-fo 5393  df-f1o 5394  df-fv 5395  df-isom 5396  df-ov 6016  df-oprab 6017  df-mpt2 6018  df-1st 6281  df-2nd 6282  df-riota 6478  df-recs 6562  df-rdg 6597  df-1o 6653  df-oadd 6657  df-er 6834  df-en 7039  df-dom 7040  df-sdom 7041  df-fin 7042  df-oi 7405  df-card 7752  df-pnf 9048  df-mnf 9049  df-xr 9050  df-ltxr 9051  df-le 9052  df-sub 9218  df-neg 9219  df-div 9603  df-nn 9926  df-2 9983  df-n0 10147  df-z 10208  df-uz 10414  df-rp 10538  df-fz 10969  df-fzo 11059  df-seq 11244  df-exp 11303  df-hash 11539  df-cj 11824  df-re 11825  df-im 11826  df-sqr 11960  df-abs 11961  df-clim 12202  df-sum 12400
  Copyright terms: Public domain W3C validator