Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Eq. (4.2): the Hessian of η\etaη off the surface s+rg(x)=0s + r g(x) = 0s+rg(x)=0, where ∇η\nabla\eta∇η is smooth

Proved
NonsmoothNewton.AugLagrangian.eta_grad_smooth_off_surface

by mikedeng1 · Sep 27, 2026 · Mathlib 0df444a (Lean v4.33.1)

augmented-lagrangiannonsmooth-analysisp2o-batch-p100ap2o-gran-per-chapterp2o-plan-paperp2o-v1

Let r>0r > 0r>0, let g:Rn→Rg : \mathbb{R}^n \to \mathbb{R}g:Rn→R be of class C2C^2C2, and let η(x,s)=ϕ(r,g(x),s)\eta(x, s) = \phi(r, g(x), s)η(x,s)=ϕ(r,g(x),s). Then

∇2η(x,s)={(r∇g(x)∇g(x)T+(s+rg(x))∇2g(x)∇g(x)∇g(x)T0),s+rg(x)>0,(000−1/r),s+rg(x)<0,(4.2)\nabla^2 \eta(x, s) = \begin{cases} \begin{pmatrix} r \nabla g(x) \nabla g(x)^{\mathsf T} + (s + r g(x)) \nabla^2 g(x) & \nabla g(x) \\ \nabla g(x)^{\mathsf T} & 0 \end{pmatrix}, & s + r g(x) > 0,\\[10pt] \begin{pmatrix} 0 & 0 \\ 0 & -1/r \end{pmatrix}, & s + r g(x) < 0, \end{cases} \tag{4.2}∇2η(x,s)=⎩⎨⎧​(r∇g(x)∇g(x)T+(s+rg(x))∇2g(x)∇g(x)T​∇g(x)0​),(00​0−1/r​),​s+rg(x)>0,s+rg(x)<0,​(4.2)

and ∇η\nabla \eta∇η is continuously differentiable in a neighbourhood of every point (x,s)(x, s)(x,s) with s+rg(x)≠0s + r g(x) \neq 0s+rg(x)=0.

That is, ∇η\nabla\eta∇η is smooth except on the surface s+rg(x)=0s + r g(x) = 0s+rg(x)=0; the remaining work of Theorem 4.1 is semismoothness on that surface.

Formalization Note The Hessian is the Fréchet derivative of the map (x,s)↦Dη(x,s)(x, s) \mapsto D\eta(x, s)(x,s)↦Dη(x,s). Applied to a direction (h,α)(h, \alpha)(h,α) it is stated as the linear functional (k,β)↦(r Dg(x)h+α) Dg(x)k+(s+rg(x)) D2g(x)(h,k)+Dg(x)h β(k, \beta) \mapsto (r\, Dg(x)h + \alpha)\, Dg(x)k + (s + r g(x))\, D^2 g(x)(h, k) + Dg(x)h\, \beta(k,β)↦(rDg(x)h+α)Dg(x)k+(s+rg(x))D2g(x)(h,k)+Dg(x)hβ when s+rg(x)>0s + r g(x) > 0s+rg(x)>0, and (k,β)↦−(α/r) β(k, \beta) \mapsto -(\alpha / r)\,\beta(k,β)↦−(α/r)β when s+rg(x)<0s + r g(x) < 0s+rg(x)<0, which is the matrix (4.2) applied to (h,α)(h, \alpha)(h,α) and paired with (k,β)(k, \beta)(k,β). "Smooth" is the paper's continuously differentiable (ContDiffAt ℝ 1).

Preamble
import Mathlib
import Definitions.Def_NonsmoothNewton_Shared_clarkeJac
import Definitions.Def_NonsmoothNewton_AugLagrangian_SemismoothAt
import Definitions.Def_NonsmoothNewton_AugLagrangian_augLagrangian
open Filter Topology
Formal statement
namespace NonsmoothNewton.AugLagrangian

/-- Qi–Sun (1993), Section 4, Eq. (4.2), p. 364. For `r > 0` and `g ∈ C²`, the Hessian of
`η(x, s) = φ(r, g(x), s)` is, applied to a direction `(h, α)`,
`(r ∇g(x)∇g(x)ᵀ + (s + r g(x)) ∇²g(x)) h + α ∇g(x)` in `x` and `∇g(x)ᵀ h` in `s` where
`s + r g(x) > 0`, and `(0, -α/r)` where `s + r g(x) < 0`; and `∇η` is `C¹` near every point
off the surface `s + r g(x) = 0`. -/
theorem eta_grad_smooth_off_surface {n : ℕ} (r : ℝ) (hr : 0 < r)
    (g : EuclideanSpace ℝ (Fin n) → ℝ) (hg : ContDiff ℝ 2 g) :
    (∀ z : EuclideanSpace ℝ (Fin n) × ℝ, 0 < z.2 + r * g z.1 →
      ∀ v : EuclideanSpace ℝ (Fin n) × ℝ,
        fderiv ℝ (fun w => fderiv ℝ (eta r g) w) z v =
          (r * fderiv ℝ g z.1 v.1 + v.2) • (fderiv ℝ g z.1).comp
              (ContinuousLinearMap.fst ℝ (EuclideanSpace ℝ (Fin n)) ℝ)
            + (z.2 + r * g z.1) • (fderiv ℝ (fun u => fderiv ℝ g u) z.1 v.1).comp
              (ContinuousLinearMap.fst ℝ (EuclideanSpace ℝ (Fin n)) ℝ)
            + fderiv ℝ g z.1 v.1 • ContinuousLinearMap.snd ℝ (EuclideanSpace ℝ (Fin n)) ℝ) ∧
    (∀ z : EuclideanSpace ℝ (Fin n) × ℝ, z.2 + r * g z.1 < 0 →
      ∀ v : EuclideanSpace ℝ (Fin n) × ℝ,
        fderiv ℝ (fun w => fderiv ℝ (eta r g) w) z v =
          (-(v.2 / r)) • ContinuousLinearMap.snd ℝ (EuclideanSpace ℝ (Fin n)) ℝ) ∧
    (∀ z : EuclideanSpace ℝ (Fin n) × ℝ, z.2 + r * g z.1 ≠ 0 →
      ContDiffAt ℝ 1 (fun w => fderiv ℝ (eta r g) w) z) := by sorry

end NonsmoothNewton.AugLagrangian
Source
Qi, Sun, A nonsmooth version of Newton's method, Math. Programming 58 (1993), p. 364, Section 4, Eq. (4.2) and the sentence after it
Read-back

What the Lean code literally says, in plain math · claude-opus-5-5

Setting. Let n∈Nn \in \mathbb{N}n∈N, let rrr be a real number with r>0r > 0r>0, and let g:Rn→Rg : \mathbb{R}^n \to \mathbb{R}g:Rn→R be C2C^2C2, with Rn\mathbb{R}^nRn Euclidean. Let

η(x,s)=φ(r,g(x),s),\eta(x, s) = \varphi(r, g(x), s),η(x,s)=φ(r,g(x),s),

where φ(r,a,s)=sa+r2a2\varphi(r, a, s) = s a + \frac{r}{2} a^2φ(r,a,s)=sa+2r​a2 if s+ra≥0s + r a \ge 0s+ra≥0, and φ(r,a,s)=−12rs2\varphi(r, a, s) = -\frac{1}{2r} s^2φ(r,a,s)=−2r1​s2 otherwise.

Consider the map Γ:z↦Dη(z)\Gamma : z \mapsto D\eta(z)Γ:z↦Dη(z). It sends each point of Rn×R\mathbb{R}^n \times \mathbb{R}Rn×R to a linear functional on Rn×R\mathbb{R}^n \times \mathbb{R}Rn×R. Write DΓ(z) vD\Gamma(z)\,vDΓ(z)v for the derivative of Γ\GammaΓ at zzz applied to a direction vvv; this is again a linear functional. Write D2g(x)(h,k)D^2 g(x)(h, k)D2g(x)(h,k) for the derivative of u↦Dg(u)u \mapsto Dg(u)u↦Dg(u) at xxx, applied first to hhh and then to kkk.

Conclusion. The statement asserts all three of the following.

  1. At every z=(x,s)z = (x, s)z=(x,s) with s+rg(x)>0s + r g(x) > 0s+rg(x)>0 (strictly), and for every direction v=(h,α)v = (h, \alpha)v=(h,α), the functional DΓ(z) vD\Gamma(z)\,vDΓ(z)v acts on (k,β)∈Rn×R(k, \beta) \in \mathbb{R}^n \times \mathbb{R}(k,β)∈Rn×R by
(DΓ(z) v)(k,β)=(r Dg(x) h+α) Dg(x) k+(s+rg(x)) D2g(x)(h,k)+(Dg(x) h) β.\big(D\Gamma(z)\,v\big)(k, \beta) = \big(r\, Dg(x)\,h + \alpha\big)\, Dg(x)\,k + \big(s + r g(x)\big)\, D^2 g(x)(h, k) + \big(Dg(x)\,h\big)\,\beta.(DΓ(z)v)(k,β)=(rDg(x)h+α)Dg(x)k+(s+rg(x))D2g(x)(h,k)+(Dg(x)h)β.
  1. At every z=(x,s)z = (x, s)z=(x,s) with s+rg(x)<0s + r g(x) < 0s+rg(x)<0 (strictly), and for every direction v=(h,α)v = (h, \alpha)v=(h,α):
(DΓ(z) v)(k,β)=−αr β.\big(D\Gamma(z)\,v\big)(k, \beta) = -\frac{\alpha}{r}\,\beta.(DΓ(z)v)(k,β)=−rα​β.
  1. At every z=(x,s)z = (x, s)z=(x,s) with s+rg(x)≠0s + r g(x) \ne 0s+rg(x)=0, the map Γ\GammaΓ is continuously differentiable (C1C^1C1) at zzz.

Nothing is said about points where s+rg(x)=0s + r g(x) = 0s+rg(x)=0.

Degenerate cases:

  • By default the derivative of a non-differentiable function is 000. The formulas in items 1 and 2 are stated as literal equalities with the value returned under that convention. Item 3 separately asserts that Γ\GammaΓ is differentiable at the points off the surface.
  • n=0n = 0n=0. ggg is a constant ccc, Dg=0Dg = 0Dg=0 and D2g=0D^2 g = 0D2g=0. Item 1 then says DΓ(z) vD\Gamma(z)\,vDΓ(z)v is the functional (k,β)↦0(k, \beta) \mapsto 0(k,β)↦0 wherever s+rc>0s + r c > 0s+rc>0.
Human review
  • Endorsed by Shuze Chen · Sep 28, 2026

    Confirmed by the moderator at approval.

  • Endorsed by mikedeng1 · Sep 28, 2026

    Confirmed by the mission captain (proposal self-audit).

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me