Derivative of the Graph Logarithmic Integral at Zero
ProvedFunctionalInequalities.KLS.LogConcave.Suspension.graph_log_integral_hasDerivAt_zero_readableThis auxiliary lemma identifies a local scalar derivative of a logarithmic exponential integral.
Let , (EuclideanSpace ℝ (Fin n)), a probability measure on , and measurable. Let in the Euclidean space indexed by , and put (Measure.map). Assume and .
For every with , the real function has derivative at equal to the tilted average (tiltAverage):
The formal conclusion is HasDerivAt, so it includes existence of the derivative. This is a local derivative interface under a graph-law exponential norm moment.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave.Suspension. Shown in its original module context. Proof omitted.
private theorem graph_log_integral_hasDerivAt_zero {n : ℕ}
(μ : Measure (EuclideanSpace ℝ (Fin n))) [IsProbabilityMeasure μ]
{f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f) {r : ℝ} (_hr : 0 < r)
(hexp : Integrable (fun y : EuclideanSpace ℝ (Option (Fin n)) => Real.exp (r * ‖y‖))
(μ.map (fun x : EuclideanSpace ℝ (Fin n) =>
(WithLp.toLp 2 fun o => Option.elim o (f x) fun j => x j :
EuclideanSpace ℝ (Option (Fin n))))))
(z : EuclideanSpace ℝ (Fin n)) (hz : ‖z‖ < r) :
HasDerivAt (fun w : ℝ => Real.log (∫ x, Real.exp (w * f x + ⟪z, x⟫) ∂μ))
(tiltAverage μ f z) 0
Module navigation
Module: KLS/BKL/Suspension/Derivatives.
Definition modules: Analysis/BakryEmery/Tilt/Basic.
Next: joint_first_derivative_of_radii.
Source excerpt, lines 64–73 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_BKL_Suspension_Derivatives open MeasureTheory FunctionalInequalities FunctionalInequalities.Analysis.BakryEmery open scoped RealInnerProductSpace
theorem FunctionalInequalities.KLS.LogConcave.Suspension.graph_log_integral_hasDerivAt_zero_readable {n : ℕ}
(μ : Measure (EuclideanSpace ℝ (Fin n))) [IsProbabilityMeasure μ]
{f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f) {r : ℝ} (_hr : 0 < r)
(hexp : Integrable (fun y : EuclideanSpace ℝ (Option (Fin n)) => Real.exp (r * ‖y‖))
(μ.map (fun x : EuclideanSpace ℝ (Fin n) =>
(WithLp.toLp 2 fun o => Option.elim o (f x) fun j => x j :
EuclideanSpace ℝ (Option (Fin n))))))
(z : EuclideanSpace ℝ (Fin n)) (hz : ‖z‖ < r) :
HasDerivAt (fun w : ℝ => Real.log (∫ x, Real.exp (w * f x + ⟪z, x⟫) ∂μ))
(tiltAverage μ f z) 0 := by sorry