Theorem fisumser 10790

Description: A finite sum expressed in terms of a partial sum of an infinite series. The recursive definition follows as fsum1 10806 and fsump1 10814, which should make our notation clear and from which, along with closure fsumcl 10794, we will derive the basic properties of finite sums. (Contributed by NM, 11-Dec-2005.) (Revised by Jim Kingdon, 1-Oct-2022.) Use fsum3ser 10791 instead. (New usage is discouraged.)

Hypotheses

Ref	Expression
fisumser.1	|- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> ( F ` k ) = A )
fsumser.2	|- ( ph -> N e. ( ZZ>= ` M ) )
fisumser.3	|- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> A e. CC )

Assertion

Ref	Expression
fisumser	|- ( ph -> sum_ k e. ( M ... N ) A = ( seq M ( + , F , CC ) ` N ) )

Distinct variable groups:   k, F   k, M   k, N   ph, k

Allowed substitution hint:   A( k)

Proof of Theorem fisumser

Dummy variables m x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 108	. . . . 5 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> k e. ( ZZ>= ` M ) )
2		fisumser.1	. . . . . . . 8 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> ( F ` k ) = A )
3		fisumser.3	. . . . . . . 8 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> A e. CC )
4	2, 3	eqeltrd 2164	. . . . . . 7 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> ( F ` k ) e. CC )
5	4	adantr 270	. . . . . 6 |- ( ( ( ph /\ k e. ( ZZ>= ` M ) ) /\ k e. ( M ... N ) ) -> ( F ` k ) e. CC )
6		0cnd 7481	. . . . . 6 |- ( ( ( ph /\ k e. ( ZZ>= ` M ) ) /\ -. k e. ( M ... N ) ) -> 0 e. CC )
7		eluzelz 9028	. . . . . . 7 |- ( k e. ( ZZ>= ` M ) -> k e. ZZ )
8		eluzel2 9024	. . . . . . 7 |- ( k e. ( ZZ>= ` M ) -> M e. ZZ )
9		fsumser.2	. . . . . . . . 9 |- ( ph -> N e. ( ZZ>= ` M ) )
10		eluzelz 9028	. . . . . . . . 9 |- ( N e. ( ZZ>= ` M ) -> N e. ZZ )
11	9, 10	syl 14	. . . . . . . 8 |- ( ph -> N e. ZZ )
12	11	adantr 270	. . . . . . 7 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> N e. ZZ )
13		fzdcel 9454	. . . . . . 7 |- ( ( k e. ZZ /\ M e. ZZ /\ N e. ZZ ) -> DECID k e. ( M ... N ) )
14	7, 8, 12, 13	syl2an23an 1235	. . . . . 6 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> DECID k e. ( M ... N ) )
15	5, 6, 14	ifcldadc 3420	. . . . 5 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> if ( k e. ( M ... N ) , ( F ` k ) , 0 ) e. CC )
16		eleq1w 2148	. . . . . . 7 |- ( m = k -> ( m e. ( M ... N ) <-> k e. ( M ... N ) ) )
17		fveq2 5305	. . . . . . 7 |- ( m = k -> ( F ` m ) = ( F ` k ) )
18	16, 17	ifbieq1d 3413	. . . . . 6 |- ( m = k -> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) = if ( k e. ( M ... N ) , ( F ` k ) , 0 ) )
19		eqid 2088	. . . . . 6 |- ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) = ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) )
20	18, 19	fvmptg 5380	. . . . 5 |- ( ( k e. ( ZZ>= ` M ) /\ if ( k e. ( M ... N ) , ( F ` k ) , 0 ) e. CC ) -> ( ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) ` k ) = if ( k e. ( M ... N ) , ( F ` k ) , 0 ) )
21	1, 15, 20	syl2anc 403	. . . 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 ) )
22	2	ifeq1d 3408	. . . 4 |- ( ( ph /\ k e. ( ZZ>= ` M ) ) -> if ( k e. ( M ... N ) , ( F ` k ) , 0 ) = if ( k e. ( M ... N ) , A , 0 ) )
23	21, 22	eqtrd 2120	. . 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 ) )
24		elfzuz 9436	. . . 4 |- ( k e. ( M ... N ) -> k e. ( ZZ>= ` M ) )
25	24, 3	sylan2 280	. . 3 |- ( ( ph /\ k e. ( M ... N ) ) -> A e. CC )
26		ssidd 3045	. . 3 |- ( ph -> ( M ... N ) C_ ( M ... N ) )
27	23, 9, 25, 14, 26	fisumsers 10788	. 2 |- ( ph -> sum_ k e. ( M ... N ) A = ( seq M ( + , ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) , CC ) ` N ) )
28	24, 21	sylan2 280	. . . 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 ) )
29		iftrue 3398	. . . . 5 |- ( k e. ( M ... N ) -> if ( k e. ( M ... N ) , ( F ` k ) , 0 ) = ( F ` k ) )
30	29	adantl 271	. . . 4 |- ( ( ph /\ k e. ( M ... N ) ) -> if ( k e. ( M ... N ) , ( F ` k ) , 0 ) = ( F ` k ) )
31	28, 30	eqtrd 2120	. . 3 |- ( ( ph /\ k e. ( M ... N ) ) -> ( ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) ` k ) = ( F ` k ) )
32		simpr 108	. . . . 5 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> x e. ( ZZ>= ` M ) )
33		fveq2 5305	. . . . . . . 8 |- ( k = x -> ( F ` k ) = ( F ` x ) )
34	33	eleq1d 2156	. . . . . . 7 |- ( k = x -> ( ( F ` k ) e. CC <-> ( F ` x ) e. CC ) )
35	4	ralrimiva 2446	. . . . . . . 8 |- ( ph -> A. k e. ( ZZ>= ` M ) ( F ` k ) e. CC )
36	35	adantr 270	. . . . . . 7 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> A. k e. ( ZZ>= ` M ) ( F ` k ) e. CC )
37	34, 36, 32	rspcdva 2727	. . . . . 6 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> ( F ` x ) e. CC )
38		0cnd 7481	. . . . . 6 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> 0 e. CC )
39		eluzelz 9028	. . . . . . 7 |- ( x e. ( ZZ>= ` M ) -> x e. ZZ )
40		eluzel2 9024	. . . . . . 7 |- ( x e. ( ZZ>= ` M ) -> M e. ZZ )
41	11	adantr 270	. . . . . . 7 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> N e. ZZ )
42		fzdcel 9454	. . . . . . 7 |- ( ( x e. ZZ /\ M e. ZZ /\ N e. ZZ ) -> DECID x e. ( M ... N ) )
43	39, 40, 41, 42	syl2an23an 1235	. . . . . 6 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> DECID x e. ( M ... N ) )
44	37, 38, 43	ifcldcd 3426	. . . . 5 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> if ( x e. ( M ... N ) , ( F ` x ) , 0 ) e. CC )
45		eleq1w 2148	. . . . . . 7 |- ( m = x -> ( m e. ( M ... N ) <-> x e. ( M ... N ) ) )
46		fveq2 5305	. . . . . . 7 |- ( m = x -> ( F ` m ) = ( F ` x ) )
47	45, 46	ifbieq1d 3413	. . . . . 6 |- ( m = x -> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) = if ( x e. ( M ... N ) , ( F ` x ) , 0 ) )
48	47, 19	fvmptg 5380	. . . . 5 |- ( ( x e. ( ZZ>= ` M ) /\ if ( x e. ( M ... N ) , ( F ` x ) , 0 ) e. CC ) -> ( ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) ` x ) = if ( x e. ( M ... N ) , ( F ` x ) , 0 ) )
49	32, 44, 48	syl2anc 403	. . . 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 ) )
50	49, 44	eqeltrd 2164	. . 3 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> ( ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) ` x ) e. CC )
51	34	cbvralv 2590	. . . . 5 |- ( A. k e. ( ZZ>= ` M ) ( F ` k ) e. CC <-> A. x e. ( ZZ>= ` M ) ( F ` x ) e. CC )
52	35, 51	sylib 120	. . . 4 |- ( ph -> A. x e. ( ZZ>= ` M ) ( F ` x ) e. CC )
53	52	r19.21bi 2461	. . 3 |- ( ( ph /\ x e. ( ZZ>= ` M ) ) -> ( F ` x ) e. CC )
54		addcl 7467	. . . 4 |- ( ( x e. CC /\ y e. CC ) -> ( x + y ) e. CC )
55	54	adantl 271	. . 3 |- ( ( ph /\ ( x e. CC /\ y e. CC ) ) -> ( x + y ) e. CC )
56	9, 31, 50, 53, 55	iseqfveq 9894	. 2 |- ( ph -> ( seq M ( + , ( m e. ( ZZ>= ` M ) |-> if ( m e. ( M ... N ) , ( F ` m ) , 0 ) ) , CC ) ` N ) = ( seq M ( + , F , CC ) ` N ) )
57	27, 56	eqtrd 2120	1 |- ( ph -> sum_ k e. ( M ... N ) A = ( seq M ( + , F , CC ) ` N ) )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 102  DECID wdc 780   = wceq 1289   e. wcel 1438   A.wral 2359   ifcif 3393   |-> cmpt 3899   ` cfv 5015  (class class class)co 5652   CCcc 7348   0cc0 7350   + caddc 7353   ZZcz 8750   ZZ>=cuz 9019   ...cfz 9424   seqcseq4 9851   sum_csu 10742

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 579  ax-in2 580  ax-io 665  ax-5 1381  ax-7 1382  ax-gen 1383  ax-ie1 1427  ax-ie2 1428  ax-8 1440  ax-10 1441  ax-11 1442  ax-i12 1443  ax-bndl 1444  ax-4 1445  ax-13 1449  ax-14 1450  ax-17 1464  ax-i9 1468  ax-ial 1472  ax-i5r 1473  ax-ext 2070  ax-coll 3954  ax-sep 3957  ax-nul 3965  ax-pow 4009  ax-pr 4036  ax-un 4260  ax-setind 4353  ax-iinf 4403  ax-cnex 7436  ax-resscn 7437  ax-1cn 7438  ax-1re 7439  ax-icn 7440  ax-addcl 7441  ax-addrcl 7442  ax-mulcl 7443  ax-mulrcl 7444  ax-addcom 7445  ax-mulcom 7446  ax-addass 7447  ax-mulass 7448  ax-distr 7449  ax-i2m1 7450  ax-0lt1 7451  ax-1rid 7452  ax-0id 7453  ax-rnegex 7454  ax-precex 7455  ax-cnre 7456  ax-pre-ltirr 7457  ax-pre-ltwlin 7458  ax-pre-lttrn 7459  ax-pre-apti 7460  ax-pre-ltadd 7461  ax-pre-mulgt0 7462  ax-pre-mulext 7463  ax-arch 7464  ax-caucvg 7465

This theorem depends on definitions:  df-bi 115  df-dc 781  df-3or 925  df-3an 926  df-tru 1292  df-fal 1295  df-nf 1395  df-sb 1693  df-eu 1951  df-mo 1952  df-clab 2075  df-cleq 2081  df-clel 2084  df-nfc 2217  df-ne 2256  df-nel 2351  df-ral 2364  df-rex 2365  df-reu 2366  df-rmo 2367  df-rab 2368  df-v 2621  df-sbc 2841  df-csb 2934  df-dif 3001  df-un 3003  df-in 3005  df-ss 3012  df-nul 3287  df-if 3394  df-pw 3431  df-sn 3452  df-pr 3453  df-op 3455  df-uni 3654  df-int 3689  df-iun 3732  df-br 3846  df-opab 3900  df-mpt 3901  df-tr 3937  df-id 4120  df-po 4123  df-iso 4124  df-iord 4193  df-on 4195  df-ilim 4196  df-suc 4198  df-iom 4406  df-xp 4444  df-rel 4445  df-cnv 4446  df-co 4447  df-dm 4448  df-rn 4449  df-res 4450  df-ima 4451  df-iota 4980  df-fun 5017  df-fn 5018  df-f 5019  df-f1 5020  df-fo 5021  df-f1o 5022  df-fv 5023  df-isom 5024  df-riota 5608  df-ov 5655  df-oprab 5656  df-mpt2 5657  df-1st 5911  df-2nd 5912  df-recs 6070  df-irdg 6135  df-frec 6156  df-1o 6181  df-oadd 6185  df-er 6292  df-en 6458  df-dom 6459  df-fin 6460  df-pnf 7524  df-mnf 7525  df-xr 7526  df-ltxr 7527  df-le 7528  df-sub 7655  df-neg 7656  df-reap 8052  df-ap 8059  df-div 8140  df-inn 8423  df-2 8481  df-3 8482  df-4 8483  df-n0 8674  df-z 8751  df-uz 9020  df-q 9105  df-rp 9135  df-fz 9425  df-fzo 9554  df-iseq 9853  df-seq3 9854  df-exp 9955  df-ihash 10184  df-cj 10276  df-re 10277  df-im 10278  df-rsqrt 10431  df-abs 10432  df-clim 10667  df-isum 10743

This theorem is referenced by:  fsum3ser  10791  isumclim3  10817