Regular-Class Matrix Variance Bound
ProvedFunctionalInequalities.KLS.LogConcave.regularClass_matrix_variance_le_eight_readableLet , let be compact and convex with nonempty interior, let , and let be smooth with convex. Let be the normalized isotropic probability measure whose density is with respect to Lebesgue measure. For every symmetric matrix ,
The theorem is the regular-class quadratic variance estimate. The Lean statement quantifies over all symmetric matrices, including singular and indefinite ones.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave. Shown in its original module context. Proof omitted.
include hn hκ hK hKc hKint hW hstrong hμ hiso in
set_option maxHeartbeats 1500000 in
theorem regularClass_matrix_variance_le_eight :
∀ M : Matrix (Fin n) (Fin n) ℝ, M.IsSymm →
variance (fun x : EuclideanSpace ℝ (Fin n) => ∑ i, ∑ j, M i j*x i*x j)
(μ : Measure _) ≤ 8 * Matrix.trace (M*M)
Module navigation
Module: KLS/Letwin/RegularClass.
Definition modules: KLS/Isotropic.
Selected supporting theorems: exists_symmetric_isUnit_matrix_sequence, integral_fderiv_tilted_eq_integral_mul_fderiv_of_bounded_lipschitz, symmetric_matrix_spectral_geometry, symmetric_trace_integral_extension_mul_of_ae_posSemidef, gaussianLaw_exp_norm_integrable.
Source excerpt, lines 66–71 · Frozen source 408915f.
Literature
This formalizes Theorem 1.2 of Letwin (arXiv:2607.24164v1), cited as “Quadratic-form Poincaré inequality.”
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_Letwin_RegularClass
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 ProbabilityTheory
include hn hκ hK hKc hKint hW hstrong hμ hiso
set_option maxHeartbeats 1500000
theorem FunctionalInequalities.KLS.LogConcave.regularClass_matrix_variance_le_eight_readable :
∀ M : Matrix (Fin n) (Fin n) ℝ, M.IsSymm →
variance (fun x : EuclideanSpace ℝ (Fin n) => ∑ i, ∑ j, M i j*x i*x j)
(μ : Measure _) ≤ 8 * Matrix.trace (M*M) := by sorry