-- Mathlib/Computability/AkraBazzi/AkraBazzi.lean
lemma tendsto_zero_sumCoeffsExp : Tendsto (fun (p : ℝ) => ∑ i, a i * (b i) ^ p) atTop (𝓝 0)

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
⊢ ∑ x : α, 0 = 0

Tactic:
simp

Result:
no goals

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ Tendsto (fun p => a i * b i ^ p) atTop (𝓝 0)

Tactic:
rw [← mul_zero (a i)]

Result:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ Tendsto (fun p => a i * b i ^ p) atTop (𝓝 (a i * 0))

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ -1 < b i

Tactic:
have := R.b_pos i

Result:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
this : 0 < b i
⊢ -1 < b i

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
this : 0 < b i
⊢ -1 < b i

Tactic:
linarith

Result:
no goals

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ Tendsto (fun p => a i) atTop (𝓝 (a i))

Tactic:
simp

Result:
no goals

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
⊢ Tendsto (fun p => ∑ i : α, a i * b i ^ p) atTop (𝓝 0)

Tactic:
rw [← h₁]

Result:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
⊢ Tendsto (fun p => ∑ i : α, a i * b i ^ p) atTop (𝓝 (∑ x : α, 0))

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
⊢ Tendsto (fun p => ∑ i : α, a i * b i ^ p) atTop (𝓝 0)

Tactic:
have h₁ : Finset.univ.sum (fun _ : α => (0 : ℝ)) = 0 := by simp

Result:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
⊢ Tendsto (fun p => ∑ i : α, a i * b i ^ p) atTop (𝓝 0)

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
⊢ Tendsto (fun p => ∑ i : α, a i * b i ^ p) atTop (𝓝 (∑ x : α, 0))

Tactic:
refine tendsto_finset_sum (univ : Finset α) (fun i _ => ?_)

Result:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ Tendsto (fun p => a i * b i ^ p) atTop (𝓝 0)

Proof state:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ Tendsto (fun p => a i * b i ^ p) atTop (𝓝 (a i * 0))

Tactic:
refine Tendsto.mul (by simp) <| tendsto_rpow_atTop_of_base_lt_one _ ?_ (R.b_lt_one i)

Result:
α : Type u_1
inst✝¹ : Fintype α
T : ℕ → ℝ
g : ℝ → ℝ
a b : α → ℝ
r : α → ℕ → ℕ
inst✝ : Nonempty α
R : AkraBazziRecurrence T g a b r
h₁ : ∑ x : α, 0 = 0
i : α
x✝ : i ∈ univ
⊢ -1 < b i