Metamath Proof Explorer


Theorem zsum

Description: Series sum with index set a subset of the upper integers. (Contributed by Mario Carneiro, 13-Jun-2019)

Ref Expression
Hypotheses zsum.1 ⊢ Z = ℤ ≥ M
zsum.2 ⊢ φ → M ∈ ℤ
zsum.3 ⊢ φ → A ⊆ Z
zsum.4 ⊢ φ ∧ k ∈ Z → F ⁡ k = if k ∈ A B 0
zsum.5 ⊢ φ ∧ k ∈ A → B ∈ ℂ
Assertion zsum ⊢ φ → ∑ k ∈ A B = ⇝ ⁡ seq M + F

Proof

Step Hyp Ref Expression
1 zsum.1 ⊢ Z = ℤ ≥ M
2 zsum.2 ⊢ φ → M ∈ ℤ
3 zsum.3 ⊢ φ → A ⊆ Z
4 zsum.4 ⊢ φ ∧ k ∈ Z → F ⁡ k = if k ∈ A B 0
5 zsum.5 ⊢ φ ∧ k ∈ A → B ∈ ℂ
6 eleq1w ⊢ n = i → n ∈ A ↔ i ∈ A
7 csbeq1 ⊢ n = i → ⦋ n / k⦌ B = ⦋ i / k⦌ B
8 6 7 ifbieq1d ⊢ n = i → if n ∈ A ⦋ n / k⦌ B 0 = if i ∈ A ⦋ i / k⦌ B 0
9 8 cbvmptv ⊢ n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 = i ∈ ℤ ⟼ if i ∈ A ⦋ i / k⦌ B 0
10 simpll ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → φ
11 5 ralrimiva ⊢ φ → ∀ k ∈ A B ∈ ℂ
12 nfcsb1v ⊢ Ⅎ _ k ⦋ i / k⦌ B
13 12 nfel1 ⊢ Ⅎ k ⦋ i / k⦌ B ∈ ℂ
14 csbeq1a ⊢ k = i → B = ⦋ i / k⦌ B
15 14 eleq1d ⊢ k = i → B ∈ ℂ ↔ ⦋ i / k⦌ B ∈ ℂ
16 13 15 rspc ⊢ i ∈ A → ∀ k ∈ A B ∈ ℂ → ⦋ i / k⦌ B ∈ ℂ
17 11 16 syl5 ⊢ i ∈ A → φ → ⦋ i / k⦌ B ∈ ℂ
18 10 17 mpan9 ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m ∧ i ∈ A → ⦋ i / k⦌ B ∈ ℂ
19 simplr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → m ∈ ℤ
20 2 ad2antrr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → M ∈ ℤ
21 simpr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → A ⊆ ℤ ≥ m
22 3 1 sseqtrdi ⊢ φ → A ⊆ ℤ ≥ M
23 22 ad2antrr ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → A ⊆ ℤ ≥ M
24 9 18 19 20 21 23 sumrb ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
25 24 biimpd ⊢ φ ∧ m ∈ ℤ ∧ A ⊆ ℤ ≥ m → seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
26 25 expimpd ⊢ φ ∧ m ∈ ℤ → A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
27 26 rexlimdva ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
28 3 ad2antrr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → A ⊆ Z
29 uzssz ⊢ ℤ ≥ M ⊆ ℤ
30 1 29 eqsstri ⊢ Z ⊆ ℤ
31 zssre ⊢ ℤ ⊆ ℝ
32 30 31 sstri ⊢ Z ⊆ ℝ
33 ltso ⊢ < Or ℝ
34 soss ⊢ Z ⊆ ℝ → < Or ℝ → < Or Z
35 32 33 34 mp2 ⊢ < Or Z
36 soss ⊢ A ⊆ Z → < Or Z → < Or A
37 28 35 36 mpisyl ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → < Or A
38 fzfi ⊢ 1 … m ∈ Fin
39 ovex ⊢ 1 … m ∈ V
40 39 f1oen ⊢ f : 1 … m ⟶ 1-1 onto A → 1 … m ≈ A
41 40 adantl ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → 1 … m ≈ A
42 41 ensymd ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → A ≈ 1 … m
43 enfii ⊢ 1 … m ∈ Fin ∧ A ≈ 1 … m → A ∈ Fin
44 38 42 43 sylancr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → A ∈ Fin
45 fz1iso ⊢ < Or A ∧ A ∈ Fin → ∃ g g Isom < , < 1 … A A
46 37 44 45 syl2anc ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → ∃ g g Isom < , < 1 … A A
47 simpll ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → φ
48 47 17 mpan9 ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A ∧ i ∈ A → ⦋ i / k⦌ B ∈ ℂ
49 fveq2 ⊢ n = j → f ⁡ n = f ⁡ j
50 49 csbeq1d ⊢ n = j → ⦋ f ⁡ n / k⦌ B = ⦋ f ⁡ j / k⦌ B
51 csbcow ⊢ ⦋ f ⁡ j / i⦌ ⦋ i / k⦌ B = ⦋ f ⁡ j / k⦌ B
52 50 51 eqtr4di ⊢ n = j → ⦋ f ⁡ n / k⦌ B = ⦋ f ⁡ j / i⦌ ⦋ i / k⦌ B
53 52 cbvmptv ⊢ n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B = j ∈ ℕ ⟼ ⦋ f ⁡ j / i⦌ ⦋ i / k⦌ B
54 eqid ⊢ j ∈ ℕ ⟼ ⦋ g ⁡ j / i⦌ ⦋ i / k⦌ B = j ∈ ℕ ⟼ ⦋ g ⁡ j / i⦌ ⦋ i / k⦌ B
55 simplr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → m ∈ ℕ
56 2 ad2antrr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → M ∈ ℤ
57 22 ad2antrr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → A ⊆ ℤ ≥ M
58 simprl ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → f : 1 … m ⟶ 1-1 onto A
59 simprr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → g Isom < , < 1 … A A
60 9 48 53 54 55 56 57 58 59 summolem2a ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A ∧ g Isom < , < 1 … A A → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
61 60 expr ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → g Isom < , < 1 … A A → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
62 61 exlimdv ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → ∃ g g Isom < , < 1 … A A → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
63 46 62 mpd ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
64 breq2 ⊢ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
65 63 64 syl5ibrcom ⊢ φ ∧ m ∈ ℕ ∧ f : 1 … m ⟶ 1-1 onto A → x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
66 65 expimpd ⊢ φ ∧ m ∈ ℕ → f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
67 66 exlimdv ⊢ φ ∧ m ∈ ℕ → ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
68 67 rexlimdva ⊢ φ → ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
69 27 68 jaod ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
70 2 adantr ⊢ φ ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → M ∈ ℤ
71 22 adantr ⊢ φ ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → A ⊆ ℤ ≥ M
72 simpr ⊢ φ ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
73 fveq2 ⊢ m = M → ℤ ≥ m = ℤ ≥ M
74 73 sseq2d ⊢ m = M → A ⊆ ℤ ≥ m ↔ A ⊆ ℤ ≥ M
75 seqeq1 ⊢ m = M → seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 = seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0
76 75 breq1d ⊢ m = M → seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
77 74 76 anbi12d ⊢ m = M → A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ A ⊆ ℤ ≥ M ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
78 77 rspcev ⊢ M ∈ ℤ ∧ A ⊆ ℤ ≥ M ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
79 70 71 72 78 syl12anc ⊢ φ ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
80 79 orcd ⊢ φ ∧ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
81 80 ex ⊢ φ → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
82 69 81 impbid ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x
83 simpr ⊢ φ ∧ j ∈ ℤ ≥ M → j ∈ ℤ ≥ M
84 29 83 sselid ⊢ φ ∧ j ∈ ℤ ≥ M → j ∈ ℤ
85 83 1 eleqtrrdi ⊢ φ ∧ j ∈ ℤ ≥ M → j ∈ Z
86 4 ralrimiva ⊢ φ → ∀ k ∈ Z F ⁡ k = if k ∈ A B 0
87 86 adantr ⊢ φ ∧ j ∈ ℤ ≥ M → ∀ k ∈ Z F ⁡ k = if k ∈ A B 0
88 nfcsb1v ⊢ Ⅎ _ k ⦋ j / k⦌ if k ∈ A B 0
89 88 nfeq2 ⊢ Ⅎ k F ⁡ j = ⦋ j / k⦌ if k ∈ A B 0
90 fveq2 ⊢ k = j → F ⁡ k = F ⁡ j
91 csbeq1a ⊢ k = j → if k ∈ A B 0 = ⦋ j / k⦌ if k ∈ A B 0
92 90 91 eqeq12d ⊢ k = j → F ⁡ k = if k ∈ A B 0 ↔ F ⁡ j = ⦋ j / k⦌ if k ∈ A B 0
93 89 92 rspc ⊢ j ∈ Z → ∀ k ∈ Z F ⁡ k = if k ∈ A B 0 → F ⁡ j = ⦋ j / k⦌ if k ∈ A B 0
94 85 87 93 sylc ⊢ φ ∧ j ∈ ℤ ≥ M → F ⁡ j = ⦋ j / k⦌ if k ∈ A B 0
95 fvex ⊢ F ⁡ j ∈ V
96 94 95 eqeltrrdi ⊢ φ ∧ j ∈ ℤ ≥ M → ⦋ j / k⦌ if k ∈ A B 0 ∈ V
97 nfcv ⊢ Ⅎ _ n if k ∈ A B 0
98 nfv ⊢ Ⅎ k n ∈ A
99 nfcsb1v ⊢ Ⅎ _ k ⦋ n / k⦌ B
100 nfcv ⊢ Ⅎ _ k 0
101 98 99 100 nfif ⊢ Ⅎ _ k if n ∈ A ⦋ n / k⦌ B 0
102 eleq1w ⊢ k = n → k ∈ A ↔ n ∈ A
103 csbeq1a ⊢ k = n → B = ⦋ n / k⦌ B
104 102 103 ifbieq1d ⊢ k = n → if k ∈ A B 0 = if n ∈ A ⦋ n / k⦌ B 0
105 97 101 104 cbvmpt ⊢ k ∈ ℤ ⟼ if k ∈ A B 0 = n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0
106 105 eqcomi ⊢ n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 = k ∈ ℤ ⟼ if k ∈ A B 0
107 106 fvmpts ⊢ j ∈ ℤ ∧ ⦋ j / k⦌ if k ∈ A B 0 ∈ V → n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⁡ j = ⦋ j / k⦌ if k ∈ A B 0
108 84 96 107 syl2anc ⊢ φ ∧ j ∈ ℤ ≥ M → n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⁡ j = ⦋ j / k⦌ if k ∈ A B 0
109 108 94 eqtr4d ⊢ φ ∧ j ∈ ℤ ≥ M → n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⁡ j = F ⁡ j
110 2 109 seqfeq ⊢ φ → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 = seq M + F
111 110 breq1d ⊢ φ → seq M + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ↔ seq M + F ⇝ x
112 82 111 bitrd ⊢ φ → ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m ↔ seq M + F ⇝ x
113 112 iotabidv ⊢ φ → ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m = ι x | seq M + F ⇝ x
114 df-sum ⊢ ∑ k ∈ A B = ι x | ∃ m ∈ ℤ A ⊆ ℤ ≥ m ∧ seq m + n ∈ ℤ ⟼ if n ∈ A ⦋ n / k⦌ B 0 ⇝ x ∨ ∃ m ∈ ℕ ∃ f f : 1 … m ⟶ 1-1 onto A ∧ x = seq 1 + n ∈ ℕ ⟼ ⦋ f ⁡ n / k⦌ B ⁡ m
115 df-fv ⊢ ⇝ ⁡ seq M + F = ι x | seq M + F ⇝ x
116 113 114 115 3eqtr4g ⊢ φ → ∑ k ∈ A B = ⇝ ⁡ seq M + F