Smooth Compactly Supported Graph-Norm Core
ProvedFunctionalInequalities.KLS.LogConcave.exists_seq_smooth_tendsto_graph_readableThis theorem gives a sequential graph-norm core for the closed weighted-gradient operator.
Let be a finite-dimensional real inner-product space with the stated measurable, Borel, complete, and second-countable structures. Let be an additive Haar measure on , let be a log-concave probability measure, let be continuous linear, and assume that the interior of the support of is nonempty. For any
there exist functions such that each is and compactly supported, and
while
In Lean, the operator is closedWeightedOperator, and the convergences are expressed using MemLp.toLp and Tendsto. The result controls the function and its first weighted derivative only; it makes no assertion about second-order quantities.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave. Shown in its original module context. Proof omitted.
theorem exists_seq_smooth_tendsto_graph (x : (hν.closedWeightedOperator m B hi).domain) :
∃ (g : ℕ → V → ℝ) (hg : ∀ n, ContDiff ℝ ∞ (g n)) (hgc : ∀ n, HasCompactSupport (g n)),
Tendsto (fun n => (memLp_of_contDiff_hasCompactSupport ν (hg n) (hgc n)).toLp (g n))
atTop (𝓝 (x : Lp ℝ 2 (ν : Measure V))) ∧
Tendsto (fun n => (IsTest.of_contDiff_hasCompactSupport ν B (hg n)
(hgc n)).memLp_apply.toLp (apply B (g n))) atTop
(𝓝 (hν.closedWeightedOperator m B hi x))
Module navigation
Module: KLS/LogConcave/WeightedGradient/Multiplier.
Definition modules: KLS/LogConcave/WeightedGradient/Closure, Probability/LogConcave, Energy/WeightedGradient/Basic, Energy/WeightedGradient/Core.
Next: exists_mem_domain_closedWeightedOperator_toLp_mul.
Source excerpt, lines 55–61 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_LogConcave_WeightedGradient_Multiplier
open MeasureTheory Filter Topology
open scoped ContDiff
open FunctionalInequalities.Energy FunctionalInequalities.Energy.WeightedGradient FunctionalInequalities.Analysis.Semigroup
variable {V : Type*} [NormedAddCommGroup V] [InnerProductSpace ℝ V] [CompleteSpace V]
[MeasurableSpace V] [BorelSpace V] [SecondCountableTopology V] [FiniteDimensional ℝ V]
variable {ν : MeasureTheory.ProbabilityMeasure V} (m : MeasureTheory.Measure V) [m.IsAddHaarMeasure] (B : V →L[ℝ] V)
(hν : FunctionalInequalities.KLS.LogConcave ν) (hi : (interior (ν : MeasureTheory.Measure V).support).Nonempty)
theorem FunctionalInequalities.KLS.LogConcave.exists_seq_smooth_tendsto_graph_readable (x : (hν.closedWeightedOperator m B hi).domain) :
∃ (g : ℕ → V → ℝ) (hg : ∀ n, ContDiff ℝ ∞ (g n)) (hgc : ∀ n, HasCompactSupport (g n)),
Tendsto (fun n => (memLp_of_contDiff_hasCompactSupport ν (hg n) (hgc n)).toLp (g n))
atTop (𝓝 (x : Lp ℝ 2 (ν : Measure V))) ∧
Tendsto (fun n => (IsTest.of_contDiff_hasCompactSupport ν B (hg n)
(hgc n)).memLp_apply.toLp (apply B (g n))) atTop
(𝓝 (hν.closedWeightedOperator m B hi x)) := by sorry