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

Theorem sumeq2ii 13497
Description: Equality theorem for sum, with the class expressions  B and  C guarded by  _I to be always sets. (Contributed by Mario Carneiro, 13-Jun-2019.)
Assertion
Ref Expression
sumeq2ii  |-  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C
)  ->  sum_ k  e.  A  B  =  sum_ k  e.  A  C
)
Distinct variable group:    A, k
Allowed substitution hints:    B( k)    C( k)

Proof of Theorem sumeq2ii
Dummy variables  f  m  n  x are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 461 . . . . . . . 8  |-  ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  ->  m  e.  ZZ )
2 simpr 461 . . . . . . . . . . . . . 14  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  /\  n  e.  A
)  ->  n  e.  A )
3 simplll 759 . . . . . . . . . . . . . 14  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  /\  n  e.  A
)  ->  A. k  e.  A  (  _I  `  B )  =  (  _I  `  C ) )
4 nfcv 2605 . . . . . . . . . . . . . . . . 17  |-  F/_ k  _I
5 nfcsb1v 3436 . . . . . . . . . . . . . . . . 17  |-  F/_ k [_ n  /  k ]_ B
64, 5nffv 5863 . . . . . . . . . . . . . . . 16  |-  F/_ k
(  _I  `  [_ n  /  k ]_ B
)
7 nfcsb1v 3436 . . . . . . . . . . . . . . . . 17  |-  F/_ k [_ n  /  k ]_ C
84, 7nffv 5863 . . . . . . . . . . . . . . . 16  |-  F/_ k
(  _I  `  [_ n  /  k ]_ C
)
96, 8nfeq 2616 . . . . . . . . . . . . . . 15  |-  F/ k (  _I  `  [_ n  /  k ]_ B
)  =  (  _I 
`  [_ n  /  k ]_ C )
10 csbeq1a 3429 . . . . . . . . . . . . . . . . 17  |-  ( k  =  n  ->  B  =  [_ n  /  k ]_ B )
1110fveq2d 5860 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  (  _I  `  B )  =  (  _I  `  [_ n  /  k ]_ B
) )
12 csbeq1a 3429 . . . . . . . . . . . . . . . . 17  |-  ( k  =  n  ->  C  =  [_ n  /  k ]_ C )
1312fveq2d 5860 . . . . . . . . . . . . . . . 16  |-  ( k  =  n  ->  (  _I  `  C )  =  (  _I  `  [_ n  /  k ]_ C
) )
1411, 13eqeq12d 2465 . . . . . . . . . . . . . . 15  |-  ( k  =  n  ->  (
(  _I  `  B
)  =  (  _I 
`  C )  <->  (  _I  ` 
[_ n  /  k ]_ B )  =  (  _I  `  [_ n  /  k ]_ C
) ) )
159, 14rspc 3190 . . . . . . . . . . . . . 14  |-  ( n  e.  A  ->  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  ->  (  _I  `  [_ n  / 
k ]_ B )  =  (  _I  `  [_ n  /  k ]_ C
) ) )
162, 3, 15sylc 60 . . . . . . . . . . . . 13  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  /\  n  e.  A
)  ->  (  _I  ` 
[_ n  /  k ]_ B )  =  (  _I  `  [_ n  /  k ]_ C
) )
1716ifeq1da 3956 . . . . . . . . . . . 12  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  ->  if ( n  e.  A ,  (  _I  `  [_ n  /  k ]_ B
) ,  (  _I 
`  0 ) )  =  if ( n  e.  A ,  (  _I  `  [_ n  /  k ]_ C
) ,  (  _I 
`  0 ) ) )
18 fvif 5867 . . . . . . . . . . . 12  |-  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) )  =  if ( n  e.  A ,  (  _I  `  [_ n  /  k ]_ B
) ,  (  _I 
`  0 ) )
19 fvif 5867 . . . . . . . . . . . 12  |-  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) )  =  if ( n  e.  A ,  (  _I  `  [_ n  /  k ]_ C
) ,  (  _I 
`  0 ) )
2017, 18, 193eqtr4g 2509 . . . . . . . . . . 11  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  ->  (  _I  `  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) )  =  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )
2120mpteq2dv 4524 . . . . . . . . . 10  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  ->  ( n  e.  ZZ  |->  (  _I  `  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  =  ( n  e.  ZZ  |->  (  _I  `  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) ) )
2221fveq1d 5858 . . . . . . . . 9  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  ->  ( ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) ) `  x )  =  ( ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) ) `  x ) )
23 eqid 2443 . . . . . . . . . 10  |-  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) )  =  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) )
24 eqid 2443 . . . . . . . . . 10  |-  ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  =  ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )
2523, 24fvmptex 5951 . . . . . . . . 9  |-  ( ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) `  x )  =  ( ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) ) `  x )
26 eqid 2443 . . . . . . . . . 10  |-  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) )  =  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) )
27 eqid 2443 . . . . . . . . . 10  |-  ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  =  ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )
2826, 27fvmptex 5951 . . . . . . . . 9  |-  ( ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) `  x )  =  ( ( n  e.  ZZ  |->  (  _I 
`  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) ) `  x )
2922, 25, 283eqtr4g 2509 . . . . . . . 8  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  /\  x  e.  (
ZZ>= `  m ) )  ->  ( ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) `  x )  =  ( ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) `  x ) )
301, 29seqfeq 12114 . . . . . . 7  |-  ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  ->  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  =  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) ) )
3130breq1d 4447 . . . . . 6  |-  ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  ->  (  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  ~~>  x  <->  seq m
(  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  ~~>  x ) )
3231anbi2d 703 . . . . 5  |-  ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  ZZ )  ->  (
( A  C_  ( ZZ>=
`  m )  /\  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  ~~>  x )  <-> 
( A  C_  ( ZZ>=
`  m )  /\  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  ~~>  x ) ) )
3332rexbidva 2951 . . . 4  |-  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C
)  ->  ( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m
)  /\  seq m
(  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  ~~>  x )  <->  E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m )  /\  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  ~~>  x ) ) )
34 simplr 755 . . . . . . . . . 10  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  ->  m  e.  NN )
35 nnuz 11127 . . . . . . . . . 10  |-  NN  =  ( ZZ>= `  1 )
3634, 35syl6eleq 2541 . . . . . . . . 9  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  ->  m  e.  ( ZZ>= `  1 )
)
37 f1of 5806 . . . . . . . . . . . . . 14  |-  ( f : ( 1 ... m ) -1-1-onto-> A  ->  f :
( 1 ... m
) --> A )
3837ad2antlr 726 . . . . . . . . . . . . 13  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  f : ( 1 ... m ) --> A )
39 ffvelrn 6014 . . . . . . . . . . . . 13  |-  ( ( f : ( 1 ... m ) --> A  /\  x  e.  ( 1 ... m ) )  ->  ( f `  x )  e.  A
)
4038, 39sylancom 667 . . . . . . . . . . . 12  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  (
f `  x )  e.  A )
41 simplll 759 . . . . . . . . . . . 12  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  A. k  e.  A  (  _I  `  B )  =  (  _I  `  C ) )
42 nfcsb1v 3436 . . . . . . . . . . . . . 14  |-  F/_ k [_ ( f `  x
)  /  k ]_ (  _I  `  B )
43 nfcsb1v 3436 . . . . . . . . . . . . . 14  |-  F/_ k [_ ( f `  x
)  /  k ]_ (  _I  `  C )
4442, 43nfeq 2616 . . . . . . . . . . . . 13  |-  F/ k
[_ ( f `  x )  /  k ]_ (  _I  `  B
)  =  [_ (
f `  x )  /  k ]_ (  _I  `  C )
45 csbeq1a 3429 . . . . . . . . . . . . . 14  |-  ( k  =  ( f `  x )  ->  (  _I  `  B )  = 
[_ ( f `  x )  /  k ]_ (  _I  `  B
) )
46 csbeq1a 3429 . . . . . . . . . . . . . 14  |-  ( k  =  ( f `  x )  ->  (  _I  `  C )  = 
[_ ( f `  x )  /  k ]_ (  _I  `  C
) )
4745, 46eqeq12d 2465 . . . . . . . . . . . . 13  |-  ( k  =  ( f `  x )  ->  (
(  _I  `  B
)  =  (  _I 
`  C )  <->  [_ ( f `
 x )  / 
k ]_ (  _I  `  B )  =  [_ ( f `  x
)  /  k ]_ (  _I  `  C ) ) )
4844, 47rspc 3190 . . . . . . . . . . . 12  |-  ( ( f `  x )  e.  A  ->  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  ->  [_ (
f `  x )  /  k ]_ (  _I  `  B )  = 
[_ ( f `  x )  /  k ]_ (  _I  `  C
) ) )
4940, 41, 48sylc 60 . . . . . . . . . . 11  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  [_ (
f `  x )  /  k ]_ (  _I  `  B )  = 
[_ ( f `  x )  /  k ]_ (  _I  `  C
) )
50 fvex 5866 . . . . . . . . . . . 12  |-  ( f `
 x )  e. 
_V
51 csbfv2g 5893 . . . . . . . . . . . 12  |-  ( ( f `  x )  e.  _V  ->  [_ (
f `  x )  /  k ]_ (  _I  `  B )  =  (  _I  `  [_ (
f `  x )  /  k ]_ B
) )
5250, 51ax-mp 5 . . . . . . . . . . 11  |-  [_ (
f `  x )  /  k ]_ (  _I  `  B )  =  (  _I  `  [_ (
f `  x )  /  k ]_ B
)
53 csbfv2g 5893 . . . . . . . . . . . 12  |-  ( ( f `  x )  e.  _V  ->  [_ (
f `  x )  /  k ]_ (  _I  `  C )  =  (  _I  `  [_ (
f `  x )  /  k ]_ C
) )
5450, 53ax-mp 5 . . . . . . . . . . 11  |-  [_ (
f `  x )  /  k ]_ (  _I  `  C )  =  (  _I  `  [_ (
f `  x )  /  k ]_ C
)
5549, 52, 543eqtr3g 2507 . . . . . . . . . 10  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  (  _I  `  [_ ( f `
 x )  / 
k ]_ B )  =  (  _I  `  [_ (
f `  x )  /  k ]_ C
) )
56 elfznn 11725 . . . . . . . . . . . 12  |-  ( x  e.  ( 1 ... m )  ->  x  e.  NN )
5756adantl 466 . . . . . . . . . . 11  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  x  e.  NN )
58 fveq2 5856 . . . . . . . . . . . . 13  |-  ( n  =  x  ->  (
f `  n )  =  ( f `  x ) )
5958csbeq1d 3427 . . . . . . . . . . . 12  |-  ( n  =  x  ->  [_ (
f `  n )  /  k ]_ B  =  [_ ( f `  x )  /  k ]_ B )
60 eqid 2443 . . . . . . . . . . . 12  |-  ( n  e.  NN  |->  [_ (
f `  n )  /  k ]_ B
)  =  ( n  e.  NN  |->  [_ (
f `  n )  /  k ]_ B
)
6159, 60fvmpti 5940 . . . . . . . . . . 11  |-  ( x  e.  NN  ->  (
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) `  x
)  =  (  _I 
`  [_ ( f `  x )  /  k ]_ B ) )
6257, 61syl 16 . . . . . . . . . 10  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  (
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) `  x
)  =  (  _I 
`  [_ ( f `  x )  /  k ]_ B ) )
6358csbeq1d 3427 . . . . . . . . . . . 12  |-  ( n  =  x  ->  [_ (
f `  n )  /  k ]_ C  =  [_ ( f `  x )  /  k ]_ C )
64 eqid 2443 . . . . . . . . . . . 12  |-  ( n  e.  NN  |->  [_ (
f `  n )  /  k ]_ C
)  =  ( n  e.  NN  |->  [_ (
f `  n )  /  k ]_ C
)
6563, 64fvmpti 5940 . . . . . . . . . . 11  |-  ( x  e.  NN  ->  (
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ C ) `  x
)  =  (  _I 
`  [_ ( f `  x )  /  k ]_ C ) )
6657, 65syl 16 . . . . . . . . . 10  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  (
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ C ) `  x
)  =  (  _I 
`  [_ ( f `  x )  /  k ]_ C ) )
6755, 62, 663eqtr4d 2494 . . . . . . . . 9  |-  ( ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  /\  x  e.  ( 1 ... m
) )  ->  (
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) `  x
)  =  ( ( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ C ) `  x
) )
6836, 67seqfveq 12113 . . . . . . . 8  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  ->  (  seq 1 (  +  , 
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) ) `  m )  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ C ) ) `  m ) )
6968eqeq2d 2457 . . . . . . 7  |-  ( ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  /\  f : ( 1 ... m ) -1-1-onto-> A )  ->  ( x  =  (  seq 1
(  +  ,  ( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) ) `  m )  <->  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ C ) ) `  m ) ) )
7069pm5.32da 641 . . . . . 6  |-  ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  ->  (
( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ B ) ) `  m ) )  <->  ( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ (
f `  n )  /  k ]_ C
) ) `  m
) ) ) )
7170exbidv 1701 . . . . 5  |-  ( ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C )  /\  m  e.  NN )  ->  ( E. f ( f : ( 1 ... m
)
-1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ B ) ) `  m ) )  <->  E. f
( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ C ) ) `  m ) ) ) )
7271rexbidva 2951 . . . 4  |-  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C
)  ->  ( E. m  e.  NN  E. f
( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ B ) ) `  m ) )  <->  E. m  e.  NN  E. f ( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  , 
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ C ) ) `  m ) ) ) )
7333, 72orbi12d 709 . . 3  |-  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C
)  ->  ( ( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m )  /\  seq m (  +  , 
( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  ~~>  x )  \/  E. m  e.  NN  E. f ( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  , 
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) ) `  m ) ) )  <-> 
( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m )  /\  seq m (  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  ~~>  x )  \/ 
E. m  e.  NN  E. f ( f : ( 1 ... m
)
-1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ C ) ) `  m ) ) ) ) )
7473iotabidv 5562 . 2  |-  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C
)  ->  ( iota x ( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m )  /\  seq m (  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  ~~>  x )  \/ 
E. m  e.  NN  E. f ( f : ( 1 ... m
)
-1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ B ) ) `  m ) ) ) )  =  ( iota
x ( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m )  /\  seq m (  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  ~~>  x )  \/ 
E. m  e.  NN  E. f ( f : ( 1 ... m
)
-1-1-onto-> A  /\  x  =  (  seq 1 (  +  ,  ( n  e.  NN  |->  [_ ( f `  n )  /  k ]_ C ) ) `  m ) ) ) ) )
75 df-sum 13491 . 2  |-  sum_ k  e.  A  B  =  ( iota x ( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m
)  /\  seq m
(  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ B ,  0 ) ) )  ~~>  x )  \/  E. m  e.  NN  E. f ( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  , 
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ B ) ) `  m ) ) ) )
76 df-sum 13491 . 2  |-  sum_ k  e.  A  C  =  ( iota x ( E. m  e.  ZZ  ( A  C_  ( ZZ>= `  m
)  /\  seq m
(  +  ,  ( n  e.  ZZ  |->  if ( n  e.  A ,  [_ n  /  k ]_ C ,  0 ) ) )  ~~>  x )  \/  E. m  e.  NN  E. f ( f : ( 1 ... m ) -1-1-onto-> A  /\  x  =  (  seq 1 (  +  , 
( n  e.  NN  |->  [_ ( f `  n
)  /  k ]_ C ) ) `  m ) ) ) )
7774, 75, 763eqtr4g 2509 1  |-  ( A. k  e.  A  (  _I  `  B )  =  (  _I  `  C
)  ->  sum_ k  e.  A  B  =  sum_ k  e.  A  C
)
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    \/ wo 368    /\ wa 369    = wceq 1383   E.wex 1599    e. wcel 1804   A.wral 2793   E.wrex 2794   _Vcvv 3095   [_csb 3420    C_ wss 3461   ifcif 3926   class class class wbr 4437    |-> cmpt 4495    _I cid 4780   iotacio 5539   -->wf 5574   -1-1-onto->wf1o 5577   ` cfv 5578  (class class class)co 6281   0cc0 9495   1c1 9496    + caddc 9498   NNcn 10543   ZZcz 10871   ZZ>=cuz 11092   ...cfz 11683    seqcseq 12089    ~~> cli 13289   sum_csu 13490
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1605  ax-4 1618  ax-5 1691  ax-6 1734  ax-7 1776  ax-8 1806  ax-9 1808  ax-10 1823  ax-11 1828  ax-12 1840  ax-13 1985  ax-ext 2421  ax-sep 4558  ax-nul 4566  ax-pow 4615  ax-pr 4676  ax-un 6577  ax-cnex 9551  ax-resscn 9552  ax-1cn 9553  ax-icn 9554  ax-addcl 9555  ax-addrcl 9556  ax-mulcl 9557  ax-mulrcl 9558  ax-mulcom 9559  ax-addass 9560  ax-mulass 9561  ax-distr 9562  ax-i2m1 9563  ax-1ne0 9564  ax-1rid 9565  ax-rnegex 9566  ax-rrecex 9567  ax-cnre 9568  ax-pre-lttri 9569  ax-pre-lttrn 9570  ax-pre-ltadd 9571  ax-pre-mulgt0 9572
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 975  df-3an 976  df-tru 1386  df-fal 1389  df-ex 1600  df-nf 1604  df-sb 1727  df-eu 2272  df-mo 2273  df-clab 2429  df-cleq 2435  df-clel 2438  df-nfc 2593  df-ne 2640  df-nel 2641  df-ral 2798  df-rex 2799  df-reu 2800  df-rab 2802  df-v 3097  df-sbc 3314  df-csb 3421  df-dif 3464  df-un 3466  df-in 3468  df-ss 3475  df-pss 3477  df-nul 3771  df-if 3927  df-pw 3999  df-sn 4015  df-pr 4017  df-tp 4019  df-op 4021  df-uni 4235  df-iun 4317  df-br 4438  df-opab 4496  df-mpt 4497  df-tr 4531  df-eprel 4781  df-id 4785  df-po 4790  df-so 4791  df-fr 4828  df-we 4830  df-ord 4871  df-on 4872  df-lim 4873  df-suc 4874  df-xp 4995  df-rel 4996  df-cnv 4997  df-co 4998  df-dm 4999  df-rn 5000  df-res 5001  df-ima 5002  df-iota 5541  df-fun 5580  df-fn 5581  df-f 5582  df-f1 5583  df-fo 5584  df-f1o 5585  df-fv 5586  df-riota 6242  df-ov 6284  df-oprab 6285  df-mpt2 6286  df-om 6686  df-1st 6785  df-2nd 6786  df-recs 7044  df-rdg 7078  df-er 7313  df-en 7519  df-dom 7520  df-sdom 7521  df-pnf 9633  df-mnf 9634  df-xr 9635  df-ltxr 9636  df-le 9637  df-sub 9812  df-neg 9813  df-nn 10544  df-n0 10803  df-z 10872  df-uz 11093  df-fz 11684  df-seq 12090  df-sum 13491
This theorem is referenced by:  sumeq2  13498  sum2id  13512
  Copyright terms: Public domain W3C validator