Logarithmic Laplace Factorization at Integrable Joint Parameters
ProvedFunctionalInequalities.KLS.LogConcave.Suspension.logLaplace_jointLaw_factorization_readableThis lemma states the logarithmic Laplace factorization at a parameter with integrable joint exponential.
Let with , (EuclideanSpace ℝ (Fin n)), a probability measure on , and measurable. Let , laplaceMeasure , (sigma), and jointLaw . The target JointSpace has a scalar coordinate and copy blocks. For , denote these by and .
Assume . With (logLaplace),
This gives the real logarithmic identity used in local derivative calculations, with joint integrability explicitly required.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave.Suspension. Shown in its original module context. Proof omitted.
theorem logLaplace_jointLaw_factorization {n N : ℕ} (μ : Measure (EuclideanSpace ℝ (Fin n)))
[IsProbabilityMeasure μ] {f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f)
{β : ℝ} (hβ : 0 < β) (hN : 0 < N) (z : JointSpace N n)
(hInt : Integrable (fun p => Real.exp ⟪z, p⟫) (jointLaw μ f β (sigma β) N)) :
FunctionalInequalities.Analysis.BakryEmery.logLaplace (jointLaw μ f β (sigma β) N) z =
Real.log (∫ s : ℝ, Real.exp (z none / sigma β * s) ∂laplaceMeasure β) +
∑ i : Fin N, Real.log (∫ x, Real.exp
(z none / (sigma β * Real.sqrt N) * f x +
⟪(WithLp.toLp 2 fun j => z (some (i, j)) : EuclideanSpace ℝ (Fin n)), x⟫) ∂μ)
Module navigation
Module: KLS/BKL/Suspension/Cumulant.
Definition modules: Analysis/BakryEmery/Cumulant/Basic, KLS/BKL/Suspension/Law, Probability/Line/Laplace.
Supporting theorems: joint_integrability_factorization.
Previous: joint_integrability_factorization · Next: exists_f_abs_exponential_moment.
Source excerpt, lines 272–280 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_KLS_BKL_Suspension_Cumulant open MeasureTheory FunctionalInequalities.Analysis.BakryEmery FunctionalInequalities.Analysis.Tensor open FunctionalInequalities.Probability.Line open scoped RealInnerProductSpace
theorem FunctionalInequalities.KLS.LogConcave.Suspension.logLaplace_jointLaw_factorization_readable {n N : ℕ} (μ : Measure (EuclideanSpace ℝ (Fin n)))
[IsProbabilityMeasure μ] {f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f)
{β : ℝ} (hβ : 0 < β) (hN : 0 < N) (z : JointSpace N n)
(hInt : Integrable (fun p => Real.exp ⟪z, p⟫) (jointLaw μ f β (sigma β) N)) :
FunctionalInequalities.Analysis.BakryEmery.logLaplace (jointLaw μ f β (sigma β) N) z =
Real.log (∫ s : ℝ, Real.exp (z none / sigma β * s) ∂laplaceMeasure β) +
∑ i : Fin N, Real.log (∫ x, Real.exp
(z none / (sigma β * Real.sqrt N) * f x +
⟪(WithLp.toLp 2 fun j => z (some (i, j)) : EuclideanSpace ℝ (Fin n)), x⟫) ∂μ) := by sorry