Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Integrability of Source and Noise Stein Pairings

Proved
FunctionalInequalities.KLS.LogConcave.GaussianSmoothing.gaussian_product_source_stein_pairings_integrable_readable

by Lazyfill · Oct 26, 2026 · Mathlib 0df444a (Lean v4.33.1)

functional-inequalitieskls-conjecturekls-modularkls-readablelog-concave

This statement establishes the integrability hypotheses for the Gaussian product coupling.

Let n∈Nn\in\mathbb Nn∈N. Let u,h:Rn→Ru,h:\mathbb R^n\to\mathbb Ru,h:Rn→R be C1C^1C1 functions, with uuu and ∇u∇u∇u globally Lipschitz, ∇u∇u∇u having Lipschitz constant G, and with

∫e−u(y) dy=1.\int e^{-u(y)}\,dy=1.∫e−u(y)dy=1.

Let hhh be globally Lipschitz and bounded by CCC, let SSS be continuous linear, let v∈Rnv\in\mathbb R^nv∈Rn, and let s>0s>0s>0. On the product measure

P=(volume⁡.tilted⁡(−u))⊗γs,P=\bigl(\operatorname{volume}.\operatorname{tilted}(-u)\bigr)\otimes\gamma_s,P=(volume.tilted(−u))⊗γs​,

with Z(y,z)=S(∇u(y))+zZ(y,z)=S(∇u(y))+zZ(y,z)=S(∇u(y))+z and F(y,z)=S(action⁡(∇2u(y),S∗v))F(y,z)=S(\operatorname{action}(\nabla^2u(y),S^*v))F(y,z)=S(action(∇2u(y),S∗v)), the theorem asserts that ZZZ, FFF, ∇h∘Z∇h\circ Z∇h∘Z belong to MemLp · 2 P, and that the source pairing, noise pairing, Hessian pairing, and derivative pairing appearing in the product Stein identity are all integrable under PPP.

This is a technical integrability package supporting the subsequent product Stein identity.

Original Lean declaration header

Within namespace FunctionalInequalities.KLS.LogConcave.GaussianSmoothing. Shown in its original module context. Proof omitted.

set_option maxHeartbeats 800000 in
theorem gaussian_product_source_stein_pairings_integrable {n : ℕ}
    {u h : EuclideanSpace ℝ (Fin n) → ℝ} {L G Lh : NNReal}
    (hu : ContDiff ℝ 1 u) (hL : LipschitzWith L u)
    (hG : LipschitzWith G (gradient u))
    (hnorm : (∫ y, Real.exp (-u y) ∂volume) = 1)
    (hh : ContDiff ℝ 1 h) (hhLip : LipschitzWith Lh h)
    (C : ℝ) (hbound : ∀ x, ‖h x‖ ≤ C)
    (S : EuclideanSpace ℝ (Fin n) →L[ℝ] EuclideanSpace ℝ (Fin n))
    (v : EuclideanSpace ℝ (Fin n)) {s : ℝ} (hs : 0 < s) :
    let P := ((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).prod
      (gaussianLaw (V := EuclideanSpace ℝ (Fin n)) s)
    let Z := fun p : EuclideanSpace ℝ (Fin n) × EuclideanSpace ℝ (Fin n) => S (gradient u p.1) + p.2
    let F := fun p : EuclideanSpace ℝ (Fin n) × EuclideanSpace ℝ (Fin n) =>
      S (action (hessianMatrix u p.1) (S.adjoint v))
    MemLp Z 2 P ∧ MemLp F 2 P ∧ MemLp (fun p => gradient h (Z p)) 2 P ∧
    Integrable (fun p => ⟪S (gradient u p.1),v⟫ * h (Z p)) P ∧
    Integrable (fun p => ⟪p.2,v⟫ * h (Z p)) P ∧
    Integrable (fun p => ⟪S.adjoint v,action (hessianMatrix u p.1) (S.adjoint (gradient h (Z p)))⟫) P ∧
    Integrable (fun p => fderiv ℝ h (Z p) v) P

Module navigation

Module: KLS/LogConcave/Density/GaussianSmoothing/ProductCoupling.

Definition modules: Analysis/BakryEmery/HessianOperator, KLS/LogConcave/Density/GaussianSmoothing/Basic, Probability/Stein/Kernel.

Supporting theorems: gaussianLaw_exp_norm_integrable, norm_hessianMatrix_entry_le_of_lipschitz_gradient.

Next: gaussian_product_source_stein_identity.

Source excerpt, lines 36–55 · Frozen source 408915f.

Preamble
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_LogConcave_Density_GaussianSmoothing_ProductCoupling

open MeasureTheory
open FunctionalInequalities.Probability.Stein
open scoped ContDiff RealInnerProductSpace
set_option maxHeartbeats 800000
Formal statement
theorem FunctionalInequalities.KLS.LogConcave.GaussianSmoothing.gaussian_product_source_stein_pairings_integrable_readable {n : ℕ}
    {u h : EuclideanSpace ℝ (Fin n) → ℝ} {L G Lh : NNReal}
    (hu : ContDiff ℝ 1 u) (hL : LipschitzWith L u)
    (hG : LipschitzWith G (gradient u))
    (hnorm : (∫ y, Real.exp (-u y) ∂volume) = 1)
    (hh : ContDiff ℝ 1 h) (hhLip : LipschitzWith Lh h)
    (C : ℝ) (hbound : ∀ x, ‖h x‖ ≤ C)
    (S : EuclideanSpace ℝ (Fin n) →L[ℝ] EuclideanSpace ℝ (Fin n))
    (v : EuclideanSpace ℝ (Fin n)) {s : ℝ} (hs : 0 < s) :
    let P := ((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).prod
      (gaussianLaw (V := EuclideanSpace ℝ (Fin n)) s)
    let Z := fun p : EuclideanSpace ℝ (Fin n) × EuclideanSpace ℝ (Fin n) => S (gradient u p.1) + p.2
    let F := fun p : EuclideanSpace ℝ (Fin n) × EuclideanSpace ℝ (Fin n) =>
      S (action (hessianMatrix u p.1) (S.adjoint v))
    MemLp Z 2 P ∧ MemLp F 2 P ∧ MemLp (fun p => gradient h (Z p)) 2 P ∧
    Integrable (fun p => ⟪S (gradient u p.1),v⟫ * h (Z p)) P ∧
    Integrable (fun p => ⟪p.2,v⟫ * h (Z p)) P ∧
    Integrable (fun p => ⟪S.adjoint v,action (hessianMatrix u p.1) (S.adjoint (gradient h (Z p)))⟫) P ∧
    Integrable (fun p => fderiv ℝ h (Z p) v) P := by sorry
Source
Lean source: https://github.com/human-ai-mathematics/kls-lean/blob/408915f/formalization/FunctionalInequalities/KLS/LogConcave/Density/GaussianSmoothing/ProductCoupling.lean#L36-L110 (repository human-ai-mathematics/kls-lean, commit 408915f, module `FunctionalInequalities.KLS.LogConcave.Density.GaussianSmoothing.ProductCoupling`, declaration `FunctionalInequalities.KLS.LogConcave.GaussianSmoothing.gaussian_product_source_stein_pairings_integrable`; the repository is private at upload time).

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