Metamath Proof Explorer


Theorem geolim2

Description: The partial sums in the geometric series A ^ M + A ^ ( M + 1 ) ... converge to ( ( A ^ M ) / ( 1 - A ) ) . (Contributed by NM, 6-Jun-2006) (Revised by Mario Carneiro, 26-Apr-2014)

Ref Expression
Hypotheses geolim.1 ⊢ φ → A ∈ ℂ
geolim.2 ⊢ φ → A < 1
geolim2.3 ⊢ φ → M ∈ ℕ 0
geolim2.4 ⊢ φ ∧ k ∈ ℤ ≥ M → F ⁡ k = A k
Assertion geolim2 ⊢ φ → seq M + F ⇝ A M 1 − A

Proof

Step Hyp Ref Expression
1 geolim.1 ⊢ φ → A ∈ ℂ
2 geolim.2 ⊢ φ → A < 1
3 geolim2.3 ⊢ φ → M ∈ ℕ 0
4 geolim2.4 ⊢ φ ∧ k ∈ ℤ ≥ M → F ⁡ k = A k
5 eqid ⊢ ℤ ≥ M = ℤ ≥ M
6 3 nn0zd ⊢ φ → M ∈ ℤ
7 1 adantr ⊢ φ ∧ k ∈ ℤ ≥ M → A ∈ ℂ
8 eluznn0 ⊢ M ∈ ℕ 0 ∧ k ∈ ℤ ≥ M → k ∈ ℕ 0
9 3 8 sylan ⊢ φ ∧ k ∈ ℤ ≥ M → k ∈ ℕ 0
10 7 9 expcld ⊢ φ ∧ k ∈ ℤ ≥ M → A k ∈ ℂ
11 oveq2 ⊢ n = k → A n = A k
12 eqid ⊢ n ∈ ℕ 0 ⟼ A n = n ∈ ℕ 0 ⟼ A n
13 ovex ⊢ A k ∈ V
14 11 12 13 fvmpt ⊢ k ∈ ℕ 0 → n ∈ ℕ 0 ⟼ A n ⁡ k = A k
15 9 14 syl ⊢ φ ∧ k ∈ ℤ ≥ M → n ∈ ℕ 0 ⟼ A n ⁡ k = A k
16 15 4 eqtr4d ⊢ φ ∧ k ∈ ℤ ≥ M → n ∈ ℕ 0 ⟼ A n ⁡ k = F ⁡ k
17 6 16 seqfeq ⊢ φ → seq M + n ∈ ℕ 0 ⟼ A n = seq M + F
18 oveq2 ⊢ n = j → A n = A j
19 ovex ⊢ A j ∈ V
20 18 12 19 fvmpt ⊢ j ∈ ℕ 0 → n ∈ ℕ 0 ⟼ A n ⁡ j = A j
21 20 adantl ⊢ φ ∧ j ∈ ℕ 0 → n ∈ ℕ 0 ⟼ A n ⁡ j = A j
22 1 2 21 geolim ⊢ φ → seq 0 + n ∈ ℕ 0 ⟼ A n ⇝ 1 1 − A
23 seqex ⊢ seq 0 + n ∈ ℕ 0 ⟼ A n ∈ V
24 ovex ⊢ 1 1 − A ∈ V
25 23 24 breldm ⊢ seq 0 + n ∈ ℕ 0 ⟼ A n ⇝ 1 1 − A → seq 0 + n ∈ ℕ 0 ⟼ A n ∈ dom ⁡ ⇝
26 22 25 syl ⊢ φ → seq 0 + n ∈ ℕ 0 ⟼ A n ∈ dom ⁡ ⇝
27 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
28 expcl ⊢ A ∈ ℂ ∧ j ∈ ℕ 0 → A j ∈ ℂ
29 1 28 sylan ⊢ φ ∧ j ∈ ℕ 0 → A j ∈ ℂ
30 21 29 eqeltrd ⊢ φ ∧ j ∈ ℕ 0 → n ∈ ℕ 0 ⟼ A n ⁡ j ∈ ℂ
31 27 3 30 iserex ⊢ φ → seq 0 + n ∈ ℕ 0 ⟼ A n ∈ dom ⁡ ⇝ ↔ seq M + n ∈ ℕ 0 ⟼ A n ∈ dom ⁡ ⇝
32 26 31 mpbid ⊢ φ → seq M + n ∈ ℕ 0 ⟼ A n ∈ dom ⁡ ⇝
33 17 32 eqeltrrd ⊢ φ → seq M + F ∈ dom ⁡ ⇝
34 5 6 4 10 33 isumclim2 ⊢ φ → seq M + F ⇝ ∑ k ∈ ℤ ≥ M A k
35 14 adantl ⊢ φ ∧ k ∈ ℕ 0 → n ∈ ℕ 0 ⟼ A n ⁡ k = A k
36 expcl ⊢ A ∈ ℂ ∧ k ∈ ℕ 0 → A k ∈ ℂ
37 1 36 sylan ⊢ φ ∧ k ∈ ℕ 0 → A k ∈ ℂ
38 27 5 3 35 37 26 isumsplit ⊢ φ → ∑ k ∈ ℕ 0 A k = ∑ k = 0 M − 1 A k + ∑ k ∈ ℤ ≥ M A k
39 0zd ⊢ φ → 0 ∈ ℤ
40 27 39 35 37 22 isumclim ⊢ φ → ∑ k ∈ ℕ 0 A k = 1 1 − A
41 38 40 eqtr3d ⊢ φ → ∑ k = 0 M − 1 A k + ∑ k ∈ ℤ ≥ M A k = 1 1 − A
42 1re ⊢ 1 ∈ ℝ
43 42 ltnri ⊢ ¬ 1 < 1
44 fveq2 ⊢ A = 1 → A = 1
45 abs1 ⊢ 1 = 1
46 44 45 eqtrdi ⊢ A = 1 → A = 1
47 46 breq1d ⊢ A = 1 → A < 1 ↔ 1 < 1
48 43 47 mtbiri ⊢ A = 1 → ¬ A < 1
49 48 necon2ai ⊢ A < 1 → A ≠ 1
50 2 49 syl ⊢ φ → A ≠ 1
51 1 50 3 geoser ⊢ φ → ∑ k = 0 M − 1 A k = 1 − A M 1 − A
52 51 oveq1d ⊢ φ → ∑ k = 0 M − 1 A k + ∑ k ∈ ℤ ≥ M A k = 1 − A M 1 − A + ∑ k ∈ ℤ ≥ M A k
53 41 52 eqtr3d ⊢ φ → 1 1 − A = 1 − A M 1 − A + ∑ k ∈ ℤ ≥ M A k
54 53 oveq1d ⊢ φ → 1 1 − A − 1 − A M 1 − A = 1 − A M 1 − A + ∑ k ∈ ℤ ≥ M A k - 1 − A M 1 − A
55 1cnd ⊢ φ → 1 ∈ ℂ
56 ax-1cn ⊢ 1 ∈ ℂ
57 1 3 expcld ⊢ φ → A M ∈ ℂ
58 subcl ⊢ 1 ∈ ℂ ∧ A M ∈ ℂ → 1 − A M ∈ ℂ
59 56 57 58 sylancr ⊢ φ → 1 − A M ∈ ℂ
60 subcl ⊢ 1 ∈ ℂ ∧ A ∈ ℂ → 1 − A ∈ ℂ
61 56 1 60 sylancr ⊢ φ → 1 − A ∈ ℂ
62 50 necomd ⊢ φ → 1 ≠ A
63 subeq0 ⊢ 1 ∈ ℂ ∧ A ∈ ℂ → 1 − A = 0 ↔ 1 = A
64 56 1 63 sylancr ⊢ φ → 1 − A = 0 ↔ 1 = A
65 64 necon3bid ⊢ φ → 1 − A ≠ 0 ↔ 1 ≠ A
66 62 65 mpbird ⊢ φ → 1 − A ≠ 0
67 55 59 61 66 divsubdird ⊢ φ → 1 − 1 − A M 1 − A = 1 1 − A − 1 − A M 1 − A
68 nncan ⊢ 1 ∈ ℂ ∧ A M ∈ ℂ → 1 − 1 − A M = A M
69 56 57 68 sylancr ⊢ φ → 1 − 1 − A M = A M
70 69 oveq1d ⊢ φ → 1 − 1 − A M 1 − A = A M 1 − A
71 67 70 eqtr3d ⊢ φ → 1 1 − A − 1 − A M 1 − A = A M 1 − A
72 59 61 66 divcld ⊢ φ → 1 − A M 1 − A ∈ ℂ
73 5 6 15 10 32 isumcl ⊢ φ → ∑ k ∈ ℤ ≥ M A k ∈ ℂ
74 72 73 pncan2d ⊢ φ → 1 − A M 1 − A + ∑ k ∈ ℤ ≥ M A k - 1 − A M 1 − A = ∑ k ∈ ℤ ≥ M A k
75 54 71 74 3eqtr3rd ⊢ φ → ∑ k ∈ ℤ ≥ M A k = A M 1 − A
76 34 75 breqtrd ⊢ φ → seq M + F ⇝ A M 1 − A