Metamath Proof Explorer


Theorem geo2lim

Description: The value of the infinite geometric series 2 ^ -u 1 + 2 ^ -u 2 + ... , multiplied by a constant. (Contributed by Mario Carneiro, 15-Jun-2014)

Ref Expression
Hypothesis geo2lim.1 ⊢ F = k ∈ ℕ ⟼ A 2 k
Assertion geo2lim ⊢ A ∈ ℂ → seq 1 + F ⇝ A

Proof

Step Hyp Ref Expression
1 geo2lim.1 ⊢ F = k ∈ ℕ ⟼ A 2 k
2 nnuz ⊢ ℕ = ℤ ≥ 1
3 1zzd ⊢ A ∈ ℂ → 1 ∈ ℤ
4 halfcn ⊢ 1 2 ∈ ℂ
5 4 a1i ⊢ A ∈ ℂ → 1 2 ∈ ℂ
6 halfre ⊢ 1 2 ∈ ℝ
7 halfge0 ⊢ 0 ≤ 1 2
8 absid ⊢ 1 2 ∈ ℝ ∧ 0 ≤ 1 2 → 1 2 = 1 2
9 6 7 8 mp2an ⊢ 1 2 = 1 2
10 halflt1 ⊢ 1 2 < 1
11 9 10 eqbrtri ⊢ 1 2 < 1
12 11 a1i ⊢ A ∈ ℂ → 1 2 < 1
13 5 12 expcnv ⊢ A ∈ ℂ → k ∈ ℕ 0 ⟼ 1 2 k ⇝ 0
14 id ⊢ A ∈ ℂ → A ∈ ℂ
15 nnex ⊢ ℕ ∈ V
16 15 mptex ⊢ k ∈ ℕ ⟼ A 2 k ∈ V
17 1 16 eqeltri ⊢ F ∈ V
18 17 a1i ⊢ A ∈ ℂ → F ∈ V
19 nnnn0 ⊢ j ∈ ℕ → j ∈ ℕ 0
20 19 adantl ⊢ A ∈ ℂ ∧ j ∈ ℕ → j ∈ ℕ 0
21 oveq2 ⊢ k = j → 1 2 k = 1 2 j
22 eqid ⊢ k ∈ ℕ 0 ⟼ 1 2 k = k ∈ ℕ 0 ⟼ 1 2 k
23 ovex ⊢ 1 2 j ∈ V
24 21 22 23 fvmpt ⊢ j ∈ ℕ 0 → k ∈ ℕ 0 ⟼ 1 2 k ⁡ j = 1 2 j
25 20 24 syl ⊢ A ∈ ℂ ∧ j ∈ ℕ → k ∈ ℕ 0 ⟼ 1 2 k ⁡ j = 1 2 j
26 2cn ⊢ 2 ∈ ℂ
27 2ne0 ⊢ 2 ≠ 0
28 nnz ⊢ j ∈ ℕ → j ∈ ℤ
29 28 adantl ⊢ A ∈ ℂ ∧ j ∈ ℕ → j ∈ ℤ
30 exprec ⊢ 2 ∈ ℂ ∧ 2 ≠ 0 ∧ j ∈ ℤ → 1 2 j = 1 2 j
31 26 27 29 30 mp3an12i ⊢ A ∈ ℂ ∧ j ∈ ℕ → 1 2 j = 1 2 j
32 25 31 eqtrd ⊢ A ∈ ℂ ∧ j ∈ ℕ → k ∈ ℕ 0 ⟼ 1 2 k ⁡ j = 1 2 j
33 2nn ⊢ 2 ∈ ℕ
34 nnexpcl ⊢ 2 ∈ ℕ ∧ j ∈ ℕ 0 → 2 j ∈ ℕ
35 33 20 34 sylancr ⊢ A ∈ ℂ ∧ j ∈ ℕ → 2 j ∈ ℕ
36 35 nnrecred ⊢ A ∈ ℂ ∧ j ∈ ℕ → 1 2 j ∈ ℝ
37 36 recnd ⊢ A ∈ ℂ ∧ j ∈ ℕ → 1 2 j ∈ ℂ
38 32 37 eqeltrd ⊢ A ∈ ℂ ∧ j ∈ ℕ → k ∈ ℕ 0 ⟼ 1 2 k ⁡ j ∈ ℂ
39 simpl ⊢ A ∈ ℂ ∧ j ∈ ℕ → A ∈ ℂ
40 35 nncnd ⊢ A ∈ ℂ ∧ j ∈ ℕ → 2 j ∈ ℂ
41 35 nnne0d ⊢ A ∈ ℂ ∧ j ∈ ℕ → 2 j ≠ 0
42 39 40 41 divrecd ⊢ A ∈ ℂ ∧ j ∈ ℕ → A 2 j = A ⁢ 1 2 j
43 oveq2 ⊢ k = j → 2 k = 2 j
44 43 oveq2d ⊢ k = j → A 2 k = A 2 j
45 ovex ⊢ A 2 j ∈ V
46 44 1 45 fvmpt ⊢ j ∈ ℕ → F ⁡ j = A 2 j
47 46 adantl ⊢ A ∈ ℂ ∧ j ∈ ℕ → F ⁡ j = A 2 j
48 32 oveq2d ⊢ A ∈ ℂ ∧ j ∈ ℕ → A ⁢ k ∈ ℕ 0 ⟼ 1 2 k ⁡ j = A ⁢ 1 2 j
49 42 47 48 3eqtr4d ⊢ A ∈ ℂ ∧ j ∈ ℕ → F ⁡ j = A ⁢ k ∈ ℕ 0 ⟼ 1 2 k ⁡ j
50 2 3 13 14 18 38 49 climmulc2 ⊢ A ∈ ℂ → F ⇝ A ⋅ 0
51 mul01 ⊢ A ∈ ℂ → A ⋅ 0 = 0
52 50 51 breqtrd ⊢ A ∈ ℂ → F ⇝ 0
53 seqex ⊢ seq 1 + F ∈ V
54 53 a1i ⊢ A ∈ ℂ → seq 1 + F ∈ V
55 39 40 41 divcld ⊢ A ∈ ℂ ∧ j ∈ ℕ → A 2 j ∈ ℂ
56 47 55 eqeltrd ⊢ A ∈ ℂ ∧ j ∈ ℕ → F ⁡ j ∈ ℂ
57 47 oveq2d ⊢ A ∈ ℂ ∧ j ∈ ℕ → A − F ⁡ j = A − A 2 j
58 geo2sum ⊢ j ∈ ℕ ∧ A ∈ ℂ → ∑ n = 1 j A 2 n = A − A 2 j
59 58 ancoms ⊢ A ∈ ℂ ∧ j ∈ ℕ → ∑ n = 1 j A 2 n = A − A 2 j
60 elfznn ⊢ n ∈ 1 … j → n ∈ ℕ
61 60 adantl ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → n ∈ ℕ
62 oveq2 ⊢ k = n → 2 k = 2 n
63 62 oveq2d ⊢ k = n → A 2 k = A 2 n
64 ovex ⊢ A 2 n ∈ V
65 63 1 64 fvmpt ⊢ n ∈ ℕ → F ⁡ n = A 2 n
66 61 65 syl ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → F ⁡ n = A 2 n
67 simpr ⊢ A ∈ ℂ ∧ j ∈ ℕ → j ∈ ℕ
68 67 2 eleqtrdi ⊢ A ∈ ℂ ∧ j ∈ ℕ → j ∈ ℤ ≥ 1
69 simpll ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → A ∈ ℂ
70 nnnn0 ⊢ n ∈ ℕ → n ∈ ℕ 0
71 nnexpcl ⊢ 2 ∈ ℕ ∧ n ∈ ℕ 0 → 2 n ∈ ℕ
72 33 70 71 sylancr ⊢ n ∈ ℕ → 2 n ∈ ℕ
73 61 72 syl ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → 2 n ∈ ℕ
74 73 nncnd ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → 2 n ∈ ℂ
75 73 nnne0d ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → 2 n ≠ 0
76 69 74 75 divcld ⊢ A ∈ ℂ ∧ j ∈ ℕ ∧ n ∈ 1 … j → A 2 n ∈ ℂ
77 66 68 76 fsumser ⊢ A ∈ ℂ ∧ j ∈ ℕ → ∑ n = 1 j A 2 n = seq 1 + F ⁡ j
78 57 59 77 3eqtr2rd ⊢ A ∈ ℂ ∧ j ∈ ℕ → seq 1 + F ⁡ j = A − F ⁡ j
79 2 3 52 14 54 56 78 climsubc2 ⊢ A ∈ ℂ → seq 1 + F ⇝ A − 0
80 subid1 ⊢ A ∈ ℂ → A − 0 = A
81 79 80 breqtrd ⊢ A ∈ ℂ → seq 1 + F ⇝ A