-- File: FoML/FoML/Bennett.lean
Theorem statement:
theorem extracted_formal_statement_6 (x : ℝ) (hx : |x| ≤ 1) (hx_le_1 : x ≤ 1) (u : ℝ) (hu : u ∈ interior (Ici 0))
  (h_original_goal : rexp (u * x) * x * x - x ^ 2 * rexp u ≤ 0) : rexp (u * x) * x * x ≤ x ^ 2 * rexp u := sorry

Tactic state before:
case a
x τ : ℝ
hx : |x| ≤ 1
hτ : 0 ≤ τ
hx_le_1 : x ≤ 1
f : ℝ → ℝ := fun τ => rexp (τ * x) - (1 + τ * x + x ^ 2 * (rexp τ - 1 - τ))
f' : ℝ → ℝ := fun τ => rexp (τ * x) * x - (x + x ^ 2 * (rexp τ - 1))
f'' : ℝ → ℝ := fun τ => rexp (τ * x) * x * x - x ^ 2 * rexp τ
hf0 : f 0 = 0
hf'0 : f' 0 = 0
t : ℝ
ht : t ∈ interior (Ici 0)
u : ℝ
hu : u ∈ interior (Ici 0)
⊢ rexp (u * x) * x * x - x ^ 2 * rexp u ≤ 0

Tactic: apply sub_nonpos_of_le

Tactic state after:
[case a.a
 x τ : ℝ
 hx : |x| ≤ 1
 hτ : 0 ≤ τ
 hx_le_1 : x ≤ 1
 f : ℝ → ℝ := fun τ => rexp (τ * x) - (1 + τ * x + x ^ 2 * (rexp τ - 1 - τ))
 f' : ℝ → ℝ := fun τ => rexp (τ * x) * x - (x + x ^ 2 * (rexp τ - 1))
 f'' : ℝ → ℝ := fun τ => rexp (τ * x) * x * x - x ^ 2 * rexp τ
 hf0 : f 0 = 0
 hf'0 : f' 0 = 0
 t : ℝ
 ht : t ∈ interior (Ici 0)
 u : ℝ
 hu : u ∈ interior (Ici 0)
 ⊢ rexp (u * x) * x * x ≤ x ^ 2 * rexp u]

Premises used:
sub_nonpos_of_le : ∀ {α : Type u} [inst : AddGroup α] [inst_1 : LE α] [inst_2 : AddRightMono α] {a b : α},
  a ≤ b → a - b ≤ 0