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

Theorem fsumss 13791
Description: Change the index set to a subset in a finite 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 )
fsumss.4  |-  ( ph  ->  B  e.  Fin )
Assertion
Ref Expression
fsumss  |-  ( ph  -> 
sum_ k  e.  A  C  =  sum_ k  e.  B  C )
Distinct variable groups:    A, k    B, k    ph, k
Allowed substitution hint:    C( k)

Proof of Theorem fsumss
Dummy variables  f  m  n are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sumss.1 . . . . 5  |-  ( ph  ->  A  C_  B )
21adantr 467 . . . 4  |-  ( (
ph  /\  B  =  (/) )  ->  A  C_  B
)
3 sumss.2 . . . . 5  |-  ( (
ph  /\  k  e.  A )  ->  C  e.  CC )
43adantlr 721 . . . 4  |-  ( ( ( ph  /\  B  =  (/) )  /\  k  e.  A )  ->  C  e.  CC )
5 sumss.3 . . . . 5  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  C  = 
0 )
65adantlr 721 . . . 4  |-  ( ( ( ph  /\  B  =  (/) )  /\  k  e.  ( B  \  A
) )  ->  C  =  0 )
7 simpr 463 . . . . 5  |-  ( (
ph  /\  B  =  (/) )  ->  B  =  (/) )
8 0ss 3763 . . . . 5  |-  (/)  C_  ( ZZ>=
`  0 )
97, 8syl6eqss 3482 . . . 4  |-  ( (
ph  /\  B  =  (/) )  ->  B  C_  ( ZZ>=
`  0 ) )
102, 4, 6, 9sumss 13790 . . 3  |-  ( (
ph  /\  B  =  (/) )  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C
)
1110ex 436 . 2  |-  ( ph  ->  ( B  =  (/)  -> 
sum_ k  e.  A  C  =  sum_ k  e.  B  C ) )
12 cnvimass 5188 . . . . . . . . 9  |-  ( `' f " A ) 
C_  dom  f
13 simprr 766 . . . . . . . . . . 11  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B )
14 f1of 5814 . . . . . . . . . . 11  |-  ( f : ( 1 ... ( # `  B
) ) -1-1-onto-> B  ->  f :
( 1 ... ( # `
 B ) ) --> B )
1513, 14syl 17 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  f : ( 1 ... ( # `  B
) ) --> B )
16 fdm 5733 . . . . . . . . . 10  |-  ( f : ( 1 ... ( # `  B
) ) --> B  ->  dom  f  =  (
1 ... ( # `  B
) ) )
1715, 16syl 17 . . . . . . . . 9  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  dom  f  =  ( 1 ... ( # `  B
) ) )
1812, 17syl5sseq 3480 . . . . . . . 8  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  ( `' f " A
)  C_  ( 1 ... ( # `  B
) ) )
19 ffn 5728 . . . . . . . . . . . . 13  |-  ( f : ( 1 ... ( # `  B
) ) --> B  -> 
f  Fn  ( 1 ... ( # `  B
) ) )
2015, 19syl 17 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  f  Fn  ( 1 ... ( # `
 B ) ) )
21 elpreima 6002 . . . . . . . . . . . 12  |-  ( f  Fn  ( 1 ... ( # `  B
) )  ->  (
n  e.  ( `' f " A )  <-> 
( n  e.  ( 1 ... ( # `  B ) )  /\  ( f `  n
)  e.  A ) ) )
2220, 21syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
n  e.  ( `' f " A )  <-> 
( n  e.  ( 1 ... ( # `  B ) )  /\  ( f `  n
)  e.  A ) ) )
2315ffvelrnda 6022 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( 1 ... ( # `  B
) ) )  -> 
( f `  n
)  e.  B )
2423ex 436 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
n  e.  ( 1 ... ( # `  B
) )  ->  (
f `  n )  e.  B ) )
2524adantrd 470 . . . . . . . . . . 11  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
( n  e.  ( 1 ... ( # `  B ) )  /\  ( f `  n
)  e.  A )  ->  ( f `  n )  e.  B
) )
2622, 25sylbid 219 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
n  e.  ( `' f " A )  ->  ( f `  n )  e.  B
) )
2726imp 431 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( `' f " A ) )  ->  ( f `  n )  e.  B
)
283ex 436 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( k  e.  A  ->  C  e.  CC ) )
2928adantr 467 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  B )  ->  (
k  e.  A  ->  C  e.  CC )
)
30 eldif 3414 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( B  \  A )  <->  ( k  e.  B  /\  -.  k  e.  A ) )
31 0cn 9635 . . . . . . . . . . . . . . . 16  |-  0  e.  CC
325, 31syl6eqel 2537 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  C  e.  CC )
3330, 32sylan2br 479 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( k  e.  B  /\  -.  k  e.  A ) )  ->  C  e.  CC )
3433expr 620 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  B )  ->  ( -.  k  e.  A  ->  C  e.  CC ) )
3529, 34pm2.61d 162 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  B )  ->  C  e.  CC )
36 eqid 2451 . . . . . . . . . . . 12  |-  ( k  e.  B  |->  C )  =  ( k  e.  B  |->  C )
3735, 36fmptd 6046 . . . . . . . . . . 11  |-  ( ph  ->  ( k  e.  B  |->  C ) : B --> CC )
3837adantr 467 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
k  e.  B  |->  C ) : B --> CC )
3938ffvelrnda 6022 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  ( f `  n
)  e.  B )  ->  ( ( k  e.  B  |->  C ) `
 ( f `  n ) )  e.  CC )
4027, 39syldan 473 . . . . . . . 8  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( `' f " A ) )  ->  ( ( k  e.  B  |->  C ) `
 ( f `  n ) )  e.  CC )
41 eldifi 3555 . . . . . . . . . . . 12  |-  ( n  e.  ( ( 1 ... ( # `  B
) )  \  ( `' f " A
) )  ->  n  e.  ( 1 ... ( # `
 B ) ) )
4241, 23sylan2 477 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( f `  n
)  e.  B )
43 eldifn 3556 . . . . . . . . . . . . 13  |-  ( n  e.  ( ( 1 ... ( # `  B
) )  \  ( `' f " A
) )  ->  -.  n  e.  ( `' f " A ) )
4443adantl 468 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  ->  -.  n  e.  ( `' f " A
) )
4522adantr 467 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( n  e.  ( `' f " A
)  <->  ( n  e.  ( 1 ... ( # `
 B ) )  /\  ( f `  n )  e.  A
) ) )
4641adantl 468 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  ->  n  e.  ( 1 ... ( # `  B
) ) )
4746biantrurd 511 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( ( f `  n )  e.  A  <->  ( n  e.  ( 1 ... ( # `  B
) )  /\  (
f `  n )  e.  A ) ) )
4845, 47bitr4d 260 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( n  e.  ( `' f " A
)  <->  ( f `  n )  e.  A
) )
4944, 48mtbid 302 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  ->  -.  ( f `  n
)  e.  A )
5042, 49eldifd 3415 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( f `  n
)  e.  ( B 
\  A ) )
51 difss 3560 . . . . . . . . . . . . 13  |-  ( B 
\  A )  C_  B
52 resmpt 5154 . . . . . . . . . . . . 13  |-  ( ( B  \  A ) 
C_  B  ->  (
( k  e.  B  |->  C )  |`  ( B  \  A ) )  =  ( k  e.  ( B  \  A
)  |->  C ) )
5351, 52ax-mp 5 . . . . . . . . . . . 12  |-  ( ( k  e.  B  |->  C )  |`  ( B  \  A ) )  =  ( k  e.  ( B  \  A ) 
|->  C )
5453fveq1i 5866 . . . . . . . . . . 11  |-  ( ( ( k  e.  B  |->  C )  |`  ( B  \  A ) ) `
 ( f `  n ) )  =  ( ( k  e.  ( B  \  A
)  |->  C ) `  ( f `  n
) )
55 fvres 5879 . . . . . . . . . . 11  |-  ( ( f `  n )  e.  ( B  \  A )  ->  (
( ( k  e.  B  |->  C )  |`  ( B  \  A ) ) `  ( f `
 n ) )  =  ( ( k  e.  B  |->  C ) `
 ( f `  n ) ) )
5654, 55syl5eqr 2499 . . . . . . . . . 10  |-  ( ( f `  n )  e.  ( B  \  A )  ->  (
( k  e.  ( B  \  A ) 
|->  C ) `  (
f `  n )
)  =  ( ( k  e.  B  |->  C ) `  ( f `
 n ) ) )
5750, 56syl 17 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( ( k  e.  ( B  \  A
)  |->  C ) `  ( f `  n
) )  =  ( ( k  e.  B  |->  C ) `  (
f `  n )
) )
58 c0ex 9637 . . . . . . . . . . . . . . 15  |-  0  e.  _V
5958elsnc2 3999 . . . . . . . . . . . . . 14  |-  ( C  e.  { 0 }  <-> 
C  =  0 )
605, 59sylibr 216 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  ( B  \  A ) )  ->  C  e.  { 0 } )
61 eqid 2451 . . . . . . . . . . . . 13  |-  ( k  e.  ( B  \  A )  |->  C )  =  ( k  e.  ( B  \  A
)  |->  C )
6260, 61fmptd 6046 . . . . . . . . . . . 12  |-  ( ph  ->  ( k  e.  ( B  \  A ) 
|->  C ) : ( B  \  A ) --> { 0 } )
6362ad2antrr 732 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( k  e.  ( B  \  A ) 
|->  C ) : ( B  \  A ) --> { 0 } )
6463, 50ffvelrnd 6023 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( ( k  e.  ( B  \  A
)  |->  C ) `  ( f `  n
) )  e.  {
0 } )
65 elsni 3993 . . . . . . . . . 10  |-  ( ( ( k  e.  ( B  \  A ) 
|->  C ) `  (
f `  n )
)  e.  { 0 }  ->  ( (
k  e.  ( B 
\  A )  |->  C ) `  ( f `
 n ) )  =  0 )
6664, 65syl 17 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( ( k  e.  ( B  \  A
)  |->  C ) `  ( f `  n
) )  =  0 )
6757, 66eqtr3d 2487 . . . . . . . 8  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( (
1 ... ( # `  B
) )  \  ( `' f " A
) ) )  -> 
( ( k  e.  B  |->  C ) `  ( f `  n
) )  =  0 )
68 fzssuz 11839 . . . . . . . . 9  |-  ( 1 ... ( # `  B
) )  C_  ( ZZ>=
`  1 )
6968a1i 11 . . . . . . . 8  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
1 ... ( # `  B
) )  C_  ( ZZ>=
`  1 ) )
7018, 40, 67, 69sumss 13790 . . . . . . 7  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ n  e.  ( `' f " A ) ( ( k  e.  B  |->  C ) `  ( f `
 n ) )  =  sum_ n  e.  ( 1 ... ( # `  B ) ) ( ( k  e.  B  |->  C ) `  (
f `  n )
) )
711ad2antrr 732 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  A  C_  B )
7271resmptd 5156 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  ( ( k  e.  B  |->  C )  |`  A )  =  ( k  e.  A  |->  C ) )
7372fveq1d 5867 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  ( ( ( k  e.  B  |->  C )  |`  A ) `  m
)  =  ( ( k  e.  A  |->  C ) `  m ) )
74 fvres 5879 . . . . . . . . . . 11  |-  ( m  e.  A  ->  (
( ( k  e.  B  |->  C )  |`  A ) `  m
)  =  ( ( k  e.  B  |->  C ) `  m ) )
7574adantl 468 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  ( ( ( k  e.  B  |->  C )  |`  A ) `  m
)  =  ( ( k  e.  B  |->  C ) `  m ) )
7673, 75eqtr3d 2487 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  ( ( k  e.  A  |->  C ) `  m )  =  ( ( k  e.  B  |->  C ) `  m
) )
7776sumeq2dv 13769 . . . . . . . 8  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  sum_ m  e.  A  ( ( k  e.  B  |->  C ) `  m ) )
78 fveq2 5865 . . . . . . . . 9  |-  ( m  =  ( f `  n )  ->  (
( k  e.  B  |->  C ) `  m
)  =  ( ( k  e.  B  |->  C ) `  ( f `
 n ) ) )
79 fzfid 12186 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
1 ... ( # `  B
) )  e.  Fin )
8079, 15fisuppfi 7891 . . . . . . . . 9  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  ( `' f " A
)  e.  Fin )
81 f1of1 5813 . . . . . . . . . . . 12  |-  ( f : ( 1 ... ( # `  B
) ) -1-1-onto-> B  ->  f :
( 1 ... ( # `
 B ) )
-1-1-> B )
8213, 81syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  f : ( 1 ... ( # `  B
) ) -1-1-> B )
83 f1ores 5828 . . . . . . . . . . 11  |-  ( ( f : ( 1 ... ( # `  B
) ) -1-1-> B  /\  ( `' f " A
)  C_  ( 1 ... ( # `  B
) ) )  -> 
( f  |`  ( `' f " A
) ) : ( `' f " A
)
-1-1-onto-> ( f " ( `' f " A
) ) )
8482, 18, 83syl2anc 667 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
f  |`  ( `' f
" A ) ) : ( `' f
" A ) -1-1-onto-> ( f
" ( `' f
" A ) ) )
85 f1ofo 5821 . . . . . . . . . . . . 13  |-  ( f : ( 1 ... ( # `  B
) ) -1-1-onto-> B  ->  f :
( 1 ... ( # `
 B ) )
-onto-> B )
8613, 85syl 17 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  f : ( 1 ... ( # `  B
) ) -onto-> B )
871adantr 467 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  A  C_  B )
88 foimacnv 5831 . . . . . . . . . . . 12  |-  ( ( f : ( 1 ... ( # `  B
) ) -onto-> B  /\  A  C_  B )  -> 
( f " ( `' f " A
) )  =  A )
8986, 87, 88syl2anc 667 . . . . . . . . . . 11  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
f " ( `' f " A ) )  =  A )
90 f1oeq3 5807 . . . . . . . . . . 11  |-  ( ( f " ( `' f " A ) )  =  A  -> 
( ( f  |`  ( `' f " A
) ) : ( `' f " A
)
-1-1-onto-> ( f " ( `' f " A
) )  <->  ( f  |`  ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> A ) )
9189, 90syl 17 . . . . . . . . . 10  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
( f  |`  ( `' f " A
) ) : ( `' f " A
)
-1-1-onto-> ( f " ( `' f " A
) )  <->  ( f  |`  ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> A ) )
9284, 91mpbid 214 . . . . . . . . 9  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  (
f  |`  ( `' f
" A ) ) : ( `' f
" A ) -1-1-onto-> A )
93 fvres 5879 . . . . . . . . . 10  |-  ( n  e.  ( `' f
" A )  -> 
( ( f  |`  ( `' f " A
) ) `  n
)  =  ( f `
 n ) )
9493adantl 468 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( `' f " A ) )  ->  ( ( f  |`  ( `' f " A ) ) `  n )  =  ( f `  n ) )
9587sselda 3432 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  m  e.  B )
9638ffvelrnda 6022 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  B )  ->  ( ( k  e.  B  |->  C ) `  m )  e.  CC )
9795, 96syldan 473 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  m  e.  A )  ->  ( ( k  e.  B  |->  C ) `  m )  e.  CC )
9878, 80, 92, 94, 97fsumf1o 13789 . . . . . . . 8  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ m  e.  A  ( (
k  e.  B  |->  C ) `  m )  =  sum_ n  e.  ( `' f " A
) ( ( k  e.  B  |->  C ) `
 ( f `  n ) ) )
9977, 98eqtrd 2485 . . . . . . 7  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  sum_ n  e.  ( `' f " A
) ( ( k  e.  B  |->  C ) `
 ( f `  n ) ) )
100 eqidd 2452 . . . . . . . 8  |-  ( ( ( ph  /\  (
( # `  B )  e.  NN  /\  f : ( 1 ... ( # `  B
) ) -1-1-onto-> B ) )  /\  n  e.  ( 1 ... ( # `  B
) ) )  -> 
( f `  n
)  =  ( f `
 n ) )
10178, 79, 13, 100, 96fsumf1o 13789 . . . . . . 7  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ m  e.  B  ( (
k  e.  B  |->  C ) `  m )  =  sum_ n  e.  ( 1 ... ( # `  B ) ) ( ( k  e.  B  |->  C ) `  (
f `  n )
) )
10270, 99, 1013eqtr4d 2495 . . . . . 6  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  sum_ m  e.  B  ( ( k  e.  B  |->  C ) `  m ) )
103 sumfc 13775 . . . . . 6  |-  sum_ m  e.  A  ( (
k  e.  A  |->  C ) `  m )  =  sum_ k  e.  A  C
104 sumfc 13775 . . . . . 6  |-  sum_ m  e.  B  ( (
k  e.  B  |->  C ) `  m )  =  sum_ k  e.  B  C
105102, 103, 1043eqtr3g 2508 . . . . 5  |-  ( (
ph  /\  ( ( # `
 B )  e.  NN  /\  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B ) )  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C
)
106105expr 620 . . . 4  |-  ( (
ph  /\  ( # `  B
)  e.  NN )  ->  ( f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C ) )
107106exlimdv 1779 . . 3  |-  ( (
ph  /\  ( # `  B
)  e.  NN )  ->  ( E. f 
f : ( 1 ... ( # `  B
) ) -1-1-onto-> B  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C
) )
108107expimpd 608 . 2  |-  ( ph  ->  ( ( ( # `  B )  e.  NN  /\ 
E. f  f : ( 1 ... ( # `
 B ) ) -1-1-onto-> B )  ->  sum_ k  e.  A  C  =  sum_ k  e.  B  C
) )
109 fsumss.4 . . 3  |-  ( ph  ->  B  e.  Fin )
110 fz1f1o 13776 . . 3  |-  ( B  e.  Fin  ->  ( B  =  (/)  \/  (
( # `  B )  e.  NN  /\  E. f  f : ( 1 ... ( # `  B ) ) -1-1-onto-> B ) ) )
111109, 110syl 17 . 2  |-  ( ph  ->  ( B  =  (/)  \/  ( ( # `  B
)  e.  NN  /\  E. f  f : ( 1 ... ( # `  B ) ) -1-1-onto-> B ) ) )
11211, 108, 111mpjaod 383 1  |-  ( ph  -> 
sum_ k  e.  A  C  =  sum_ k  e.  B  C )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 188    \/ wo 370    /\ wa 371    = wceq 1444   E.wex 1663    e. wcel 1887    \ cdif 3401    C_ wss 3404   (/)c0 3731   {csn 3968    |-> cmpt 4461   `'ccnv 4833   dom cdm 4834    |` cres 4836   "cima 4837    Fn wfn 5577   -->wf 5578   -1-1->wf1 5579   -onto->wfo 5580   -1-1-onto->wf1o 5581   ` cfv 5582  (class class class)co 6290   Fincfn 7569   CCcc 9537   0cc0 9539   1c1 9540   NNcn 10609   ZZ>=cuz 11159   ...cfz 11784   #chash 12515   sum_csu 13752
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-inf2 8146  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616  ax-pre-sup 9617
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-fal 1450  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-nel 2625  df-ral 2742  df-rex 2743  df-reu 2744  df-rmo 2745  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-int 4235  df-iun 4280  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-se 4794  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-isom 5591  df-riota 6252  df-ov 6293  df-oprab 6294  df-mpt2 6295  df-om 6693  df-1st 6793  df-2nd 6794  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-oadd 7186  df-er 7363  df-en 7570  df-dom 7571  df-sdom 7572  df-fin 7573  df-sup 7956  df-oi 8025  df-card 8373  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-div 10270  df-nn 10610  df-2 10668  df-3 10669  df-n0 10870  df-z 10938  df-uz 11160  df-rp 11303  df-fz 11785  df-fzo 11916  df-seq 12214  df-exp 12273  df-hash 12516  df-cj 13162  df-re 13163  df-im 13164  df-sqrt 13298  df-abs 13299  df-clim 13552  df-sum 13753
This theorem is referenced by:  sumss2  13792  rrxmval  22359  rrxmetlem  22361  itg1val2  22642  itg1addlem4  22657  itg1addlem5  22658  ply1termlem  23157  plyaddlem1  23167  plymullem1  23168  coeeulem  23178  coeidlem  23191  coeid3  23194  coefv0  23202  coemulhi  23208  coemulc  23209  dvply1  23237  vieta1lem2  23264  dvtaylp  23325  pserdvlem2  23383  basellem3  24009  musum  24120  muinv  24122  fsumvma  24141  chpub  24148  logexprlim  24153  dchrsum  24197  chebbnd1lem1  24307  rpvmasumlem  24325  dchrisum0fno1  24349  rplogsum  24365  indsum  28844  eulerpartlemgs2  29213  flcidc  36040  fsumsupp0  37657  elaa2lem  38097  elaa2lemOLD  38098
  Copyright terms: Public domain W3C validator