Metamath Proof Explorer


Theorem esumpad

Description: Extend an extended sum by padding outside with zeroes. (Contributed by Thierry Arnoux, 31-May-2020)

Ref Expression
Hypotheses esumpad.1 φ A V
esumpad.2 φ B W
esumpad.3 φ k A C 0 +∞
esumpad.4 φ k B C = 0
Assertion esumpad φ * k A B C = * k A C

Proof

Step Hyp Ref Expression
1 esumpad.1 φ A V
2 esumpad.2 φ B W
3 esumpad.3 φ k A C 0 +∞
4 esumpad.4 φ k B C = 0
5 nfv k φ
6 nfcv _ k A
7 nfcv _ k B A
8 elex A V A V
9 1 8 syl φ A V
10 difexg B W B A V
11 2 10 syl φ B A V
12 disjdif A B A =
13 12 a1i φ A B A =
14 difssd φ B A B
15 14 sselda φ k B A k B
16 0e0iccpnf 0 0 +∞
17 4 16 eqeltrdi φ k B C 0 +∞
18 15 17 syldan φ k B A C 0 +∞
19 5 6 7 9 11 13 3 18 esumsplit φ * k A B A C = * k A C + 𝑒 * k B A C
20 undif2 A B A = A B
21 esumeq1 A B A = A B * k A B A C = * k A B C
22 20 21 ax-mp * k A B A C = * k A B C
23 22 a1i φ * k A B A C = * k A B C
24 15 4 syldan φ k B A C = 0
25 24 ralrimiva φ k B A C = 0
26 5 25 esumeq2d φ * k B A C = * k B A 0
27 7 esum0 B A V * k B A 0 = 0
28 11 27 syl φ * k B A 0 = 0
29 26 28 eqtrd φ * k B A C = 0
30 29 oveq2d φ * k A C + 𝑒 * k B A C = * k A C + 𝑒 0
31 iccssxr 0 +∞ *
32 3 ralrimiva φ k A C 0 +∞
33 6 esumcl A V k A C 0 +∞ * k A C 0 +∞
34 1 32 33 syl2anc φ * k A C 0 +∞
35 31 34 sseldi φ * k A C *
36 xaddid1 * k A C * * k A C + 𝑒 0 = * k A C
37 35 36 syl φ * k A C + 𝑒 0 = * k A C
38 30 37 eqtrd φ * k A C + 𝑒 * k B A C = * k A C
39 19 23 38 3eqtr3d φ * k A B C = * k A C