Regular-Class Representation After Ball Conditioning and Affine Transport
ProvedFunctionalInequalities.KLS.exists_regularClass_of_cond_closedBall_map_readableThis statement formalizes Letwin's Lemma A.1 regular-class construction.
Let be a finite-dimensional real inner-product space with its Borel measurable structure. Let satisfy RegularPotential V a b, let , let be a continuous linear equivalence, and let . Then there exist a set , a function , and a constant such that:
- , is compact and convex, and is nonempty;
- is and is convex on all of ;
- the affine image of the conditional law of
hV.lawon the closed ball has density
This is an existence result for compact, smooth, uniformly convex regular approximants.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS. Shown in its original module context. Proof omitted.
theorem exists_regularClass_of_cond_closedBall_map [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {a b : ℝ} (hV : RegularPotential V a b) {R : ℝ} (hR : 0 < R) (L : E ≃L[ℝ] E)
(c : E) :
∃ (K : Set E) (W : E → ℝ) (κ : ℝ), 0 < κ ∧ IsCompact K ∧ Convex ℝ K ∧ (interior K).Nonempty ∧
ContDiff ℝ ∞ W ∧ ConvexOn ℝ univ (fun y => W y - (κ / 2) * ‖y‖ ^ 2) ∧
(ProbabilityTheory.cond (hV.law : Measure E) (closedBall (0 : E) R)).map (fun x => L (x - c)) =
(volume : Measure E).withDensity (K.indicator fun p => ENNReal.ofReal (Real.exp (-W p)))
Module navigation
Module: KLS/LogConcave/BallConditioning.
Definition modules: KLS/LogConcave/Regular/Basic.
Supporting theorems: convexOn_of_hessian_ge, RegularPotential.law_comp_affine.
Next: covariance_tendsto_one.
Source excerpt, lines 99–105 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_LogConcave_BallConditioning
open MeasureTheory Set Metric
open scoped RealInnerProductSpace ContDiff
variable {E : Type*}
variable [NormedAddCommGroup E] [InnerProductSpace ℝ E]
theorem FunctionalInequalities.KLS.exists_regularClass_of_cond_closedBall_map_readable [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
{V : E → ℝ} {a b : ℝ} (hV : RegularPotential V a b) {R : ℝ} (hR : 0 < R) (L : E ≃L[ℝ] E)
(c : E) :
∃ (K : Set E) (W : E → ℝ) (κ : ℝ), 0 < κ ∧ IsCompact K ∧ Convex ℝ K ∧ (interior K).Nonempty ∧
ContDiff ℝ ∞ W ∧ ConvexOn ℝ univ (fun y => W y - (κ / 2) * ‖y‖ ^ 2) ∧
(ProbabilityTheory.cond (hV.law : Measure E) (closedBall (0 : E) R)).map (fun x => L (x - c)) =
(volume : Measure E).withDensity (K.indicator fun p => ENNReal.ofReal (Real.exp (-W p))) := by sorry