ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  gsumfzfsumlemm Unicode version

Theorem gsumfzfsumlemm 14604
Description: Lemma for gsumfzfsum 14605. The case where the sum is inhabited. (Contributed by Jim Kingdon, 9-Sep-2025.)
Hypotheses
Ref Expression
gsumfzfsumlemm.n  |-  ( ph  ->  N  e.  ( ZZ>= `  M ) )
gsumfzfsumlemm.b  |-  ( (
ph  /\  k  e.  ( M ... N ) )  ->  B  e.  CC )
Assertion
Ref Expression
gsumfzfsumlemm  |-  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... N ) 
|->  B ) )  = 
sum_ k  e.  ( M ... N ) B )
Distinct variable groups:    k, M    k, N    ph, k
Allowed substitution hint:    B( k)

Proof of Theorem gsumfzfsumlemm
Dummy variables  j  w  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 gsumfzfsumlemm.n . . 3  |-  ( ph  ->  N  e.  ( ZZ>= `  M ) )
2 eluzfz2 10267 . . 3  |-  ( N  e.  ( ZZ>= `  M
)  ->  N  e.  ( M ... N ) )
31, 2syl 14 . 2  |-  ( ph  ->  N  e.  ( M ... N ) )
4 oveq2 6026 . . . . . . 7  |-  ( w  =  M  ->  ( M ... w )  =  ( M ... M
) )
54mpteq1d 4174 . . . . . 6  |-  ( w  =  M  ->  (
k  e.  ( M ... w )  |->  B )  =  ( k  e.  ( M ... M )  |->  B ) )
65oveq2d 6034 . . . . 5  |-  ( w  =  M  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  =  (fld 
gsumg  ( k  e.  ( M ... M ) 
|->  B ) ) )
74sumeq1d 11928 . . . . 5  |-  ( w  =  M  ->  sum_ k  e.  ( M ... w
) B  =  sum_ k  e.  ( M ... M ) B )
86, 7eqeq12d 2246 . . . 4  |-  ( w  =  M  ->  (
(fld  gsumg  ( k  e.  ( M ... w )  |->  B ) )  =  sum_ k  e.  ( M ... w ) B  <->  (fld  gsumg  ( k  e.  ( M ... M ) 
|->  B ) )  = 
sum_ k  e.  ( M ... M ) B ) )
98imbi2d 230 . . 3  |-  ( w  =  M  ->  (
( ph  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  = 
sum_ k  e.  ( M ... w ) B )  <->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... M ) 
|->  B ) )  = 
sum_ k  e.  ( M ... M ) B ) ) )
10 oveq2 6026 . . . . . . 7  |-  ( w  =  j  ->  ( M ... w )  =  ( M ... j
) )
1110mpteq1d 4174 . . . . . 6  |-  ( w  =  j  ->  (
k  e.  ( M ... w )  |->  B )  =  ( k  e.  ( M ... j )  |->  B ) )
1211oveq2d 6034 . . . . 5  |-  ( w  =  j  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  =  (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) ) )
1310sumeq1d 11928 . . . . 5  |-  ( w  =  j  ->  sum_ k  e.  ( M ... w
) B  =  sum_ k  e.  ( M ... j ) B )
1412, 13eqeq12d 2246 . . . 4  |-  ( w  =  j  ->  (
(fld  gsumg  ( k  e.  ( M ... w )  |->  B ) )  =  sum_ k  e.  ( M ... w ) B  <->  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B ) )
1514imbi2d 230 . . 3  |-  ( w  =  j  ->  (
( ph  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  = 
sum_ k  e.  ( M ... w ) B )  <->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B ) ) )
16 oveq2 6026 . . . . . . 7  |-  ( w  =  ( j  +  1 )  ->  ( M ... w )  =  ( M ... (
j  +  1 ) ) )
1716mpteq1d 4174 . . . . . 6  |-  ( w  =  ( j  +  1 )  ->  (
k  e.  ( M ... w )  |->  B )  =  ( k  e.  ( M ... ( j  +  1 ) )  |->  B ) )
1817oveq2d 6034 . . . . 5  |-  ( w  =  ( j  +  1 )  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  =  (fld 
gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) ) )
1916sumeq1d 11928 . . . . 5  |-  ( w  =  ( j  +  1 )  ->  sum_ k  e.  ( M ... w
) B  =  sum_ k  e.  ( M ... ( j  +  1 ) ) B )
2018, 19eqeq12d 2246 . . . 4  |-  ( w  =  ( j  +  1 )  ->  (
(fld  gsumg  ( k  e.  ( M ... w )  |->  B ) )  =  sum_ k  e.  ( M ... w ) B  <->  (fld  gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  = 
sum_ k  e.  ( M ... ( j  +  1 ) ) B ) )
2120imbi2d 230 . . 3  |-  ( w  =  ( j  +  1 )  ->  (
( ph  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  = 
sum_ k  e.  ( M ... w ) B )  <->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  = 
sum_ k  e.  ( M ... ( j  +  1 ) ) B ) ) )
22 oveq2 6026 . . . . . . 7  |-  ( w  =  N  ->  ( M ... w )  =  ( M ... N
) )
2322mpteq1d 4174 . . . . . 6  |-  ( w  =  N  ->  (
k  e.  ( M ... w )  |->  B )  =  ( k  e.  ( M ... N )  |->  B ) )
2423oveq2d 6034 . . . . 5  |-  ( w  =  N  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  =  (fld 
gsumg  ( k  e.  ( M ... N ) 
|->  B ) ) )
2522sumeq1d 11928 . . . . 5  |-  ( w  =  N  ->  sum_ k  e.  ( M ... w
) B  =  sum_ k  e.  ( M ... N ) B )
2624, 25eqeq12d 2246 . . . 4  |-  ( w  =  N  ->  (
(fld  gsumg  ( k  e.  ( M ... w )  |->  B ) )  =  sum_ k  e.  ( M ... w ) B  <->  (fld  gsumg  ( k  e.  ( M ... N ) 
|->  B ) )  = 
sum_ k  e.  ( M ... N ) B ) )
2726imbi2d 230 . . 3  |-  ( w  =  N  ->  (
( ph  ->  (fld  gsumg  ( k  e.  ( M ... w ) 
|->  B ) )  = 
sum_ k  e.  ( M ... w ) B )  <->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... N ) 
|->  B ) )  = 
sum_ k  e.  ( M ... N ) B ) ) )
28 cnfldbas 14577 . . . . . 6  |-  CC  =  ( Base ` fld )
29 cnring 14587 . . . . . . 7  |-fld  e.  Ring
30 ringmnd 14022 . . . . . . 7  |-  (fld  e.  Ring  ->fld  e.  Mnd )
3129, 30mp1i 10 . . . . . 6  |-  ( ph  ->fld  e. 
Mnd )
32 eluzel2 9760 . . . . . . 7  |-  ( N  e.  ( ZZ>= `  M
)  ->  M  e.  ZZ )
331, 32syl 14 . . . . . 6  |-  ( ph  ->  M  e.  ZZ )
34 eluzfz1 10266 . . . . . . . 8  |-  ( N  e.  ( ZZ>= `  M
)  ->  M  e.  ( M ... N ) )
351, 34syl 14 . . . . . . 7  |-  ( ph  ->  M  e.  ( M ... N ) )
36 gsumfzfsumlemm.b . . . . . . . 8  |-  ( (
ph  /\  k  e.  ( M ... N ) )  ->  B  e.  CC )
3736ralrimiva 2605 . . . . . . 7  |-  ( ph  ->  A. k  e.  ( M ... N ) B  e.  CC )
38 nfcsb1v 3160 . . . . . . . . 9  |-  F/_ k [_ M  /  k ]_ B
3938nfel1 2385 . . . . . . . 8  |-  F/ k
[_ M  /  k ]_ B  e.  CC
40 csbeq1a 3136 . . . . . . . . 9  |-  ( k  =  M  ->  B  =  [_ M  /  k ]_ B )
4140eleq1d 2300 . . . . . . . 8  |-  ( k  =  M  ->  ( B  e.  CC  <->  [_ M  / 
k ]_ B  e.  CC ) )
4239, 41rspc 2904 . . . . . . 7  |-  ( M  e.  ( M ... N )  ->  ( A. k  e.  ( M ... N ) B  e.  CC  ->  [_ M  /  k ]_ B  e.  CC ) )
4335, 37, 42sylc 62 . . . . . 6  |-  ( ph  ->  [_ M  /  k ]_ B  e.  CC )
4440adantl 277 . . . . . 6  |-  ( (
ph  /\  k  =  M )  ->  B  =  [_ M  /  k ]_ B )
45 nfv 1576 . . . . . 6  |-  F/ k
ph
4628, 31, 33, 43, 44, 45, 38gsumfzsnfd 13934 . . . . 5  |-  ( ph  ->  (fld 
gsumg  ( k  e.  { M }  |->  B ) )  =  [_ M  /  k ]_ B
)
47 fzsn 10301 . . . . . . . 8  |-  ( M  e.  ZZ  ->  ( M ... M )  =  { M } )
4833, 47syl 14 . . . . . . 7  |-  ( ph  ->  ( M ... M
)  =  { M } )
4948mpteq1d 4174 . . . . . 6  |-  ( ph  ->  ( k  e.  ( M ... M ) 
|->  B )  =  ( k  e.  { M }  |->  B ) )
5049oveq2d 6034 . . . . 5  |-  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... M ) 
|->  B ) )  =  (fld 
gsumg  ( k  e.  { M }  |->  B ) ) )
5147sumeq1d 11928 . . . . . . 7  |-  ( M  e.  ZZ  ->  sum_ k  e.  ( M ... M
) B  =  sum_ k  e.  { M } B )
5233, 51syl 14 . . . . . 6  |-  ( ph  -> 
sum_ k  e.  ( M ... M ) B  =  sum_ k  e.  { M } B
)
53 sumsns 11978 . . . . . . 7  |-  ( ( M  e.  ZZ  /\  [_ M  /  k ]_ B  e.  CC )  -> 
sum_ k  e.  { M } B  =  [_ M  /  k ]_ B
)
5433, 43, 53syl2anc 411 . . . . . 6  |-  ( ph  -> 
sum_ k  e.  { M } B  =  [_ M  /  k ]_ B
)
5552, 54eqtrd 2264 . . . . 5  |-  ( ph  -> 
sum_ k  e.  ( M ... M ) B  =  [_ M  /  k ]_ B
)
5646, 50, 553eqtr4d 2274 . . . 4  |-  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... M ) 
|->  B ) )  = 
sum_ k  e.  ( M ... M ) B )
5756a1i 9 . . 3  |-  ( N  e.  ( ZZ>= `  M
)  ->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... M ) 
|->  B ) )  = 
sum_ k  e.  ( M ... M ) B ) )
58 simpr 110 . . . . . . . 8  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )  ->  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )
5958oveq1d 6033 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )  ->  (
(fld  gsumg  ( k  e.  ( M ... j )  |->  B ) )  +  [_ ( j  +  1 )  /  k ]_ B )  =  (
sum_ k  e.  ( M ... j ) B  +  [_ (
j  +  1 )  /  k ]_ B
) )
60 mpocnfldadd 14578 . . . . . . . . . 10  |-  ( x  e.  CC ,  y  e.  CC  |->  ( x  +  y ) )  =  ( +g  ` fld )
6129a1i 9 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->fld 
e.  Ring )
6233adantr 276 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  M  e.  ZZ )
63 elfzouz 10386 . . . . . . . . . . 11  |-  ( j  e.  ( M..^ N
)  ->  j  e.  ( ZZ>= `  M )
)
6463adantl 277 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  j  e.  (
ZZ>= `  M ) )
65 simpll 527 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  ph )
6665, 33syl 14 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  M  e.  ZZ )
67 elfzoel2 10381 . . . . . . . . . . . . . 14  |-  ( j  e.  ( M..^ N
)  ->  N  e.  ZZ )
6867ad2antlr 489 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  N  e.  ZZ )
69 elfzelz 10260 . . . . . . . . . . . . . 14  |-  ( k  e.  ( M ... ( j  +  1 ) )  ->  k  e.  ZZ )
7069adantl 277 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  k  e.  ZZ )
71 elfzle1 10262 . . . . . . . . . . . . . 14  |-  ( k  e.  ( M ... ( j  +  1 ) )  ->  M  <_  k )
7271adantl 277 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  M  <_  k )
7370zred 9602 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  k  e.  RR )
74 elfzoelz 10382 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  ( M..^ N
)  ->  j  e.  ZZ )
7574ad2antlr 489 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  j  e.  ZZ )
7675peano2zd 9605 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  (
j  +  1 )  e.  ZZ )
7776zred 9602 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  (
j  +  1 )  e.  RR )
7868zred 9602 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  N  e.  RR )
79 elfzle2 10263 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( M ... ( j  +  1 ) )  ->  k  <_  ( j  +  1 ) )
8079adantl 277 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  k  <_  ( j  +  1 ) )
81 fzofzp1 10473 . . . . . . . . . . . . . . . 16  |-  ( j  e.  ( M..^ N
)  ->  ( j  +  1 )  e.  ( M ... N
) )
8281ad2antlr 489 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  (
j  +  1 )  e.  ( M ... N ) )
83 elfzle2 10263 . . . . . . . . . . . . . . 15  |-  ( ( j  +  1 )  e.  ( M ... N )  ->  (
j  +  1 )  <_  N )
8482, 83syl 14 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  (
j  +  1 )  <_  N )
8573, 77, 78, 80, 84letrd 8303 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  k  <_  N )
8666, 68, 70, 72, 85elfzd 10251 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  k  e.  ( M ... N
) )
8765, 86, 36syl2anc 411 . . . . . . . . . . 11  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... (
j  +  1 ) ) )  ->  B  e.  CC )
8887fmpttd 5802 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( k  e.  ( M ... (
j  +  1 ) )  |->  B ) : ( M ... (
j  +  1 ) ) --> CC )
8928, 60, 61, 62, 64, 88gsumsplit1r 13483 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  (fld 
gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  =  ( (fld 
gsumg  ( ( k  e.  ( M ... (
j  +  1 ) )  |->  B )  |`  ( M ... j ) ) ) ( x  e.  CC ,  y  e.  CC  |->  ( x  +  y ) ) ( ( k  e.  ( M ... (
j  +  1 ) )  |->  B ) `  ( j  +  1 ) ) ) )
90 fzssp1 10302 . . . . . . . . . . . 12  |-  ( M ... j )  C_  ( M ... ( j  +  1 ) )
91 resmpt 5061 . . . . . . . . . . . 12  |-  ( ( M ... j ) 
C_  ( M ... ( j  +  1 ) )  ->  (
( k  e.  ( M ... ( j  +  1 ) ) 
|->  B )  |`  ( M ... j ) )  =  ( k  e.  ( M ... j
)  |->  B ) )
9290, 91mp1i 10 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( ( k  e.  ( M ... ( j  +  1 ) )  |->  B )  |`  ( M ... j
) )  =  ( k  e.  ( M ... j )  |->  B ) )
9392oveq2d 6034 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  (fld 
gsumg  ( ( k  e.  ( M ... (
j  +  1 ) )  |->  B )  |`  ( M ... j ) ) )  =  (fld  gsumg  ( k  e.  ( M ... j )  |->  B ) ) )
94 peano2uz 9817 . . . . . . . . . . . . . 14  |-  ( j  e.  ( ZZ>= `  M
)  ->  ( j  +  1 )  e.  ( ZZ>= `  M )
)
9563, 94syl 14 . . . . . . . . . . . . 13  |-  ( j  e.  ( M..^ N
)  ->  ( j  +  1 )  e.  ( ZZ>= `  M )
)
9695adantl 277 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( j  +  1 )  e.  (
ZZ>= `  M ) )
97 eluzfz2 10267 . . . . . . . . . . . 12  |-  ( ( j  +  1 )  e.  ( ZZ>= `  M
)  ->  ( j  +  1 )  e.  ( M ... (
j  +  1 ) ) )
9896, 97syl 14 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( j  +  1 )  e.  ( M ... ( j  +  1 ) ) )
99 rspcsbela 3187 . . . . . . . . . . . 12  |-  ( ( ( j  +  1 )  e.  ( M ... N )  /\  A. k  e.  ( M ... N ) B  e.  CC )  ->  [_ ( j  +  1 )  /  k ]_ B  e.  CC )
10081, 37, 99syl2anr 290 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  [_ ( j  +  1 )  /  k ]_ B  e.  CC )
101 eqid 2231 . . . . . . . . . . . 12  |-  ( k  e.  ( M ... ( j  +  1 ) )  |->  B )  =  ( k  e.  ( M ... (
j  +  1 ) )  |->  B )
102101fvmpts 5724 . . . . . . . . . . 11  |-  ( ( ( j  +  1 )  e.  ( M ... ( j  +  1 ) )  /\  [_ ( j  +  1 )  /  k ]_ B  e.  CC )  ->  ( ( k  e.  ( M ... (
j  +  1 ) )  |->  B ) `  ( j  +  1 ) )  =  [_ ( j  +  1 )  /  k ]_ B )
10398, 100, 102syl2anc 411 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( ( k  e.  ( M ... ( j  +  1 ) )  |->  B ) `
 ( j  +  1 ) )  = 
[_ ( j  +  1 )  /  k ]_ B )
10493, 103oveq12d 6036 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( (fld  gsumg  ( ( k  e.  ( M ... (
j  +  1 ) )  |->  B )  |`  ( M ... j ) ) ) ( x  e.  CC ,  y  e.  CC  |->  ( x  +  y ) ) ( ( k  e.  ( M ... (
j  +  1 ) )  |->  B ) `  ( j  +  1 ) ) )  =  ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) ) ( x  e.  CC , 
y  e.  CC  |->  ( x  +  y ) ) [_ ( j  +  1 )  / 
k ]_ B ) )
105 cnfld0 14588 . . . . . . . . . . 11  |-  0  =  ( 0g ` fld )
10629, 30mp1i 10 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->fld 
e.  Mnd )
10774adantl 277 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  j  e.  ZZ )
108 fzelp1 10309 . . . . . . . . . . . . 13  |-  ( k  e.  ( M ... j )  ->  k  e.  ( M ... (
j  +  1 ) ) )
109108, 87sylan2 286 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  k  e.  ( M ... j
) )  ->  B  e.  CC )
110109fmpttd 5802 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( k  e.  ( M ... j
)  |->  B ) : ( M ... j
) --> CC )
11128, 105, 106, 62, 107, 110gsumfzcl 13584 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  e.  CC )
112111, 100addcld 8199 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  + 
[_ ( j  +  1 )  /  k ]_ B )  e.  CC )
113 oveq1 6025 . . . . . . . . . . 11  |-  ( x  =  (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  -> 
( x  +  y )  =  ( (fld  gsumg  ( k  e.  ( M ... j )  |->  B ) )  +  y ) )
114 oveq2 6026 . . . . . . . . . . 11  |-  ( y  =  [_ ( j  +  1 )  / 
k ]_ B  ->  (
(fld  gsumg  ( k  e.  ( M ... j )  |->  B ) )  +  y )  =  ( (fld  gsumg  ( k  e.  ( M ... j )  |->  B ) )  +  [_ (
j  +  1 )  /  k ]_ B
) )
115 eqid 2231 . . . . . . . . . . 11  |-  ( x  e.  CC ,  y  e.  CC  |->  ( x  +  y ) )  =  ( x  e.  CC ,  y  e.  CC  |->  ( x  +  y ) )
116113, 114, 115ovmpog 6156 . . . . . . . . . 10  |-  ( ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  e.  CC  /\  [_ (
j  +  1 )  /  k ]_ B  e.  CC  /\  ( (fld  gsumg  ( k  e.  ( M ... j )  |->  B ) )  +  [_ (
j  +  1 )  /  k ]_ B
)  e.  CC )  ->  ( (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) ) ( x  e.  CC , 
y  e.  CC  |->  ( x  +  y ) ) [_ ( j  +  1 )  / 
k ]_ B )  =  ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  + 
[_ ( j  +  1 )  /  k ]_ B ) )
117111, 100, 112, 116syl3anc 1273 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) ) ( x  e.  CC , 
y  e.  CC  |->  ( x  +  y ) ) [_ ( j  +  1 )  / 
k ]_ B )  =  ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  + 
[_ ( j  +  1 )  /  k ]_ B ) )
11889, 104, 1173eqtrd 2268 . . . . . . . 8  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  (fld 
gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  =  ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  + 
[_ ( j  +  1 )  /  k ]_ B ) )
119118adantr 276 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )  ->  (fld  gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  =  ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  + 
[_ ( j  +  1 )  /  k ]_ B ) )
120 fzsuc 10304 . . . . . . . . . . 11  |-  ( j  e.  ( ZZ>= `  M
)  ->  ( M ... ( j  +  1 ) )  =  ( ( M ... j
)  u.  { ( j  +  1 ) } ) )
12164, 120syl 14 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( M ... ( j  +  1 ) )  =  ( ( M ... j
)  u.  { ( j  +  1 ) } ) )
122121sumeq1d 11928 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  sum_ k  e.  ( M ... ( j  +  1 ) ) B  =  sum_ k  e.  ( ( M ... j )  u.  {
( j  +  1 ) } ) B )
123 nfv 1576 . . . . . . . . . 10  |-  F/ k ( ph  /\  j  e.  ( M..^ N ) )
124 nfcsb1v 3160 . . . . . . . . . 10  |-  F/_ k [_ ( j  +  1 )  /  k ]_ B
12562, 107fzfigd 10694 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( M ... j )  e.  Fin )
126107peano2zd 9605 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( j  +  1 )  e.  ZZ )
127 fzp1nel 10339 . . . . . . . . . . 11  |-  -.  (
j  +  1 )  e.  ( M ... j )
128127a1i 9 . . . . . . . . . 10  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  -.  ( j  +  1 )  e.  ( M ... j
) )
129 csbeq1a 3136 . . . . . . . . . 10  |-  ( k  =  ( j  +  1 )  ->  B  =  [_ ( j  +  1 )  /  k ]_ B )
130123, 124, 125, 126, 128, 109, 129, 100fsumsplitsn 11973 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  sum_ k  e.  ( ( M ... j
)  u.  { ( j  +  1 ) } ) B  =  ( sum_ k  e.  ( M ... j ) B  +  [_ (
j  +  1 )  /  k ]_ B
) )
131122, 130eqtrd 2264 . . . . . . . 8  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  sum_ k  e.  ( M ... ( j  +  1 ) ) B  =  ( sum_ k  e.  ( M ... j ) B  +  [_ ( j  +  1 )  /  k ]_ B ) )
132131adantr 276 . . . . . . 7  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )  ->  sum_ k  e.  ( M ... (
j  +  1 ) ) B  =  (
sum_ k  e.  ( M ... j ) B  +  [_ (
j  +  1 )  /  k ]_ B
) )
13359, 119, 1323eqtr4d 2274 . . . . . 6  |-  ( ( ( ph  /\  j  e.  ( M..^ N ) )  /\  (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )  ->  (fld  gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  = 
sum_ k  e.  ( M ... ( j  +  1 ) ) B )
134133ex 115 . . . . 5  |-  ( (
ph  /\  j  e.  ( M..^ N ) )  ->  ( (fld  gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B  ->  (fld  gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  = 
sum_ k  e.  ( M ... ( j  +  1 ) ) B ) )
135134expcom 116 . . . 4  |-  ( j  e.  ( M..^ N
)  ->  ( ph  ->  ( (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B  ->  (fld  gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  = 
sum_ k  e.  ( M ... ( j  +  1 ) ) B ) ) )
136135a2d 26 . . 3  |-  ( j  e.  ( M..^ N
)  ->  ( ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... j ) 
|->  B ) )  = 
sum_ k  e.  ( M ... j ) B )  ->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... ( j  +  1 ) ) 
|->  B ) )  = 
sum_ k  e.  ( M ... ( j  +  1 ) ) B ) ) )
1379, 15, 21, 27, 57, 136fzind2 10486 . 2  |-  ( N  e.  ( M ... N )  ->  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... N ) 
|->  B ) )  = 
sum_ k  e.  ( M ... N ) B ) )
1383, 137mpcom 36 1  |-  ( ph  ->  (fld 
gsumg  ( k  e.  ( M ... N ) 
|->  B ) )  = 
sum_ k  e.  ( M ... N ) B )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    = wceq 1397    e. wcel 2202   A.wral 2510   [_csb 3127    u. cun 3198    C_ wss 3200   {csn 3669   class class class wbr 4088    |-> cmpt 4150    |` cres 4727   ` cfv 5326  (class class class)co 6018    e. cmpo 6020   CCcc 8030   0cc0 8032   1c1 8033    + caddc 8035    <_ cle 8215   ZZcz 9479   ZZ>=cuz 9755   ...cfz 10243  ..^cfzo 10377   sum_csu 11915    gsumg cgsu 13342   Mndcmnd 13501   Ringcrg 14012  ℂfldccnfld 14573
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686  ax-cnex 8123  ax-resscn 8124  ax-1cn 8125  ax-1re 8126  ax-icn 8127  ax-addcl 8128  ax-addrcl 8129  ax-mulcl 8130  ax-mulrcl 8131  ax-addcom 8132  ax-mulcom 8133  ax-addass 8134  ax-mulass 8135  ax-distr 8136  ax-i2m1 8137  ax-0lt1 8138  ax-1rid 8139  ax-0id 8140  ax-rnegex 8141  ax-precex 8142  ax-cnre 8143  ax-pre-ltirr 8144  ax-pre-ltwlin 8145  ax-pre-lttrn 8146  ax-pre-apti 8147  ax-pre-ltadd 8148  ax-pre-mulgt0 8149  ax-pre-mulext 8150  ax-arch 8151  ax-caucvg 8152  ax-addf 8154  ax-mulf 8155
This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rmo 2518  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-if 3606  df-pw 3654  df-sn 3675  df-pr 3676  df-tp 3677  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-id 4390  df-po 4393  df-iso 4394  df-iord 4463  df-on 4465  df-ilim 4466  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-isom 5335  df-riota 5971  df-ov 6021  df-oprab 6022  df-mpo 6023  df-1st 6303  df-2nd 6304  df-recs 6471  df-irdg 6536  df-frec 6557  df-1o 6582  df-oadd 6586  df-er 6702  df-en 6910  df-dom 6911  df-fin 6912  df-pnf 8216  df-mnf 8217  df-xr 8218  df-ltxr 8219  df-le 8220  df-sub 8352  df-neg 8353  df-reap 8755  df-ap 8762  df-div 8853  df-inn 9144  df-2 9202  df-3 9203  df-4 9204  df-5 9205  df-6 9206  df-7 9207  df-8 9208  df-9 9209  df-n0 9403  df-z 9480  df-dec 9612  df-uz 9756  df-q 9854  df-rp 9889  df-fz 10244  df-fzo 10378  df-seqfrec 10711  df-exp 10802  df-ihash 11039  df-cj 11404  df-re 11405  df-im 11406  df-rsqrt 11560  df-abs 11561  df-clim 11841  df-sumdc 11916  df-struct 13086  df-ndx 13087  df-slot 13088  df-base 13090  df-sets 13091  df-plusg 13175  df-mulr 13176  df-starv 13177  df-tset 13181  df-ple 13182  df-ds 13184  df-unif 13185  df-0g 13343  df-igsum 13344  df-topgen 13345  df-mgm 13441  df-sgrp 13487  df-mnd 13502  df-grp 13588  df-minusg 13589  df-mulg 13709  df-cmn 13875  df-mgp 13937  df-ring 14014  df-cring 14015  df-bl 14563  df-mopn 14564  df-fg 14566  df-metu 14567  df-cnfld 14574
This theorem is referenced by:  gsumfzfsum  14605
  Copyright terms: Public domain W3C validator