theorem extracted_formal_statement_4 {n m : ℕ+} {b : Fin ↑m → ℝ} {A : Matrix (Fin ↑m) (Fin ↑n) ℝ}
  (x : EuclideanSpace ℝ (Fin ↑n)) (ε : ℝ) (εpos : ε > 0) (y : EuclideanSpace ℝ (Fin ↑n)) (a : ‖x - y‖ ≤ ε)
  (h_original_goal : ‖b ⬝ᵥ A *ᵥ y - b ⬝ᵥ A *ᵥ x - inner (Aᵀ *ᵥ b) (y - x)‖ ≤ ε * ‖x - y‖) : 0 ≤ ε := sorry

State before:
case right
n m : ℕ+
b : Fin ↑m → ℝ
A : Matrix (Fin ↑m) (Fin ↑n) ℝ
x : EuclideanSpace ℝ (Fin ↑n)
ε : ℝ
εpos : ε > 0
y : EuclideanSpace ℝ (Fin ↑n)
a✝ : ‖x - y‖ ≤ ε
⊢ ‖b ⬝ᵥ A *ᵥ y - b ⬝ᵥ A *ᵥ x - inner (Aᵀ *ᵥ b) (y - x)‖ ≤ ε * ‖x - y‖

Tactic: rw [dot_mul_eq_transpose_mul_dot, dot_mul_eq_transpose_mul_dot, ← dotProduct_sub]
    rw [EuclideanSpace.inner_eq_star_dotProduct]
    simp
    repeat rw [dotProduct]; simp [mul_comm]
    apply mul_nonneg

State after:
[case right.ha
 n m : ℕ+
 b : Fin ↑m → ℝ
 A : Matrix (Fin ↑m) (Fin ↑n) ℝ
 x : EuclideanSpace ℝ (Fin ↑n)
 ε : ℝ
 εpos : ε > 0
 y : EuclideanSpace ℝ (Fin ↑n)
 a✝ : ‖x - y‖ ≤ ε
 ⊢ 0 ≤ ε,
 case right.hb
 n m : ℕ+
 b : Fin ↑m → ℝ
 A : Matrix (Fin ↑m) (Fin ↑n) ℝ
 x : EuclideanSpace ℝ (Fin ↑n)
 ε : ℝ
 εpos : ε > 0
 y : EuclideanSpace ℝ (Fin ↑n)
 a✝ : ‖x - y‖ ≤ ε
 ⊢ 0 ≤ ‖x - y‖]

Relevant lemmas:
EuclideanSpace.inner_eq_star_dotProduct : ∀ {ι : Type u_1} {𝕜 : Type u_3} [inst : RCLike 𝕜] [inst_1 : Fintype ι]
  (x y : EuclideanSpace 𝕜 ι), inner x y = (WithLp.equiv 2 (ι → 𝕜)) y ⬝ᵥ star ((WithLp.equiv 2 (ι → 𝕜)) x)
dotProduct_sub : ∀ {m : Type u_2} {α : Type v} [inst : Fintype m] [inst_1 : NonUnitalNonAssocRing α] (u v w : m → α),
  u ⬝ᵥ (v - w) = u ⬝ᵥ v - u ⬝ᵥ w
mul_nonneg : ∀ {α : Type u_3} {a b : α} [inst : MulZeroClass α] [inst_1 : Preorder α] [inst_2 : PosMulMono α],
  0 ≤ a → 0 ≤ b → 0 ≤ a * b
mul_comm : ∀ {G : Type u_1} [inst : CommMagma G] (a b : G), a * b = b * a
dot_mul_eq_transpose_mul_dot : ∀ {n m : ℕ+} {A : Matrix (Fin ↑m) (Fin ↑n) ℝ} (u : EuclideanSpace ℝ (Fin ↑m))
  (v : EuclideanSpace ℝ (Fin ↑n)), u ⬝ᵥ A *ᵥ v = Aᵀ *ᵥ u ⬝ᵥ v