Theorem: isLittleO_pow_const_const_pow_of_one_lt
File: Mathlib/Analysis/SpecificLimits/Normed.lean

tactic: have : Tendsto (fun x : ℝ ↦ x ^ k) (𝓝[>] 1) (𝓝 1) :=
  ((continuous_id.pow k).tendsto' (1 : ℝ) 1 (one_pow _)).mono_left inf_le_left
state_before: α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
⊢ (fun n => ↑n ^ k) =o[atTop] fun n => r ^ n

tactic: obtain ⟨r' : ℝ, hr' : r' ^ k < r, h1 : 1 < r'⟩ :=
  ((this.eventually (gt_mem_nhds hr)).and self_mem_nhdsWithin).exists
state_before: α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
⊢ (fun n => ↑n ^ k) =o[atTop] fun n => r ^ n

tactic: have h0 : 0 ≤ r' := zero_le_one.trans h1.le
state_before: case intro.intro
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
⊢ (fun n => ↑n ^ k) =o[atTop] fun n => r ^ n

tactic: suffices : (fun n ↦ (n : R) ^ k : ℕ → R) =O[atTop] fun n : ℕ ↦ (r' ^ k) ^ n
state_before: case intro.intro
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
⊢ (fun n => ↑n ^ k) =o[atTop] fun n => r ^ n

tactic: exact this.trans_isLittleO (isLittleO_pow_pow_of_lt_left (pow_nonneg h0 _) hr')
state_before: case intro.intro
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this✝ : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
this : (fun n => ↑n ^ k) =O[atTop] fun n => (r' ^ k) ^ n
⊢ (fun n => ↑n ^ k) =o[atTop] fun n => r ^ n

case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
⊢ (fun n => ↑n ^ k) =O[atTop] fun n => (r' ^ k) ^ n

tactic: conv in (r' ^ _) ^ _ => rw [← pow_mul, mul_comm, pow_mul]
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
⊢ (fun n => ↑n ^ k) =O[atTop] fun n => (r' ^ k) ^ n

tactic: suffices : ∀ n : ℕ, ‖(n : R)‖ ≤ (r' - 1)⁻¹ * ‖(1 : R)‖ * ‖r' ^ n‖
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
⊢ (fun n => ↑n ^ k) =O[atTop] fun n => (r' ^ n) ^ k

tactic: exact (isBigO_of_le' _ this).pow _
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this✝ : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
this : ∀ (n : ℕ), ‖↑n‖ ≤ (r' - 1)⁻¹ * ‖1‖ * ‖r' ^ n‖
⊢ (fun n => ↑n ^ k) =O[atTop] fun n => (r' ^ n) ^ k

case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
⊢ ∀ (n : ℕ), ‖↑n‖ ≤ (r' - 1)⁻¹ * ‖1‖ * ‖r' ^ n‖

tactic: intro n
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
⊢ ∀ (n : ℕ), ‖↑n‖ ≤ (r' - 1)⁻¹ * ‖1‖ * ‖r' ^ n‖

tactic: rw [mul_right_comm]
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
n : ℕ
⊢ ‖↑n‖ ≤ (r' - 1)⁻¹ * ‖1‖ * ‖r' ^ n‖

tactic: refine' n.norm_cast_le.trans (mul_le_mul_of_nonneg_right _ (norm_nonneg _))
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
n : ℕ
⊢ ‖↑n‖ ≤ (r' - 1)⁻¹ * ‖r' ^ n‖ * ‖1‖

tactic: simpa [_root_.div_eq_inv_mul, Real.norm_eq_abs, abs_of_nonneg h0] using n.cast_le_pow_div_sub h1
state_before: case this
α : Type ?u.86654
β : Type ?u.86657
ι : Type ?u.86660
R : Type u_1
inst✝ : NormedRing R
k : ℕ
r : ℝ
hr : 1 < r
this : Tendsto (fun x => x ^ k) (𝓝[Set.Ioi 1] 1) (𝓝 1)
r' : ℝ
hr' : r' ^ k < r
h1 : 1 < r'
h0 : 0 ≤ r'
n : ℕ
⊢ ↑n ≤ (r' - 1)⁻¹ * ‖r' ^ n‖