Common Exponential Domination Of Conjugate Densities
ProvedFunctionalInequalities.Probability.MomentMeasure.exists_integrable_exponential_domination_readableThis is the common-dominator construction used for the upper semicontinuity result associated with Lemma 17 of Cordero–Erausquin–Klartag, Moment measures (arXiv:1304.0630v1), cited there as a partial formalization.
Let be finite-dimensional with an additive Haar measure . Let , , and let be open with . Assume:
- For every , is neither nor .
- For every , as .
Then there exist and with such that
while, for every ,
and for every the same bound holds with replaced by .
This supplies a single integrable exponential envelope for the limiting and eventually indexed conjugate densities.
Original Lean declaration header
Within namespace FunctionalInequalities.Probability.MomentMeasure. Shown in its original module context. Proof omitted.
theorem exists_integrable_exponential_domination
(dx : Measure E) [dx.IsAddHaarMeasure]
(φ : ℕ → E → EReal) (ψ : E → EReal) {K : Set E}
(hK : IsOpen K) (h0 : (0 : E) ∈ K)
(hfin : ∀ x ∈ K, ψ x ≠ ⊤ ∧ ψ x ≠ ⊥)
(hlim : ∀ x ∈ K, Tendsto (fun j => φ j x) atTop (𝓝 (ψ x))) :
∃ (c M : ℝ) (N : ℕ), 0 < c ∧
(∫⁻ y, ENNReal.ofReal (Real.exp (M - c * ‖y‖)) ∂dx) ≠ ⊤ ∧
(∀ y, density (legendre ψ) y ≤ ENNReal.ofReal (Real.exp (M - c * ‖y‖))) ∧
∀ j, N ≤ j → ∀ y,
density (legendre (φ j)) y ≤ ENNReal.ofReal (Real.exp (M - c * ‖y‖))
Module navigation
Module: Probability/MomentMeasure/ConjugateMass.
Definition modules: Probability/MomentMeasure/Basic, Analysis/Convex/Legendre.
Supporting theorems: affineMaximum_coercive, eventually_affineMaximum_sub_le_legendre, integrable_exp_sub_norm.
Previous: limsup_density_legendre_le · Next: limsup_mass_legendre_le.
Source excerpt, lines 118–128 · Frozen source 408915f.
import Definitions.Def_KLSModular_FunctionalInequalities_Probability_MomentMeasure_ConjugateMass
open MeasureTheory Filter Set
open scoped ENNReal Topology
variable {E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℝ E]
open FunctionalInequalities.Analysis
variable [FiniteDimensional ℝ E] [MeasurableSpace E] [BorelSpace E]
theorem FunctionalInequalities.Probability.MomentMeasure.exists_integrable_exponential_domination_readable
(dx : Measure E) [dx.IsAddHaarMeasure]
(φ : ℕ → E → EReal) (ψ : E → EReal) {K : Set E}
(hK : IsOpen K) (h0 : (0 : E) ∈ K)
(hfin : ∀ x ∈ K, ψ x ≠ ⊤ ∧ ψ x ≠ ⊥)
(hlim : ∀ x ∈ K, Tendsto (fun j => φ j x) atTop (𝓝 (ψ x))) :
∃ (c M : ℝ) (N : ℕ), 0 < c ∧
(∫⁻ y, ENNReal.ofReal (Real.exp (M - c * ‖y‖)) ∂dx) ≠ ⊤ ∧
(∀ y, density (legendre ψ) y ≤ ENNReal.ofReal (Real.exp (M - c * ‖y‖))) ∧
∀ j, N ≤ j → ∀ y,
density (legendre (φ j)) y ≤ ENNReal.ofReal (Real.exp (M - c * ‖y‖)) := by sorry