HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem fsum1ps 6907
Description: Separate out the first term in a finite sum.
Assertion
Ref Expression
fsum1ps |- ((N e. (ZZ>` M) /\ M < N /\ A.k e. (M...N)A e. CC) -> sum_k e. (M...N)A = ([_M / k]_A + sum_k e. ((M + 1)...N)A))
Distinct variable groups:   k,M   k,N

Proof of Theorem fsum1ps
StepHypRef Expression
1 opreq2 3908 . . . . . . 7 |- (j = (M + 1) -> (M...j) = (M...(M + 1)))
21raleq1d 1765 . . . . . 6 |- (j = (M + 1) -> (A.k e. (M...j)A e. CC <-> A.k e. (M...(M + 1))A e. CC))
31sumeq1d 6879 . . . . . . 7 |- (j = (M + 1) -> sum_k e. (M...j)A = sum_k e. (M...(M + 1))A)
4 opreq2 3908 . . . . . . . . 9 |- (j = (M + 1) -> ((M + 1)...j) = ((M + 1)...(M + 1)))
54sumeq1d 6879 . . . . . . . 8 |- (j = (M + 1) -> sum_k e. ((M + 1)...j)A = sum_k e. ((M + 1)...(M + 1))A)
65opreq2d 3915 . . . . . . 7 |- (j = (M + 1) -> ([_M / k]_A + sum_k e. ((M + 1)...j)A) = ([_M / k]_A + sum_k e. ((M + 1)...(M + 1))A))
73, 6eqeq12d 1465 . . . . . 6 |- (j = (M + 1) -> (sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A) <-> sum_k e. (M...(M + 1))A = ([_M / k]_A + sum_k e. ((M + 1)...(M + 1))A)))
82, 7imbi12d 624 . . . . 5 |- (j = (M + 1) -> ((A.k e. (M...j)A e. CC -> sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A)) <-> (A.k e. (M...(M + 1))A e. CC -> sum_k e. (M...(M + 1))A = ([_M / k]_A + sum_k e. ((M + 1)...(M + 1))A))))
9 opreq2 3908 . . . . . . 7 |- (j = m -> (M...j) = (M...m))
109raleq1d 1765 . . . . . 6 |- (j = m -> (A.k e. (M...j)A e. CC <-> A.k e. (M...m)A e. CC))
119sumeq1d 6879 . . . . . . 7 |- (j = m -> sum_k e. (M...j)A = sum_k e. (M...m)A)
12 opreq2 3908 . . . . . . . . 9 |- (j = m -> ((M + 1)...j) = ((M + 1)...m))
1312sumeq1d 6879 . . . . . . . 8 |- (j = m -> sum_k e. ((M + 1)...j)A = sum_k e. ((M + 1)...m)A)
1413opreq2d 3915 . . . . . . 7 |- (j = m -> ([_M / k]_A + sum_k e. ((M + 1)...j)A) = ([_M / k]_A + sum_k e. ((M + 1)...m)A))
1511, 14eqeq12d 1465 . . . . . 6 |- (j = m -> (sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A) <-> sum_k e. (M...m)A = ([_M / k]_A + sum_k e. ((M + 1)...m)A)))
1610, 15imbi12d 624 . . . . 5 |- (j = m -> ((A.k e. (M...j)A e. CC -> sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A)) <-> (A.k e. (M...m)A e. CC -> sum_k e. (M...m)A = ([_M / k]_A + sum_k e. ((M + 1)...m)A))))
17 opreq2 3908 . . . . . . 7 |- (j = (m + 1) -> (M...j) = (M...(m + 1)))
1817raleq1d 1765 . . . . . 6 |- (j = (m + 1) -> (A.k e. (M...j)A e. CC <-> A.k e. (M...(m + 1))A e. CC))
1917sumeq1d 6879 . . . . . . 7 |- (j = (m + 1) -> sum_k e. (M...j)A = sum_k e. (M...(m + 1))A)
20 opreq2 3908 . . . . . . . . 9 |- (j = (m + 1) -> ((M + 1)...j) = ((M + 1)...(m + 1)))
2120sumeq1d 6879 . . . . . . . 8 |- (j = (m + 1) -> sum_k e. ((M + 1)...j)A = sum_k e. ((M + 1)...(m + 1))A)
2221opreq2d 3915 . . . . . . 7 |- (j = (m + 1) -> ([_M / k]_A + sum_k e. ((M + 1)...j)A) = ([_M / k]_A + sum_k e. ((M + 1)...(m + 1))A))
2319, 22eqeq12d 1465 . . . . . 6 |- (j = (m + 1) -> (sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A) <-> sum_k e. (M...(m + 1))A = ([_M / k]_A + sum_k e. ((M + 1)...(m + 1))A)))
2418, 23imbi12d 624 . . . . 5 |- (j = (m + 1) -> ((A.k e. (M...j)A e. CC -> sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A)) <-> (A.k e. (M...(m + 1))A e. CC -> sum_k e. (M...(m + 1))A = ([_M / k]_A + sum_k e. ((M + 1)...(m + 1))A))))
25 opreq2 3908 . . . . . . 7 |- (j = N -> (M...j) = (M...N))
2625raleq1d 1765 . . . . . 6 |- (j = N -> (A.k e. (M...j)A e. CC <-> A.k e. (M...N)A e. CC))
2725sumeq1d 6879 . . . . . . 7 |- (j = N -> sum_k e. (M...j)A = sum_k e. (M...N)A)
28 opreq2 3908 . . . . . . . . 9 |- (j = N -> ((M + 1)...j) = ((M + 1)...N))
2928sumeq1d 6879 . . . . . . . 8 |- (j = N -> sum_k e. ((M + 1)...j)A = sum_k e. ((M + 1)...N)A)
3029opreq2d 3915 . . . . . . 7 |- (j = N -> ([_M / k]_A + sum_k e. ((M + 1)...j)A) = ([_M / k]_A + sum_k e. ((M + 1)...N)A))
3127, 30eqeq12d 1465 . . . . . 6 |- (j = N -> (sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A) <-> sum_k e. (M...N)A = ([_M / k]_A + sum_k e. ((M + 1)...N)A)))
3226, 31imbi12d 624 . . . . 5 |- (j = N -> ((A.k e. (M...j)A e. CC -> sum_k e. (M...j)A = ([_M / k]_A + sum_k e. ((M + 1)...j)A)) <-> (A.k e. (M...N)A e. CC -> sum_k e. (M...N)A = ([_M / k]_A + sum_k e. ((M + 1)...N)A))))
33 fsump1s 6902 . . . . . . . 8 |- ((M e. (ZZ>` M) /\ A.k e. (M...(M + 1))A e. CC) -> sum_k e. (M...(M + 1))A = (sum_k e. (M...M)A + [_(M + 1) / k]_A))
34 uzidt 6310 . . . . . . . 8 |- (M e. ZZ -> M e. (ZZ>` M))
3533, 34sylan 448 . . . . . . 7 |- ((M e. ZZ /\ A.k e. (M...(M + 1))A e. CC) -> sum_k e. (M...(M + 1))A = (sum_k e. (M...M)A + [_(M + 1) / k]_A))
36 fzssp1t 6389 . . . . . . . . . . . . . . 15 |- ((M e. ZZ /\ M e. ZZ) -> (M...M) (_ (M...(M + 1)))
3736anidms 434 . . . . . . . . . . . . . 14 |- (M e. ZZ -> (M...M) (_ (M...(M + 1)))
3837sseld 2038 . . . . . . . . . . . . 13 |- (M e. ZZ -> (k e. (M...M) -> k e. (M...(M + 1))))
3938imim1d 28 . . . . . . . . . . . 12 |- (M e. ZZ -> ((k e. (M...(M + 1)) -> A e. CC) -> (k e. (M...M) -> A e. CC)))
4039r19.20dv2 1687 . . . . . . . . . . 11 |- (M e. ZZ -> (A.k e. (M...(M + 1))A e. CC -> A.k e. (M...M)A e. CC))
4140imp 350 . . . . . . . . . 10 |- ((M e. ZZ /\ A.k e. (M...(M + 1))A e. CC) -> A.k e. (M...M)A e. CC)
42 fsum1s 6898 . . . . . . . . . 10 |- ((M e. ZZ /\ A.k e. (M...M)A e. CC) -> sum_k e. (M...M)A = [_M / k]_A)
4341, 42syldan 467 . . . . . . . . 9 |- ((M e. ZZ /\ A.k e. (M...(M + 1))A e. CC) -> sum_k e. (M...M)A = [_M / k]_A)
4443eqcomd 1456 . . . . . . . 8 |- ((M e. ZZ