Joint Scalar-Direction Derivative Under Explicit Exponential-Moment Radii
ProvedFunctionalInequalities.KLS.LogConcave.Suspension.joint_first_derivative_of_radii_readableThis auxiliary lemma states the scalar-direction derivative of the joint logarithmic Laplace transform under explicit local moment assumptions.
Let with , (EuclideanSpace ℝ (Fin n)), a probability measure on , and measurable. Let , (sigma), and jointLaw on JointSpace . Let be the graph law of in the Euclidean space indexed by (Measure.map). Assume:
- .
- .
For with scalar coordinate and , write for its copy blocks and for the scalar coordinate unit vector. Then
Here logLaplace and tiltAverage, the average of under the exponential tilt at its argument. The conclusion is HasDerivAt, including derivative existence. This local identity requires no regular-potential or isotropy hypothesis.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave.Suspension. Shown in its original module context. Proof omitted.
private theorem joint_first_derivative_of_radii {n N : ℕ} (μ : Measure (EuclideanSpace ℝ (Fin n)))
[IsProbabilityMeasure μ] {f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f)
{β rJ rG : ℝ} (hβ : 0 < β) (hN : 0 < N) (_hrJ : 0 < rJ) (hrG : 0 < rG)
(hjoint : Integrable (fun p : JointSpace N n => Real.exp (rJ * ‖p‖))
(jointLaw μ f β (sigma β) N))
(hgraph : Integrable (fun y : EuclideanSpace ℝ (Option (Fin n)) => Real.exp (rG * ‖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 : JointSpace N n) (hzero : z none = 0) (hz : ‖z‖ < min rJ rG) :
HasDerivAt (fun w : ℝ => logLaplace (jointLaw μ f β (sigma β) N)
(w • EuclideanSpace.basisFun (Option (Fin N × Fin n)) ℝ none + z))
((∑ i : Fin N, tiltAverage μ f
(WithLp.toLp 2 fun j => z (some (i, j)))) / (sigma β * Real.sqrt N)) 0
Module navigation
Module: KLS/BKL/Suspension/Derivatives.
Definition modules: Analysis/BakryEmery/Cumulant/Basic, KLS/BKL/Suspension/Law, Analysis/BakryEmery/Tilt/Basic.
Supporting theorems: logLaplace_jointLaw_factorization, laplaceMeasure_mgf, graph_log_integral_hasDerivAt_zero.
Previous: graph_log_integral_hasDerivAt_zero · Next: fderiv_logLaplace_jointLaw_none.
Source excerpt, lines 255–268 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_BKL_Suspension_Derivatives open MeasureTheory FunctionalInequalities FunctionalInequalities.Analysis.BakryEmery
theorem FunctionalInequalities.KLS.LogConcave.Suspension.joint_first_derivative_of_radii_readable {n N : ℕ} (μ : Measure (EuclideanSpace ℝ (Fin n)))
[IsProbabilityMeasure μ] {f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f)
{β rJ rG : ℝ} (hβ : 0 < β) (hN : 0 < N) (_hrJ : 0 < rJ) (hrG : 0 < rG)
(hjoint : Integrable (fun p : JointSpace N n => Real.exp (rJ * ‖p‖))
(jointLaw μ f β (sigma β) N))
(hgraph : Integrable (fun y : EuclideanSpace ℝ (Option (Fin n)) => Real.exp (rG * ‖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 : JointSpace N n) (hzero : z none = 0) (hz : ‖z‖ < min rJ rG) :
HasDerivAt (fun w : ℝ => logLaplace (jointLaw μ f β (sigma β) N)
(w • EuclideanSpace.basisFun (Option (Fin N × Fin n)) ℝ none + z))
((∑ i : Fin N, tiltAverage μ f
(WithLp.toLp 2 fun j => z (some (i, j)))) / (sigma β * Real.sqrt N)) 0 := by sorry