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

Theorem fsum3ser 11294
Description: A finite sum expressed in terms of a partial sum of an infinite series. The recursive definition follows as fsum1 11309 and fsump1 11317, which should make our notation clear and from which, along with closure fsumcl 11297, we will derive the basic properties of finite sums. (Contributed by NM, 11-Dec-2005.) (Revised by Jim Kingdon, 1-Oct-2022.)
Hypotheses
Ref Expression
fsum3ser.1  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( F `  k )  =  A )
fsum3ser.2  |-  ( ph  ->  N  e.  ( ZZ>= `  M ) )
fsum3ser.3  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  A  e.  CC )
Assertion
Ref Expression
fsum3ser  |-  ( ph  -> 
sum_ k  e.  ( M ... N ) A  =  (  seq M (  +  ,  F ) `  N
) )
Distinct variable groups:    k, F    k, M    k, N    ph, k
Allowed substitution hint:    A( k)

Proof of Theorem fsum3ser
Dummy variables  m  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2157 . . . . 5  |-  ( m  e.  ( ZZ>= `  M
)  |->  if ( m  e.  ( M ... N ) ,  ( F `  m ) ,  0 ) )  =  ( m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N
) ,  ( F `
 m ) ,  0 ) )
2 eleq1w 2218 . . . . . 6  |-  ( m  =  k  ->  (
m  e.  ( M ... N )  <->  k  e.  ( M ... N ) ) )
3 fveq2 5468 . . . . . 6  |-  ( m  =  k  ->  ( F `  m )  =  ( F `  k ) )
42, 3ifbieq1d 3527 . . . . 5  |-  ( m  =  k  ->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 )  =  if ( k  e.  ( M ... N ) ,  ( F `  k ) ,  0 ) )
5 simpr 109 . . . . 5  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  k  e.  ( ZZ>= `  M )
)
6 fsum3ser.1 . . . . . . . 8  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( F `  k )  =  A )
7 fsum3ser.3 . . . . . . . 8  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  A  e.  CC )
86, 7eqeltrd 2234 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( F `  k )  e.  CC )
98adantr 274 . . . . . 6  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  k  e.  ( M ... N ) )  ->  ( F `  k )  e.  CC )
10 0cnd 7871 . . . . . 6  |-  ( ( ( ph  /\  k  e.  ( ZZ>= `  M )
)  /\  -.  k  e.  ( M ... N
) )  ->  0  e.  CC )
11 eluzelz 9448 . . . . . . 7  |-  ( k  e.  ( ZZ>= `  M
)  ->  k  e.  ZZ )
12 eluzel2 9444 . . . . . . 7  |-  ( k  e.  ( ZZ>= `  M
)  ->  M  e.  ZZ )
13 fsum3ser.2 . . . . . . . . 9  |-  ( ph  ->  N  e.  ( ZZ>= `  M ) )
14 eluzelz 9448 . . . . . . . . 9  |-  ( N  e.  ( ZZ>= `  M
)  ->  N  e.  ZZ )
1513, 14syl 14 . . . . . . . 8  |-  ( ph  ->  N  e.  ZZ )
1615adantr 274 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  N  e.  ZZ )
17 fzdcel 9942 . . . . . . 7  |-  ( ( k  e.  ZZ  /\  M  e.  ZZ  /\  N  e.  ZZ )  -> DECID  k  e.  ( M ... N ) )
1811, 12, 16, 17syl2an23an 1281 . . . . . 6  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  -> DECID  k  e.  ( M ... N ) )
199, 10, 18ifcldadc 3534 . . . . 5  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  if (
k  e.  ( M ... N ) ,  ( F `  k
) ,  0 )  e.  CC )
201, 4, 5, 19fvmptd3 5561 . . . 4  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( (
m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 ) ) `  k )  =  if ( k  e.  ( M ... N ) ,  ( F `  k ) ,  0 ) )
216ifeq1d 3522 . . . 4  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  if (
k  e.  ( M ... N ) ,  ( F `  k
) ,  0 )  =  if ( k  e.  ( M ... N ) ,  A ,  0 ) )
2220, 21eqtrd 2190 . . 3  |-  ( (
ph  /\  k  e.  ( ZZ>= `  M )
)  ->  ( (
m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 ) ) `  k )  =  if ( k  e.  ( M ... N ) ,  A ,  0 ) )
23 elfzuz 9924 . . . 4  |-  ( k  e.  ( M ... N )  ->  k  e.  ( ZZ>= `  M )
)
2423, 7sylan2 284 . . 3  |-  ( (
ph  /\  k  e.  ( M ... N ) )  ->  A  e.  CC )
25 ssidd 3149 . . 3  |-  ( ph  ->  ( M ... N
)  C_  ( M ... N ) )
2622, 13, 24, 18, 25fsumsersdc 11292 . 2  |-  ( ph  -> 
sum_ k  e.  ( M ... N ) A  =  (  seq M (  +  , 
( m  e.  (
ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m ) ,  0 ) ) ) `  N ) )
2723, 20sylan2 284 . . . 4  |-  ( (
ph  /\  k  e.  ( M ... N ) )  ->  ( (
m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 ) ) `  k )  =  if ( k  e.  ( M ... N ) ,  ( F `  k ) ,  0 ) )
28 iftrue 3510 . . . . 5  |-  ( k  e.  ( M ... N )  ->  if ( k  e.  ( M ... N ) ,  ( F `  k ) ,  0 )  =  ( F `
 k ) )
2928adantl 275 . . . 4  |-  ( (
ph  /\  k  e.  ( M ... N ) )  ->  if (
k  e.  ( M ... N ) ,  ( F `  k
) ,  0 )  =  ( F `  k ) )
3027, 29eqtrd 2190 . . 3  |-  ( (
ph  /\  k  e.  ( M ... N ) )  ->  ( (
m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 ) ) `  k )  =  ( F `  k ) )
31 eleq1w 2218 . . . . . 6  |-  ( m  =  x  ->  (
m  e.  ( M ... N )  <->  x  e.  ( M ... N ) ) )
32 fveq2 5468 . . . . . 6  |-  ( m  =  x  ->  ( F `  m )  =  ( F `  x ) )
3331, 32ifbieq1d 3527 . . . . 5  |-  ( m  =  x  ->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 )  =  if ( x  e.  ( M ... N ) ,  ( F `  x ) ,  0 ) )
34 simpr 109 . . . . 5  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  x  e.  ( ZZ>= `  M )
)
35 fveq2 5468 . . . . . . . 8  |-  ( k  =  x  ->  ( F `  k )  =  ( F `  x ) )
3635eleq1d 2226 . . . . . . 7  |-  ( k  =  x  ->  (
( F `  k
)  e.  CC  <->  ( F `  x )  e.  CC ) )
378ralrimiva 2530 . . . . . . . 8  |-  ( ph  ->  A. k  e.  (
ZZ>= `  M ) ( F `  k )  e.  CC )
3837adantr 274 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  A. k  e.  ( ZZ>= `  M )
( F `  k
)  e.  CC )
3936, 38, 34rspcdva 2821 . . . . . 6  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  ( F `  x )  e.  CC )
40 0cnd 7871 . . . . . 6  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  0  e.  CC )
41 eluzelz 9448 . . . . . . 7  |-  ( x  e.  ( ZZ>= `  M
)  ->  x  e.  ZZ )
42 eluzel2 9444 . . . . . . 7  |-  ( x  e.  ( ZZ>= `  M
)  ->  M  e.  ZZ )
4315adantr 274 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  N  e.  ZZ )
44 fzdcel 9942 . . . . . . 7  |-  ( ( x  e.  ZZ  /\  M  e.  ZZ  /\  N  e.  ZZ )  -> DECID  x  e.  ( M ... N ) )
4541, 42, 43, 44syl2an23an 1281 . . . . . 6  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  -> DECID  x  e.  ( M ... N ) )
4639, 40, 45ifcldcd 3540 . . . . 5  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  if (
x  e.  ( M ... N ) ,  ( F `  x
) ,  0 )  e.  CC )
471, 33, 34, 46fvmptd3 5561 . . . 4  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  ( (
m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 ) ) `  x )  =  if ( x  e.  ( M ... N ) ,  ( F `  x ) ,  0 ) )
4847, 46eqeltrd 2234 . . 3  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  ( (
m  e.  ( ZZ>= `  M )  |->  if ( m  e.  ( M ... N ) ,  ( F `  m
) ,  0 ) ) `  x )  e.  CC )
4936cbvralv 2680 . . . . 5  |-  ( A. k  e.  ( ZZ>= `  M ) ( F `
 k )  e.  CC  <->  A. x  e.  (
ZZ>= `  M ) ( F `  x )  e.  CC )
5037, 49sylib 121 . . . 4  |-  ( ph  ->  A. x  e.  (
ZZ>= `  M ) ( F `  x )  e.  CC )
5150r19.21bi 2545 . . 3  |-  ( (
ph  /\  x  e.  ( ZZ>= `  M )
)  ->  ( F `  x )  e.  CC )
52 addcl 7857 . . . 4  |-  ( ( x  e.  CC  /\  y  e.  CC )  ->  ( x  +  y )  e.  CC )
5352adantl 275 . . 3  |-  ( (
ph  /\  ( x  e.  CC  /\  y  e.  CC ) )  -> 
( x  +  y )  e.  CC )
5413, 30, 48, 51, 53seq3fveq 10370 . 2  |-  ( ph  ->  (  seq M (  +  ,  ( m  e.  ( ZZ>= `  M
)  |->  if ( m  e.  ( M ... N ) ,  ( F `  m ) ,  0 ) ) ) `  N )  =  (  seq M
(  +  ,  F
) `  N )
)
5526, 54eqtrd 2190 1  |-  ( ph  -> 
sum_ k  e.  ( M ... N ) A  =  (  seq M (  +  ,  F ) `  N
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103  DECID wdc 820    = wceq 1335    e. wcel 2128   A.wral 2435   ifcif 3505    |-> cmpt 4025   ` cfv 5170  (class class class)co 5824   CCcc 7730   0cc0 7732    + caddc 7735   ZZcz 9167   ZZ>=cuz 9439   ...cfz 9912    seqcseq 10344   sum_csu 11250
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1427  ax-7 1428  ax-gen 1429  ax-ie1 1473  ax-ie2 1474  ax-8 1484  ax-10 1485  ax-11 1486  ax-i12 1487  ax-bndl 1489  ax-4 1490  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-13 2130  ax-14 2131  ax-ext 2139  ax-coll 4079  ax-sep 4082  ax-nul 4090  ax-pow 4135  ax-pr 4169  ax-un 4393  ax-setind 4496  ax-iinf 4547  ax-cnex 7823  ax-resscn 7824  ax-1cn 7825  ax-1re 7826  ax-icn 7827  ax-addcl 7828  ax-addrcl 7829  ax-mulcl 7830  ax-mulrcl 7831  ax-addcom 7832  ax-mulcom 7833  ax-addass 7834  ax-mulass 7835  ax-distr 7836  ax-i2m1 7837  ax-0lt1 7838  ax-1rid 7839  ax-0id 7840  ax-rnegex 7841  ax-precex 7842  ax-cnre 7843  ax-pre-ltirr 7844  ax-pre-ltwlin 7845  ax-pre-lttrn 7846  ax-pre-apti 7847  ax-pre-ltadd 7848  ax-pre-mulgt0 7849  ax-pre-mulext 7850  ax-arch 7851  ax-caucvg 7852
This theorem depends on definitions:  df-bi 116  df-dc 821  df-3or 964  df-3an 965  df-tru 1338  df-fal 1341  df-nf 1441  df-sb 1743  df-eu 2009  df-mo 2010  df-clab 2144  df-cleq 2150  df-clel 2153  df-nfc 2288  df-ne 2328  df-nel 2423  df-ral 2440  df-rex 2441  df-reu 2442  df-rmo 2443  df-rab 2444  df-v 2714  df-sbc 2938  df-csb 3032  df-dif 3104  df-un 3106  df-in 3108  df-ss 3115  df-nul 3395  df-if 3506  df-pw 3545  df-sn 3566  df-pr 3567  df-op 3569  df-uni 3773  df-int 3808  df-iun 3851  df-br 3966  df-opab 4026  df-mpt 4027  df-tr 4063  df-id 4253  df-po 4256  df-iso 4257  df-iord 4326  df-on 4328  df-ilim 4329  df-suc 4331  df-iom 4550  df-xp 4592  df-rel 4593  df-cnv 4594  df-co 4595  df-dm 4596  df-rn 4597  df-res 4598  df-ima 4599  df-iota 5135  df-fun 5172  df-fn 5173  df-f 5174  df-f1 5175  df-fo 5176  df-f1o 5177  df-fv 5178  df-isom 5179  df-riota 5780  df-ov 5827  df-oprab 5828  df-mpo 5829  df-1st 6088  df-2nd 6089  df-recs 6252  df-irdg 6317  df-frec 6338  df-1o 6363  df-oadd 6367  df-er 6480  df-en 6686  df-dom 6687  df-fin 6688  df-pnf 7914  df-mnf 7915  df-xr 7916  df-ltxr 7917  df-le 7918  df-sub 8048  df-neg 8049  df-reap 8450  df-ap 8457  df-div 8546  df-inn 8834  df-2 8892  df-3 8893  df-4 8894  df-n0 9091  df-z 9168  df-uz 9440  df-q 9529  df-rp 9561  df-fz 9913  df-fzo 10042  df-seqfrec 10345  df-exp 10419  df-ihash 10650  df-cj 10742  df-re 10743  df-im 10744  df-rsqrt 10898  df-abs 10899  df-clim 11176  df-sumdc 11251
This theorem is referenced by:  isumclim3  11320  iserabs  11372  isumsplit  11388  trireciplem  11397  geolim  11408  geo2lim  11413  cvgratnnlemseq  11423  mertenslem2  11433  mertensabs  11434  efcvgfsum  11564  effsumlt  11589  cvgcmp2nlemabs  13614
  Copyright terms: Public domain W3C validator