Regular Moment Potential With Weak Hessian Tensor
ProvedFunctionalInequalities.Analysis.exists_regular_moment_weak_tensor_readableThis formalizes a partial regularity package related to Lemmas 2.2 and Theorem 2.5 of Letwin (arXiv:2607.24164v1).
Assume , , is compact and convex with nonempty interior, is smooth, is convex, and an isotropic probability measure has density with respect to Lebesgue measure. Then there exist , , , and a tensor such that:
- is convex, -Lipschitz, , normalized by , and its tilted measure maps under to .
- is -Lipschitz.
- is -Lipschitz and
- Almost everywhere, , , and .
- is the weak directional derivative tensor of , with every component locally in on compact sets.
No further classical Hessian regularity is included.
Original Lean declaration header
Within namespace FunctionalInequalities.Analysis. Shown in its original module context. Proof omitted.
theorem exists_regular_moment_weak_tensor :
∃ (u : EuclideanSpace ℝ (Fin n) → ℝ) (L LF : NNReal)
(T : EuclideanSpace ℝ (Fin n) → Fin n → Fin n → Fin n → ℝ),
ConvexOn ℝ univ u ∧ LipschitzWith L u ∧
(∫ x, Real.exp (-u x) ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) = 1 ∧
((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).map (gradient u) =
(μ : Measure (EuclideanSpace ℝ (Fin n))) ∧
ContDiff ℝ 1 u ∧ LipschitzWith (Real.toNNReal (16 / κ)) (gradient u) ∧
LipschitzWith LF (fun x => -u x + W (gradient u x)) ∧
(∀ x h, u (x + h) + u (x - h) - 2 * u x ≤ (4 / κ) * ‖h‖ ^ 2) ∧
(∀ᵐ x ∂(volume : Measure (EuclideanSpace ℝ (Fin n))),
(hessianMatrix u x).PosDef ∧
Real.log (hessianMatrix u x).det = -u x + W (gradient u x) ∧
((16 / κ) • (1 : Matrix (Fin n) (Fin n) ℝ) - hessianMatrix u x).PosSemidef) ∧
∀ k i j,
HasWeakDerivAlong (fun x => hessianMatrix u x i j) (fun x => T x k i j)
(EuclideanSpace.basisFun (Fin n) ℝ k) ∧
∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => T x k i j) 2 ((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S)
Module navigation
Module: KLS/CEK/MomentRegularity/WeakDerivative.
Definition modules: Analysis/BakryEmery/HessianOperator, Analysis/Operator/Coordinates, KLS/Isotropic, Analysis/WeakDerivative/Basic.
Supporting theorems: exists_lipschitzWith_neg_add_comp_gradient, exists_regular_moment_potential, exists_weak_third_derivative, secondDifference_le_of_map_gradient.
Next: exists_regular_moment_weak_first_derivative.
Source excerpt, lines 48–66 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_CEK_MomentRegularity_WeakDerivative
open scoped ContDiff
variable {n : ℕ} (hn : 0 < n)
{K : Set (EuclideanSpace ℝ (Fin n))} {W : EuclideanSpace ℝ (Fin n) → ℝ}
{κ : ℝ} (hκ : 0 < κ) (hK : IsCompact K) (hKc : Convex ℝ K)
(hKint : (interior K).Nonempty) (hW : ContDiff ℝ ∞ W)
(hstrong : ConvexOn ℝ Set.univ (fun y => W y - (κ / 2) * ‖y‖ ^ 2))
(μ : MeasureTheory.ProbabilityMeasure (EuclideanSpace ℝ (Fin n)))
(hμ : (μ : MeasureTheory.Measure (EuclideanSpace ℝ (Fin n))) =
(MeasureTheory.MeasureSpace.volume : MeasureTheory.Measure (EuclideanSpace ℝ (Fin n))).withDensity
(K.indicator fun p => ENNReal.ofReal (Real.exp (-W p))))
(hiso : FunctionalInequalities.KLS.Isotropic μ)
open MeasureTheory Set Filter
open FunctionalInequalities.Probability.Stein
include hn hκ hK hKc hKint hW hstrong hμ hiso
theorem FunctionalInequalities.Analysis.exists_regular_moment_weak_tensor_readable :
∃ (u : EuclideanSpace ℝ (Fin n) → ℝ) (L LF : NNReal)
(T : EuclideanSpace ℝ (Fin n) → Fin n → Fin n → Fin n → ℝ),
ConvexOn ℝ univ u ∧ LipschitzWith L u ∧
(∫ x, Real.exp (-u x) ∂(volume : Measure (EuclideanSpace ℝ (Fin n)))) = 1 ∧
((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).map (gradient u) =
(μ : Measure (EuclideanSpace ℝ (Fin n))) ∧
ContDiff ℝ 1 u ∧ LipschitzWith (Real.toNNReal (16 / κ)) (gradient u) ∧
LipschitzWith LF (fun x => -u x + W (gradient u x)) ∧
(∀ x h, u (x + h) + u (x - h) - 2 * u x ≤ (4 / κ) * ‖h‖ ^ 2) ∧
(∀ᵐ x ∂(volume : Measure (EuclideanSpace ℝ (Fin n))),
(hessianMatrix u x).PosDef ∧
Real.log (hessianMatrix u x).det = -u x + W (gradient u x) ∧
((16 / κ) • (1 : Matrix (Fin n) (Fin n) ℝ) - hessianMatrix u x).PosSemidef) ∧
∀ k i j,
HasWeakDerivAlong (fun x => hessianMatrix u x i j) (fun x => T x k i j)
(EuclideanSpace.basisFun (Fin n) ℝ k) ∧
∀ S : Set (EuclideanSpace ℝ (Fin n)), IsCompact S →
MemLp (fun x => T x k i j) 2 ((volume : Measure (EuclideanSpace ℝ (Fin n))).restrict S) := by sorry