Factor Integrability and Real Laplace Transform Factorization
ProvedFunctionalInequalities.KLS.LogConcave.Suspension.joint_integrability_factorization_readableThis lemma states that joint exponential integrability yields integrability of each factor and a real-valued product formula.
Let with , (EuclideanSpace ℝ (Fin n)), a probability measure on , and measurable. Let , laplaceMeasure , and (sigma). Put jointLaw , the law of the normalized suspension scalar and the copies, on JointSpace . For , write for its scalar coordinate and for its th copy block.
Assume is integrable under . Set and . Then
This supplies the individual integrability conditions together with the real transform identity. The statement is an implication from joint integrability, not an equivalence.
Original Lean declaration header
Within namespace FunctionalInequalities.KLS.LogConcave.Suspension. Shown in its original module context. Proof omitted.
theorem joint_integrability_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)) :
Integrable (fun s : ℝ => Real.exp (z none / sigma β * s)) (laplaceMeasure β) ∧
(∀ i : Fin N, Integrable (fun x => Real.exp
(z none / (sigma β * Real.sqrt N) * f x +
⟪(WithLp.toLp 2 fun j => z (some (i, j)) : EuclideanSpace ℝ (Fin n)), x⟫)) μ) ∧
(∫ p, Real.exp ⟪z, p⟫ ∂jointLaw μ f β (sigma β) N) =
(∫ s : ℝ, Real.exp (z none / sigma β * s) ∂laplaceMeasure β) *
∏ i : Fin N, ∫ 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: KLS/BKL/Suspension/Law, Probability/Line/Laplace.
Supporting theorems: lintegral_exp_inner_jointLaw.
Previous: lintegral_exp_inner_jointLaw · Next: logLaplace_jointLaw_factorization.
Source excerpt, lines 212–224 · 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.joint_integrability_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)) :
Integrable (fun s : ℝ => Real.exp (z none / sigma β * s)) (laplaceMeasure β) ∧
(∀ i : Fin N, Integrable (fun x => Real.exp
(z none / (sigma β * Real.sqrt N) * f x +
⟪(WithLp.toLp 2 fun j => z (some (i, j)) : EuclideanSpace ℝ (Fin n)), x⟫)) μ) ∧
(∫ p, Real.exp ⟪z, p⟫ ∂jointLaw μ f β (sigma β) N) =
(∫ s : ℝ, Real.exp (z none / sigma β * s) ∂laplaceMeasure β) *
∏ i : Fin N, ∫ 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