Theorem: controlled_prod_of_mem_closure
File: Mathlib/Analysis/Normed/Group/Basic.lean

tactic: obtain ⟨u : ℕ → E, u_in : ∀ n, u n ∈ s, lim_u : Tendsto u atTop (𝓝 a)⟩ :=
  mem_closure_iff_seq_limit.mp hg
state_before: 𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: obtain ⟨n₀, hn₀⟩ : ∃ n₀, ∀ n ≥ n₀, ‖u n / a‖ < b 0 :=
  haveI : { x | ‖x / a‖ < b 0 } ∈ 𝓝 a := by
    simp_rw [← dist_eq_norm_div]
    exact Metric.ball_mem_nhds _ (b_pos _)
  Filter.tendsto_atTop'.mp lim_u _ this
state_before: case intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: set z : ℕ → E := fun n => u (n + n₀)
state_before: case intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: have lim_z : Tendsto z atTop (𝓝 a) := lim_u.comp (tendsto_add_atTop_nat n₀)
state_before: case intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: have mem_𝓤 : ∀ n, { p : E × E | ‖p.1 / p.2‖ < b (n + 1) } ∈ 𝓤 E := fun n => by
  simpa [← dist_eq_norm_div] using Metric.dist_mem_uniformity (b_pos <| n + 1)
state_before: case intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: obtain ⟨φ : ℕ → ℕ, φ_extr : StrictMono φ, hφ : ∀ n, ‖z (φ <| n + 1) / z (φ n)‖ < b (n + 1)⟩ :=
  lim_z.cauchySeq.subseq_mem mem_𝓤
state_before: case intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: set w : ℕ → E := z ∘ φ
state_before: case intro.intro.intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: have hw : Tendsto w atTop (𝓝 a) := lim_z.comp φ_extr.tendsto_atTop
state_before: case intro.intro.intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: set v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
state_before: case intro.intro.intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: refine' ⟨v, Tendsto.congr (Finset.eq_prod_range_div' w) hw, _, hn₀ _ (n₀.le_add_left _), _⟩
state_before: case intro.intro.intro.intro.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
⊢ ∃ v,
    Tendsto (fun n => ∏ i in range (n + 1), v i) atTop (𝓝 a) ∧
      (∀ (n : ℕ), v n ∈ s) ∧ ‖v 0 / a‖ < b 0 ∧ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: simp_rw [← dist_eq_norm_div]
state_before: 𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
⊢ {x | ‖x / a‖ < b 0} ∈ 𝓝 a

tactic: exact Metric.ball_mem_nhds _ (b_pos _)
state_before: 𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
⊢ {x | dist x a < b 0} ∈ 𝓝 a

tactic: simpa [← dist_eq_norm_div] using Metric.dist_mem_uniformity (b_pos <| n + 1)
state_before: 𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
n : ℕ
⊢ {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E

tactic: rintro ⟨⟩
state_before: case intro.intro.intro.intro.intro.refine'_1
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
⊢ ∀ (n : ℕ), v n ∈ s

tactic: change w 0 ∈ s
state_before: case intro.intro.intro.intro.intro.refine'_1.zero
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
⊢ v Nat.zero ∈ s

tactic: apply u_in
state_before: case intro.intro.intro.intro.intro.refine'_1.zero
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
⊢ w 0 ∈ s

tactic: apply s.div_mem <;> apply u_in
state_before: case intro.intro.intro.intro.intro.refine'_1.succ
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
n✝ : ℕ
⊢ v (Nat.succ n✝) ∈ s

tactic: intro l hl
state_before: case intro.intro.intro.intro.intro.refine'_2
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
⊢ ∀ (n : ℕ), 0 < n → ‖v n‖ < b n

tactic: obtain ⟨k, rfl⟩ : ∃ k, l = k + 1
state_before: case intro.intro.intro.intro.intro.refine'_2
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
l : ℕ
hl : 0 < l
⊢ ‖v l‖ < b l

tactic: exact Nat.exists_eq_succ_of_ne_zero hl.ne'
state_before: 𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
l : ℕ
hl : 0 < l
⊢ ∃ k, l = k + 1

case intro.intro.intro.intro.intro.refine'_2.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
k : ℕ
hl : 0 < k + 1
⊢ ‖v (k + 1)‖ < b (k + 1)

tactic: apply hφ
state_before: case intro.intro.intro.intro.intro.refine'_2.intro
𝓕 : Type ?u.1017512
𝕜 : Type ?u.1017515
α : Type ?u.1017518
ι : Type ?u.1017521
κ : Type ?u.1017524
E : Type u_1
F : Type ?u.1017530
G : Type ?u.1017533
inst✝¹ : SeminormedCommGroup E
inst✝ : SeminormedCommGroup F
a a₁ a₂ b✝ b₁ b₂ : E
r r₁ r₂ : ℝ
s : Subgroup E
hg : a ∈ closure ↑s
b : ℕ → ℝ
b_pos : ∀ (n : ℕ), 0 < b n
u : ℕ → E
u_in : ∀ (n : ℕ), u n ∈ s
lim_u : Tendsto u atTop (𝓝 a)
n₀ : ℕ
hn₀ : ∀ (n : ℕ), n ≥ n₀ → ‖u n / a‖ < b 0
z : ℕ → E := fun n => u (n + n₀)
lim_z : Tendsto z atTop (𝓝 a)
mem_𝓤 : ∀ (n : ℕ), {p | ‖p.fst / p.snd‖ < b (n + 1)} ∈ 𝓤 E
φ : ℕ → ℕ
φ_extr : StrictMono φ
hφ : ∀ (n : ℕ), ‖z (φ (n + 1)) / z (φ n)‖ < b (n + 1)
w : ℕ → E := z ∘ φ
hw : Tendsto w atTop (𝓝 a)
v : ℕ → E := fun i => if i = 0 then w 0 else w i / w (i - 1)
k : ℕ
hl : 0 < k + 1
⊢ ‖v (k + 1)‖ < b (k + 1)