Extended Laplace Transform Factorization of the Suspension Joint Law
ProvedFunctionalInequalities.KLS.LogConcave.Suspension.lintegral_exp_inner_jointLaw_readableThis lemma gives an extended nonnegative Laplace-transform factorization for the suspension joint law.
Let , (EuclideanSpace ℝ (Fin n)), and a sigma-finite measure on . Let be measurable, and , with laplaceMeasure sigma-finite. Let JointSpace , the Euclidean space indexed by . Write and for .
Let jointLaw , the pushforward of by . Then
This identity is in (ENNReal), with ENNReal.ofReal embedding the nonnegative real integrands. It does not require finite integrals, probability measures, , or positive ; division uses Lean's totalized real convention.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave.Suspension. Shown in its original module context. Proof omitted.
theorem lintegral_exp_inner_jointLaw {n N : ℕ} (μ : Measure (EuclideanSpace ℝ (Fin n)))
[SigmaFinite μ] {f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f) (β σ : ℝ)
[SigmaFinite (laplaceMeasure β)] (z : JointSpace N n) :
∫⁻ p, ENNReal.ofReal (Real.exp ⟪z, p⟫) ∂(jointLaw μ f β σ N) =
(∫⁻ s, ENNReal.ofReal (Real.exp (z none / σ * s)) ∂laplaceMeasure β) *
∏ i : Fin N, ∫⁻ x, ENNReal.ofReal (Real.exp (z none / (σ * 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: KLS/BKL/Suspension/Law, Probability/Line/Laplace.
Supporting theorems: lintegral_pi_prod_fin.
Previous: sum_sq_cumulant_ge_of_entries · Next: joint_integrability_factorization.
Source excerpt, lines 71–77 · 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.lintegral_exp_inner_jointLaw_readable {n N : ℕ} (μ : Measure (EuclideanSpace ℝ (Fin n)))
[SigmaFinite μ] {f : EuclideanSpace ℝ (Fin n) → ℝ} (hf : Measurable f) (β σ : ℝ)
[SigmaFinite (laplaceMeasure β)] (z : JointSpace N n) :
∫⁻ p, ENNReal.ofReal (Real.exp ⟪z, p⟫) ∂(jointLaw μ f β σ N) =
(∫⁻ s, ENNReal.ofReal (Real.exp (z none / σ * s)) ∂laplaceMeasure β) *
∏ i : Fin N, ∫⁻ x, ENNReal.ofReal (Real.exp (z none / (σ * Real.sqrt N) * f x +
⟪(WithLp.toLp 2 fun j => z (some (i, j)) : EuclideanSpace ℝ (Fin n)), x⟫)) ∂μ := by sorry