zzhisthebest/LeanBenchmark huggingface dataset:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_14.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2 →
              let alpha := f' x - f' y;
              f' x - m • x - (f' y - m • y) = alpha - (m • x - m • y) →
                f' x - m • x - f' y + m • y = alpha - m • x + m • y := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
eq1 : inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2
alpha : E := f' x - f' y
beta : E := x - y
⊢ f' x - m • x - (f' y - m • y) = alpha - (m • x - m • y)

Tactic:
rw [← sub_add, ← sub_add]

Tactic state after:
[E : Type u_1
 inst✝² : NormedAddCommGroup E
 inst✝¹ : InnerProductSpace ℝ E
 inst✝ : CompleteSpace E
 f : E → ℝ
 m : ℝ
 f' : E → E
 x y : E
 l : NNReal
 mp : m > 0
 hf : ∀ (x : E), HasGradientAt f (f' x) x
 h₂ : LipschitzWith l f'
 hl : ↑l > 0
 cov : Convex ℝ univ
 hsc :
   ∀ ⦃x : E⦄,
     x ∈ univ →
       ∀ ⦃y : E⦄,
         y ∈ univ →
           ∀ ⦃a b : ℝ⦄,
             0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
 phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
 convphi : ConvexOn ℝ univ phi
 g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
 g' : E → E := fun x => f' x - m • x
 h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
 gderiv : ∀ (x : E), HasGradientAt g (g' x) x
 convg : ConvexOn ℝ univ g
 convh : ConvexOn ℝ univ h
 coef : 0 < ↑l - m
 eq1 : inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2
 alpha : E := f' x - f' y
 beta : E := x - y
 ⊢ f' x - m • x - f' y + m • y = alpha - m • x + m • y]
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_15.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2 →
              let alpha := f' x - f' y;
              f' x - m • x - f' y + m • y = alpha - m • x + m • y → f' x - m • x - f' y = alpha - m • x := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
eq1 : inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2
alpha : E := f' x - f' y
beta : E := x - y
⊢ f' x - m • x - f' y + m • y = alpha - m • x + m • y

Tactic:
simp

Tactic state after:
[E : Type u_1
 inst✝² : NormedAddCommGroup E
 inst✝¹ : InnerProductSpace ℝ E
 inst✝ : CompleteSpace E
 f : E → ℝ
 m : ℝ
 f' : E → E
 x y : E
 l : NNReal
 mp : m > 0
 hf : ∀ (x : E), HasGradientAt f (f' x) x
 h₂ : LipschitzWith l f'
 hl : ↑l > 0
 cov : Convex ℝ univ
 hsc :
   ∀ ⦃x : E⦄,
     x ∈ univ →
       ∀ ⦃y : E⦄,
         y ∈ univ →
           ∀ ⦃a b : ℝ⦄,
             0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
 phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
 convphi : ConvexOn ℝ univ phi
 g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
 g' : E → E := fun x => f' x - m • x
 h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
 gderiv : ∀ (x : E), HasGradientAt g (g' x) x
 convg : ConvexOn ℝ univ g
 convh : ConvexOn ℝ univ h
 coef : 0 < ↑l - m
 eq1 : inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2
 alpha : E := f' x - f' y
 beta : E := x - y
 ⊢ f' x - m • x - f' y = alpha - m • x]
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_16.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2 →
              let alpha := f' x - f' y;
              f' x - m • x - f' y = alpha - m • x := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
eq1 : inner (g' x - g' y) (x - y) ≥ 1 / (↑l - m) * ‖g' x - g' y‖ ^ 2
alpha : E := f' x - f' y
beta : E := x - y
⊢ f' x - m • x - f' y = alpha - m • x

Tactic:
rw [sub_right_comm]

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_20.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            let alpha := f' x - f' y;
            let beta := x - y;
            inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2 →
              g' x - g' y = alpha - m • beta → ∀ (v : E), (|m| * ‖v‖) ^ 2 = m ^ 2 * ‖v‖ ^ 2 := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
eq1 : inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2
eq2 : g' x - g' y = alpha - m • beta
u v : E
⊢ (|m| * ‖v‖) ^ 2 = m ^ 2 * ‖v‖ ^ 2

Tactic:
rw [mul_pow, sq_abs]

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_25.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            let alpha := f' x - f' y;
            let beta := x - y;
            inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2 →
              g' x - g' y = alpha - m • beta →
                ∀ (u v : E),
                  ‖u - m • v‖ ^ 2 = ‖u‖ ^ 2 + m ^ 2 * ‖v‖ ^ 2 - 2 * m * inner u v →
                    ‖u‖ ^ 2 + m * ↑l * ‖v‖ ^ 2 ≤ (m + ↑l) * inner u v → 0 < m + ↑l → 0 < m + ↑l := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
eq1 : inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2
eq2 : g' x - g' y = alpha - m • beta
u v : E
this : ‖u - m • v‖ ^ 2 = ‖u‖ ^ 2 + m ^ 2 * ‖v‖ ^ 2 - 2 * m * inner u v
h0 : ‖u‖ ^ 2 + m * ↑l * ‖v‖ ^ 2 ≤ (m + ↑l) * inner u v
mlpos : 0 < m + ↑l
⊢ 0 < m + ↑l

Tactic:
apply mlpos

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_26.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            let alpha := f' x - f' y;
            let beta := x - y;
            inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2 →
              g' x - g' y = alpha - m • beta →
                ∀ (u v : E),
                  ‖u - m • v‖ ^ 2 = ‖u‖ ^ 2 + m ^ 2 * ‖v‖ ^ 2 - 2 * m * inner u v →
                    (‖u‖ ^ 2 + m ^ 2 * ‖v‖ ^ 2 - 2 * m * inner u v) / (↑l - m) ≤ inner u v - m * ‖v‖ ^ 2 →
                      0 < ↑l - m := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
eq1 : inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2
eq2 : g' x - g' y = alpha - m • beta
u v : E
this : ‖u - m • v‖ ^ 2 = ‖u‖ ^ 2 + m ^ 2 * ‖v‖ ^ 2 - 2 * m * inner u v
h0 : (‖u‖ ^ 2 + m ^ 2 * ‖v‖ ^ 2 - 2 * m * inner u v) / (↑l - m) ≤ inner u v - m * ‖v‖ ^ 2
⊢ 0 < ↑l - m

Tactic:
apply coef

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_28.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          0 < ↑l - m →
            let alpha := f' x - f' y;
            let beta := x - y;
            inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2 →
              g' x - g' y = alpha - m • beta →
                (∀ (u v : E),
                    inner (u - m • v) v ≥ 1 / (↑l - m) * ‖u - m • v‖ ^ 2 →
                      inner u v ≥ m * ↑l / (m + ↑l) * ‖v‖ ^ 2 + 1 / (m + ↑l) * ‖u‖ ^ 2) →
                  inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2 := sorry

Tactic state before:
case pos.a
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : 0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
eq1 : inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2
eq2 : g' x - g' y = alpha - m • beta
eq3 :
  ∀ (u v : E),
    inner (u - m • v) v ≥ 1 / (↑l - m) * ‖u - m • v‖ ^ 2 →
      inner u v ≥ m * ↑l / (m + ↑l) * ‖v‖ ^ 2 + 1 / (m + ↑l) * ‖u‖ ^ 2
⊢ inner (alpha - m • beta) (x - y) ≥ 1 / (↑l - m) * ‖alpha - m • beta‖ ^ 2

Tactic:
apply eq1

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_29.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) → ConvexOn ℝ univ g → ConvexOn ℝ univ h → ¬0 < ↑l - m → y ∈ univ := sorry

Tactic state before:
case a
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : ¬0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
⊢ y ∈ univ

Tactic:
simp

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_32.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          ¬0 < ↑l - m →
            let alpha := f' x - f' y;
            let beta := x - y;
            inner alpha beta ≥ m * ‖beta‖ ^ 2 → l > 0 := sorry

Tactic state before:
case hl
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : ¬0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
eq1 : inner alpha beta ≥ m * ‖beta‖ ^ 2
⊢ l > 0

Tactic:
apply hl

Tactic state after:
import Mathlib
import Optlib


open Set

theorem extracted_formal_statement_35.{u_1} {E : Type u_1} [inst : NormedAddCommGroup E] [inst_1 : InnerProductSpace ℝ E]
  [inst_2 : CompleteSpace E] {f : E → ℝ} {m : ℝ} {f' : E → E} {x y : E} {l : NNReal} (mp : m > 0)
  (hf : ∀ (x : E), HasGradientAt f (f' x) x) (h₂ : LipschitzWith l f') (hl : ↑l > 0) (cov : Convex ℝ univ)
  (hsc :
    ∀ ⦃x : E⦄,
      x ∈ univ →
        ∀ ⦃y : E⦄,
          y ∈ univ →
            ∀ ⦃a b : ℝ⦄,
              0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)) :
  let phi := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x;
  ConvexOn ℝ univ phi →
    let g := fun x => f x - m / 2 * ‖x‖ ^ 2;
    let g' := fun x => f' x - m • x;
    let h := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x;
    (∀ (x : E), HasGradientAt g (g' x) x) →
      ConvexOn ℝ univ g →
        ConvexOn ℝ univ h →
          ¬0 < ↑l - m →
            let alpha := f' x - f' y;
            let beta := x - y;
            m * ‖beta‖ ^ 2 ≤ inner alpha beta →
              1 / ↑l * ‖alpha‖ ^ 2 ≤ inner alpha beta →
                0 < m + ↑l → ∀ (u v : E), m * ‖v‖ ^ 2 ≤ inner u v → 1 / ↑l * ‖u‖ ^ 2 ≤ inner u v → 0 ≤ ‖v‖ ^ 2 := sorry

Tactic state before:
E : Type u_1
inst✝² : NormedAddCommGroup E
inst✝¹ : InnerProductSpace ℝ E
inst✝ : CompleteSpace E
f : E → ℝ
m : ℝ
f' : E → E
x y : E
l : NNReal
mp : m > 0
hf : ∀ (x : E), HasGradientAt f (f' x) x
h₂ : LipschitzWith l f'
hl : ↑l > 0
cov : Convex ℝ univ
hsc :
  ∀ ⦃x : E⦄,
    x ∈ univ →
      ∀ ⦃y : E⦄,
        y ∈ univ →
          ∀ ⦃a b : ℝ⦄, 0 ≤ a → 0 ≤ b → a + b = 1 → f (a • x + b • y) ≤ a • f x + b • f y - a * b * (m / 2 * ‖x - y‖ ^ 2)
phi : E → ℝ := fun x => ↑l / 2 * ‖x‖ ^ 2 - f x
convphi : ConvexOn ℝ univ phi
g : E → ℝ := fun x => f x - m / 2 * ‖x‖ ^ 2
g' : E → E := fun x => f' x - m • x
h : E → ℝ := fun x => (↑l - m) / 2 * ‖x‖ ^ 2 - g x
gderiv : ∀ (x : E), HasGradientAt g (g' x) x
convg : ConvexOn ℝ univ g
convh : ConvexOn ℝ univ h
coef : ¬0 < ↑l - m
alpha : E := f' x - f' y
beta : E := x - y
eq1 : m * ‖beta‖ ^ 2 ≤ inner alpha beta
eq2 : 1 / ↑l * ‖alpha‖ ^ 2 ≤ inner alpha beta
mlpos : 0 < m + ↑l
u v : E
h1 : m * ‖v‖ ^ 2 ≤ inner u v
h2 : 1 / ↑l * ‖u‖ ^ 2 ≤ inner u v
⊢ 0 ≤ ‖v‖ ^ 2

Tactic:
simp

Tactic state after: