[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
⊢ ∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
[PROOFSTEP]
by_contra H
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
⊢ False
[PROOFSTEP]
have reformulation : ∀ (x') (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x' :=
  by
  intro x' k
  rw [div_mul_eq_mul_div, le_div_iff, mul_assoc, mul_le_mul_left ε_pos, mul_comm]
  positivity
    -- Now let's specialize to `ε/2^k`
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
⊢ ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
[PROOFSTEP]
intro x' k
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
x' : X
k : ℕ
⊢ ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
[PROOFSTEP]
rw [div_mul_eq_mul_div, le_div_iff, mul_assoc, mul_le_mul_left ε_pos, mul_comm]
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
x' : X
k : ℕ
⊢ 0 < 2 ^ k
[PROOFSTEP]
positivity
  -- Now let's specialize to `ε/2^k`
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
⊢ False
[PROOFSTEP]
replace H : ∀ k : ℕ, ∀ x', d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
[GOAL]
case H
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
⊢ ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
[PROOFSTEP]
intro k x'
[GOAL]
case H
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ¬∃ ε', ε' > 0 ∧ ∃ x', ε' ≤ ε ∧ d x' x ≤ 2 * ε ∧ ε * ϕ x ≤ ε' * ϕ x' ∧ ∀ (y : X), d x' y ≤ ε' → ϕ y ≤ 2 * ϕ x'
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
k : ℕ
x' : X
⊢ d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
[PROOFSTEP]
push_neg at H 
[GOAL]
case H
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
k : ℕ
x' : X
H : ∀ (ε' : ℝ), ε' > 0 → ∀ (x' : X), ε' ≤ ε → d x' x ≤ 2 * ε → ε * ϕ x ≤ ε' * ϕ x' → ∃ y, d x' y ≤ ε' ∧ 2 * ϕ x' < ϕ y
⊢ d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
[PROOFSTEP]
have := H (ε / 2 ^ k) (by simp [ε_pos]) x' (by simp [ε_pos.le, one_le_two])
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
k : ℕ
x' : X
H : ∀ (ε' : ℝ), ε' > 0 → ∀ (x' : X), ε' ≤ ε → d x' x ≤ 2 * ε → ε * ϕ x ≤ ε' * ϕ x' → ∃ y, d x' y ≤ ε' ∧ 2 * ϕ x' < ϕ y
⊢ ε / 2 ^ k > 0
[PROOFSTEP]
simp [ε_pos]
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
k : ℕ
x' : X
H : ∀ (ε' : ℝ), ε' > 0 → ∀ (x' : X), ε' ≤ ε → d x' x ≤ 2 * ε → ε * ϕ x ≤ ε' * ϕ x' → ∃ y, d x' y ≤ ε' ∧ 2 * ϕ x' < ϕ y
⊢ ε / 2 ^ k ≤ ε
[PROOFSTEP]
simp [ε_pos.le, one_le_two]
[GOAL]
case H
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
k : ℕ
x' : X
H : ∀ (ε' : ℝ), ε' > 0 → ∀ (x' : X), ε' ≤ ε → d x' x ≤ 2 * ε → ε * ϕ x ≤ ε' * ϕ x' → ∃ y, d x' y ≤ ε' ∧ 2 * ϕ x' < ϕ y
this : d x' x ≤ 2 * ε → ε * ϕ x ≤ ε / 2 ^ k * ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
⊢ d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
[PROOFSTEP]
simpa [reformulation] using this
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
reformulation : ∀ (x' : X) (k : ℕ), ε * ϕ x ≤ ε / 2 ^ k * ϕ x' ↔ 2 ^ k * ϕ x ≤ ϕ x'
H : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
⊢ False
[PROOFSTEP]
clear reformulation
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
⊢ False
[PROOFSTEP]
haveI : Nonempty X := ⟨x⟩
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
H : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → ∃ y, d x' y ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ y
this : Nonempty X
⊢ False
[PROOFSTEP]
choose! F hF using H
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
hF : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → d x' (F k x') ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ (F k x')
⊢ False
[PROOFSTEP]
let u : ℕ → X := fun n => Nat.recOn n x F
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
hF : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → d x' (F k x') ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ (F k x')
u : ℕ → X := fun n => Nat.recOn n x F
⊢ False
[PROOFSTEP]
have hu :
  ∀ n, d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u <| n + 1) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u <| n + 1) :=
  by
  intro n
  exact hF n (u n)
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
hF : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → d x' (F k x') ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ (F k x')
u : ℕ → X := fun n => Nat.recOn n x F
⊢ ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
[PROOFSTEP]
intro n
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
hF : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → d x' (F k x') ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ (F k x')
u : ℕ → X := fun n => Nat.recOn n x F
n : ℕ
⊢ d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
[PROOFSTEP]
exact hF n (u n)
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
hF : ∀ (k : ℕ) (x' : X), d x' x ≤ 2 * ε ∧ 2 ^ k * ϕ x ≤ ϕ x' → d x' (F k x') ≤ ε / 2 ^ k ∧ 2 * ϕ x' < ϕ (F k x')
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
⊢ False
[PROOFSTEP]
clear hF
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
⊢ False
[PROOFSTEP]
have key : ∀ n, d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1)) :=
  by
  intro n
  induction' n using Nat.case_strong_induction_on with n IH
  · specialize hu 0
    simpa [mul_nonneg_iff, zero_le_one, ε_pos.le, le_refl] using hu
  have A : d (u (n + 1)) x ≤ 2 * ε := by
    rw [dist_comm]
    let r :=
      range
        (n + 1)
          -- range (n+1) = {0, ..., n}
    calc
      d (u 0) (u (n + 1)) ≤ ∑ i in r, d (u i) (u <| i + 1) := dist_le_range_sum_dist u (n + 1)
      _ ≤ ∑ i in r, ε / 2 ^ i := (sum_le_sum fun i i_in => (IH i <| Nat.lt_succ_iff.mp <| Finset.mem_range.mp i_in).1)
      _ = ∑ i in r, (1 / 2) ^ i * ε := by
        congr with i
        field_simp
      _ = (∑ i in r, ((1 : ℝ) / 2) ^ i) * ε := Finset.sum_mul.symm
      _ ≤ 2 * ε := by gcongr; apply sum_geometric_two_le
  have B : 2 ^ (n + 1) * ϕ x ≤ ϕ (u (n + 1)) :=
    by
    refine' @geom_le (ϕ ∘ u) _ zero_le_two (n + 1) fun m hm => _
    exact (IH _ <| Nat.lt_add_one_iff.1 hm).2.le
  exact hu (n + 1) ⟨A, B⟩
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
⊢ ∀ (n : ℕ), d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
[PROOFSTEP]
intro n
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
⊢ d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
[PROOFSTEP]
induction' n using Nat.case_strong_induction_on with n IH
[GOAL]
case hz
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
⊢ d (u 0) (u (0 + 1)) ≤ ε / 2 ^ 0 ∧ 2 * ϕ (u 0) < ϕ (u (0 + 1))
[PROOFSTEP]
specialize hu 0
[GOAL]
case hz
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu : d (u 0) x ≤ 2 * ε ∧ 2 ^ 0 * ϕ x ≤ ϕ (u 0) → d (u 0) (u (0 + 1)) ≤ ε / 2 ^ 0 ∧ 2 * ϕ (u 0) < ϕ (u (0 + 1))
⊢ d (u 0) (u (0 + 1)) ≤ ε / 2 ^ 0 ∧ 2 * ϕ (u 0) < ϕ (u (0 + 1))
[PROOFSTEP]
simpa [mul_nonneg_iff, zero_le_one, ε_pos.le, le_refl] using hu
[GOAL]
case hi
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
⊢ d (u (Nat.succ n)) (u (Nat.succ n + 1)) ≤ ε / 2 ^ Nat.succ n ∧ 2 * ϕ (u (Nat.succ n)) < ϕ (u (Nat.succ n + 1))
[PROOFSTEP]
have A : d (u (n + 1)) x ≤ 2 * ε := by
  rw [dist_comm]
  let r :=
    range
      (n + 1)
        -- range (n+1) = {0, ..., n}
  calc
    d (u 0) (u (n + 1)) ≤ ∑ i in r, d (u i) (u <| i + 1) := dist_le_range_sum_dist u (n + 1)
    _ ≤ ∑ i in r, ε / 2 ^ i := (sum_le_sum fun i i_in => (IH i <| Nat.lt_succ_iff.mp <| Finset.mem_range.mp i_in).1)
    _ = ∑ i in r, (1 / 2) ^ i * ε := by
      congr with i
      field_simp
    _ = (∑ i in r, ((1 : ℝ) / 2) ^ i) * ε := Finset.sum_mul.symm
    _ ≤ 2 * ε := by gcongr; apply sum_geometric_two_le
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
⊢ d (u (n + 1)) x ≤ 2 * ε
[PROOFSTEP]
rw [dist_comm]
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
⊢ d x (u (n + 1)) ≤ 2 * ε
[PROOFSTEP]
let r :=
  range
    (n + 1)
      -- range (n+1) = {0, ..., n}
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
r : Finset ℕ := range (n + 1)
⊢ d x (u (n + 1)) ≤ 2 * ε
[PROOFSTEP]
calc
  d (u 0) (u (n + 1)) ≤ ∑ i in r, d (u i) (u <| i + 1) := dist_le_range_sum_dist u (n + 1)
  _ ≤ ∑ i in r, ε / 2 ^ i := (sum_le_sum fun i i_in => (IH i <| Nat.lt_succ_iff.mp <| Finset.mem_range.mp i_in).1)
  _ = ∑ i in r, (1 / 2) ^ i * ε := by
    congr with i
    field_simp
  _ = (∑ i in r, ((1 : ℝ) / 2) ^ i) * ε := Finset.sum_mul.symm
  _ ≤ 2 * ε := by gcongr; apply sum_geometric_two_le
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
r : Finset ℕ := range (n + 1)
⊢ ∑ i in r, ε / 2 ^ i = ∑ i in r, (1 / 2) ^ i * ε
[PROOFSTEP]
congr with i
[GOAL]
case e_f.h
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
r : Finset ℕ := range (n + 1)
i : ℕ
⊢ ε / 2 ^ i = (1 / 2) ^ i * ε
[PROOFSTEP]
field_simp
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
r : Finset ℕ := range (n + 1)
⊢ (∑ i in r, (1 / 2) ^ i) * ε ≤ 2 * ε
[PROOFSTEP]
gcongr
[GOAL]
case h
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
r : Finset ℕ := range (n + 1)
⊢ ∑ i in r, (1 / 2) ^ i ≤ 2
[PROOFSTEP]
apply sum_geometric_two_le
[GOAL]
case hi
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
A : d (u (n + 1)) x ≤ 2 * ε
⊢ d (u (Nat.succ n)) (u (Nat.succ n + 1)) ≤ ε / 2 ^ Nat.succ n ∧ 2 * ϕ (u (Nat.succ n)) < ϕ (u (Nat.succ n + 1))
[PROOFSTEP]
have B : 2 ^ (n + 1) * ϕ x ≤ ϕ (u (n + 1)) :=
  by
  refine' @geom_le (ϕ ∘ u) _ zero_le_two (n + 1) fun m hm => _
  exact (IH _ <| Nat.lt_add_one_iff.1 hm).2.le
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
A : d (u (n + 1)) x ≤ 2 * ε
⊢ 2 ^ (n + 1) * ϕ x ≤ ϕ (u (n + 1))
[PROOFSTEP]
refine' @geom_le (ϕ ∘ u) _ zero_le_two (n + 1) fun m hm => _
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
A : d (u (n + 1)) x ≤ 2 * ε
m : ℕ
hm : m < n + 1
⊢ 2 * (ϕ ∘ u) m ≤ (ϕ ∘ u) (m + 1)
[PROOFSTEP]
exact (IH _ <| Nat.lt_add_one_iff.1 hm).2.le
[GOAL]
case hi
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
n : ℕ
IH : ∀ (m : ℕ), m ≤ n → d (u m) (u (m + 1)) ≤ ε / 2 ^ m ∧ 2 * ϕ (u m) < ϕ (u (m + 1))
A : d (u (n + 1)) x ≤ 2 * ε
B : 2 ^ (n + 1) * ϕ x ≤ ϕ (u (n + 1))
⊢ d (u (Nat.succ n)) (u (Nat.succ n + 1)) ≤ ε / 2 ^ Nat.succ n ∧ 2 * ϕ (u (Nat.succ n)) < ϕ (u (Nat.succ n + 1))
[PROOFSTEP]
exact hu (n + 1) ⟨A, B⟩
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
key : ∀ (n : ℕ), d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
⊢ False
[PROOFSTEP]
cases' forall_and.mp key with key₁ key₂
[GOAL]
case intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
hu :
  ∀ (n : ℕ), d (u n) x ≤ 2 * ε ∧ 2 ^ n * ϕ x ≤ ϕ (u n) → d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
key : ∀ (n : ℕ), d (u n) (u (n + 1)) ≤ ε / 2 ^ n ∧ 2 * ϕ (u n) < ϕ (u (n + 1))
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
⊢ False
[PROOFSTEP]
clear hu key
[GOAL]
case intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
⊢ False
[PROOFSTEP]
have cauchy_u : CauchySeq u :=
  by
  refine' cauchySeq_of_le_geometric _ ε one_half_lt_one fun n => _
  simpa only [one_div, inv_pow] using key₁ n
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
⊢ CauchySeq u
[PROOFSTEP]
refine' cauchySeq_of_le_geometric _ ε one_half_lt_one fun n => _
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
n : ℕ
⊢ d (u n) (u (n + 1)) ≤ ε * (1 / 2) ^ n
[PROOFSTEP]
simpa only [one_div, inv_pow] using key₁ n
[GOAL]
case intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
⊢ False
[PROOFSTEP]
obtain ⟨y, limy⟩ : ∃ y, Tendsto u atTop (𝓝 y)
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
⊢ ∃ y, Tendsto u atTop (𝓝 y)
case intro.intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
⊢ False
[PROOFSTEP]
exact CompleteSpace.complete cauchy_u
[GOAL]
case intro.intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
⊢ False
[PROOFSTEP]
have lim_top : Tendsto (ϕ ∘ u) atTop atTop := by
  let v n := (ϕ ∘ u) (n + 1)
  suffices Tendsto v atTop atTop by rwa [tendsto_add_atTop_iff_nat] at this 
  have hv₀ : 0 < v 0 := by
    have : 0 ≤ ϕ (u 0) := nonneg x
    calc
      0 ≤ 2 * ϕ (u 0) := (zero_le_mul_left zero_lt_two).mpr this
      _ < ϕ (u (0 + 1)) := key₂ 0
  apply tendsto_atTop_of_geom_le hv₀ one_lt_two
  exact fun n => (key₂ (n + 1)).le
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
⊢ Tendsto (ϕ ∘ u) atTop atTop
[PROOFSTEP]
let v n := (ϕ ∘ u) (n + 1)
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
⊢ Tendsto (ϕ ∘ u) atTop atTop
[PROOFSTEP]
suffices Tendsto v atTop atTop by rwa [tendsto_add_atTop_iff_nat] at this 
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this✝ : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
this : Tendsto v atTop atTop
⊢ Tendsto (ϕ ∘ u) atTop atTop
[PROOFSTEP]
rwa [tendsto_add_atTop_iff_nat] at this 
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
⊢ Tendsto v atTop atTop
[PROOFSTEP]
have hv₀ : 0 < v 0 := by
  have : 0 ≤ ϕ (u 0) := nonneg x
  calc
    0 ≤ 2 * ϕ (u 0) := (zero_le_mul_left zero_lt_two).mpr this
    _ < ϕ (u (0 + 1)) := key₂ 0
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
⊢ 0 < v 0
[PROOFSTEP]
have : 0 ≤ ϕ (u 0) := nonneg x
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this✝ : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
this : 0 ≤ ϕ (u 0)
⊢ 0 < v 0
[PROOFSTEP]
calc
  0 ≤ 2 * ϕ (u 0) := (zero_le_mul_left zero_lt_two).mpr this
  _ < ϕ (u (0 + 1)) := key₂ 0
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
hv₀ : 0 < v 0
⊢ Tendsto v atTop atTop
[PROOFSTEP]
apply tendsto_atTop_of_geom_le hv₀ one_lt_two
[GOAL]
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
v : ℕ → ℝ := fun n => (ϕ ∘ u) (n + 1)
hv₀ : 0 < v 0
⊢ ∀ (n : ℕ), 2 * v n ≤ v (n + 1)
[PROOFSTEP]
exact fun n => (key₂ (n + 1)).le
[GOAL]
case intro.intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
lim_top : Tendsto (ϕ ∘ u) atTop atTop
⊢ False
[PROOFSTEP]
have lim : Tendsto (ϕ ∘ u) atTop (𝓝 (ϕ y)) := Tendsto.comp cont.continuousAt limy
[GOAL]
case intro.intro
X : Type u_1
inst✝¹ : MetricSpace X
inst✝ : CompleteSpace X
x : X
ε : ℝ
ε_pos : 0 < ε
ϕ : X → ℝ
cont : Continuous ϕ
nonneg : ∀ (y : X), 0 ≤ ϕ y
this : Nonempty X
F : ℕ → X → X
u : ℕ → X := fun n => Nat.recOn n x F
key₁ : ∀ (x : ℕ), d (u x) (u (x + 1)) ≤ ε / 2 ^ x
key₂ : ∀ (x : ℕ), 2 * ϕ (u x) < ϕ (u (x + 1))
cauchy_u : CauchySeq u
y : X
limy : Tendsto u atTop (𝓝 y)
lim_top : Tendsto (ϕ ∘ u) atTop atTop
lim : Tendsto (ϕ ∘ u) atTop (𝓝 (ϕ y))
⊢ False
[PROOFSTEP]
exact not_tendsto_atTop_of_tendsto_nhds lim lim_top
