Gaussian Product Compact Dual Bound
ProvedFunctionalInequalities.KLS.LogConcave.GaussianSmoothing.gaussian_product_compact_dual_bound_readableThis is a technical compact-test estimate for a Gaussian product coupling in finite-dimensional Euclidean space.
Let , let and be probability measures on , and let and satisfy:
- is .
- is -Lipschitz.
- is -Lipschitz.
- .
- The pushforward of the tilted volume measure by is .
For every continuous linear map , vector , scalar such that is the -Gaussian smoothing of the pushforward , and every compactly supported function , one has
where is the product of the tilted source measure and the Gaussian law of variance parameter . Here the derivative term is the operator norm of the Fréchet derivative (written in Lean as fderiv ℝ h x). The statement is reusable as a compact dual Cauchy–Schwarz estimate for this particular latent Gaussian coupling; it does not construct a target Stein kernel or an inverse transport.
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_compact_dual_bound {n : ℕ}
(μ ν : ProbabilityMeasure (EuclideanSpace ℝ (Fin n)))
{u : EuclideanSpace ℝ (Fin n) → ℝ} {L G : NNReal}
(hu : ContDiff ℝ 1 u) (hL : LipschitzWith L u)
(hG : LipschitzWith G (gradient u))
(hnorm : (∫ y, Real.exp (-u y) ∂volume) = 1)
(hsource : ((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).map
(gradient u) = (μ : Measure (EuclideanSpace ℝ (Fin n))))
(S : EuclideanSpace ℝ (Fin n) →L[ℝ] EuclideanSpace ℝ (Fin n))
(v : EuclideanSpace ℝ (Fin n)) {s : ℝ} (hs : 0 < s)
(hν : (ν : Measure (EuclideanSpace ℝ (Fin n))) = smoothedLaw ((μ : Measure _).map S) s)
(h : EuclideanSpace ℝ (Fin n) → ℝ) (hh : ContDiff ℝ ∞ h) (hhc : HasCompactSupport h) :
let P := ((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).prod
(gaussianLaw (V := EuclideanSpace ℝ (Fin n)) s)
(∫ x, ⟪x,v⟫ * h x ∂(ν : Measure _)) ^ 2 ≤
(∫ p : EuclideanSpace ℝ (Fin n) × EuclideanSpace ℝ (Fin n),
‖S (action (hessianMatrix u p.1) (S.adjoint v)) + (2*s)⁻¹ • v‖ ^ 2 ∂P) *
∫ x, ‖fderiv ℝ h x‖ ^ 2 ∂(ν : Measure _)
Module navigation
Module: KLS/LogConcave/Density/GaussianSmoothing/ProductCoupling.
Definition modules: Analysis/BakryEmery/HessianOperator, KLS/LogConcave/Density/GaussianSmoothing/Basic, Probability/Stein/Kernel.
Supporting theorems: gaussian_product_latent_map, gaussian_product_source_stein_identity, gaussian_product_source_stein_pairings_integrable, compact_linear_pairing_sq_le_of_source_identity.
Previous: gaussian_product_source_stein_identity.
Source excerpt, lines 208–226 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_LogConcave_Density_GaussianSmoothing_ProductCoupling open MeasureTheory open FunctionalInequalities.Probability.Stein open scoped ContDiff RealInnerProductSpace set_option maxHeartbeats 800000
theorem FunctionalInequalities.KLS.LogConcave.GaussianSmoothing.gaussian_product_compact_dual_bound_readable {n : ℕ}
(μ ν : ProbabilityMeasure (EuclideanSpace ℝ (Fin n)))
{u : EuclideanSpace ℝ (Fin n) → ℝ} {L G : NNReal}
(hu : ContDiff ℝ 1 u) (hL : LipschitzWith L u)
(hG : LipschitzWith G (gradient u))
(hnorm : (∫ y, Real.exp (-u y) ∂volume) = 1)
(hsource : ((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).map
(gradient u) = (μ : Measure (EuclideanSpace ℝ (Fin n))))
(S : EuclideanSpace ℝ (Fin n) →L[ℝ] EuclideanSpace ℝ (Fin n))
(v : EuclideanSpace ℝ (Fin n)) {s : ℝ} (hs : 0 < s)
(hν : (ν : Measure (EuclideanSpace ℝ (Fin n))) = smoothedLaw ((μ : Measure _).map S) s)
(h : EuclideanSpace ℝ (Fin n) → ℝ) (hh : ContDiff ℝ ∞ h) (hhc : HasCompactSupport h) :
let P := ((volume : Measure (EuclideanSpace ℝ (Fin n))).tilted (-u)).prod
(gaussianLaw (V := EuclideanSpace ℝ (Fin n)) s)
(∫ x, ⟪x,v⟫ * h x ∂(ν : Measure _)) ^ 2 ≤
(∫ p : EuclideanSpace ℝ (Fin n) × EuclideanSpace ℝ (Fin n),
‖S (action (hessianMatrix u p.1) (S.adjoint v)) + (2*s)⁻¹ • v‖ ^ 2 ∂P) *
∫ x, ‖fderiv ℝ h x‖ ^ 2 ∂(ν : Measure _) := by sorry