FKG and Holley inequalities
TheoremFKG inequality#✓fully proved
The FKG inequality (Fortuin, Kasteleyn, Ginibre 1971). Let π be a probability weight on
ConfigSpace E (π ≥ 0, ∑ π = 1) satisfying the FKG lattice condition. Then any two monotone
functions f g : ConfigSpace E → ℝ are positively correlated:
E_π[f] * E_π[g] ≤ E_π[f * g].
See also Mathlib's fkg, which assumes f, g ≥ 0 and does not normalize π; this version
removes the sign condition by shifting f and g by their values at ⊥.
theorem fkg_inequality [Fintype E] [DecidableEq E] {π : ConfigSpace E → ℝ}
(hπ₀ : 0 ≤ π) (hnorm : ∑ ω, π ω = 1) (hπ : FKGLatticeCondition π)
{f g : ConfigSpace E → ℝ} (hf : Monotone f) (hg : Monotone g) :
(∑ ω, π ω * f ω) * (∑ ω, π ω * g ω) ≤ ∑ ω, π ω * (f ω * g ω)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def FKGLatticeCondition (π : ConfigSpace E → ℝ) : Prop :=
∀ ω ω', π ω * π ω' ≤ π (ω ⊔ ω') * π (ω ⊓ ω')
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:111
Uses 2 · Used by 7
TheoremFKG inequality for increasing events#✓fully proved
The FKG inequality for events: under a probability weight π satisfying the FKG lattice
condition, two increasing events are positively correlated, π(A) * π(B) ≤ π(A ∩ B).
theorem fkg_inequality_events [Fintype E] [DecidableEq E] {π : ConfigSpace E → ℝ}
(hπ₀ : 0 ≤ π) (hnorm : ∑ ω, π ω = 1) (hπ : FKGLatticeCondition π)
{A B : Set (ConfigSpace E)} (hA : IsIncreasing A) (hB : IsIncreasing B) :
(∑ ω, π ω * A.indicator (fun _ => (1 : ℝ)) ω)
* (∑ ω, π ω * B.indicator (fun _ => (1 : ℝ)) ω)
≤ ∑ ω, π ω * (A ∩ B).indicator (fun _ => (1 : ℝ)) ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def FKGLatticeCondition (π : ConfigSpace E → ℝ) : Prop :=
∀ ω ω', π ω * π ω' ≤ π (ω ⊔ ω') * π (ω ⊓ ω')
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:111
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
Uses 5 · Used by 9
TheoremHolley inequality for increasing events#✓fully proved
The Holley inequality for increasing events (Holley 1974). If μ₁, μ₂ ≥ 0 have equal
total mass and satisfy μ₁ a * μ₂ b ≤ μ₁ (a ⊓ b) * μ₂ (a ⊔ b), then μ₁(A) ≤ μ₂(A) for every
increasing event A. This is Mathlib's holley applied to the indicator of A.
theorem holley_dominates [Fintype E] [DecidableEq E] {μ₁ μ₂ : ConfigSpace E → ℝ}
(h₁ : 0 ≤ μ₁) (h₂ : 0 ≤ μ₂) (hsum : ∑ ω, μ₁ ω = ∑ ω, μ₂ ω)
(hcond : ∀ a b, μ₁ a * μ₂ b ≤ μ₁ (a ⊓ b) * μ₂ (a ⊔ b))
{A : Set (ConfigSpace E)} (hA : IsIncreasing A) :
∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * μ₁ ω
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * μ₂ ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
Uses 3 · Used by 13
p · Mean-field lower bound for the spontaneous magnetizationDefinitionFinite measure with prescribed point masses#✓fully proved
The finite measure ∑_ω μ(ω) δ_ω on ConfigSpace E with point masses μ(ω) (negative
masses are truncated to 0). For a normalized nonnegative μ it is the measure of the PMF
PMF.ofFintype μ; see measOfMass_eq_toMeasure.
noncomputable def measOfMass (μ : ConfigSpace E → ℝ) : Measure (ConfigSpace E) :=
∑ ω : ConfigSpace E, (ENNReal.ofReal (μ ω)) • Measure.dirac ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 12
LemmaNormalized point masses give the probability mass function's measure#✓fully proved
For a normalized nonnegative mass function, measOfMass μ is the measure of the PMF
PMF.ofFintype (ENNReal.ofReal ∘ μ).
lemma measOfMass_eq_toMeasure (μ : ConfigSpace E → ℝ)
(h : ∑ ω, ENNReal.ofReal (μ ω) = 1) :
measOfMass μ = (PMF.ofFintype (fun ω => ENNReal.ofReal (μ ω)) h).toMeasure
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def measOfMass (μ : ConfigSpace E → ℝ) : Measure (ConfigSpace E) :=
∑ ω : ConfigSpace E, (ENNReal.ofReal (μ ω)) • Measure.dirac ω
PhyslibExt/StatisticalMechanics/RandomCluster/HolleyCoupling.lean:78
Uses 2
TheoremHolley's inequality#✓fully proved
If μ₁, μ₂ ≥ 0 on {0,1}^E have equal total mass and satisfy
the Holley lattice condition μ₁(a) μ₂(b) ≤ μ₁(a ∧ b) μ₂(a ∨ b), then measOfMass μ₁ is
stochastically dominated by measOfMass μ₂. Strict positivity, assumed in Holley's paper, is not
needed. See R. Holley, Remarks on the FKG inequalities, Comm. Math. Phys. 36 (1974); the
real-valued form is StatMech.holley_dominates, from Mathlib's holley.
theorem holley_stochasticallyDominated {μ₁ μ₂ : ConfigSpace E → ℝ}
(h₁ : 0 ≤ μ₁) (h₂ : 0 ≤ μ₂) (hsum : ∑ ω, μ₁ ω = ∑ ω, μ₂ ω)
(hcond : ∀ a b, μ₁ a * μ₂ b ≤ μ₁ (a ⊓ b) * μ₂ (a ⊔ b)) :
measOfMass μ₁ ≼ measOfMass μ₂
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def measOfMass (μ : ConfigSpace E → ℝ) : Measure (ConfigSpace E) :=
∑ ω : ConfigSpace E, (ENNReal.ofReal (μ ω)) • Measure.dirac ω
PhyslibExt/StatisticalMechanics/RandomCluster/HolleyCoupling.lean:78
Uses 5 · Used by 7
TheoremHolley's coupling theorem#✓fully proved
If μ₁, μ₂ are strictly positive probability mass functions
on {0,1}^E satisfying the Holley lattice condition μ₁(a) μ₂(b) ≤ μ₁(a ∧ b) μ₂(a ∨ b), there
is a finite measure on pairs with marginals measOfMass μ₁ and measOfMass μ₂, concentrated on
{(a, b) | a ≤ b}. See R. Holley, Remarks on the FKG inequalities, Comm. Math. Phys. 36
(1974), and G. Grimmett, The Random-Cluster Model (2006), Chapter 2.
theorem holley_exists_monotoneCoupling {μ₁ μ₂ : ConfigSpace E → ℝ}
(h₁ : 0 < μ₁) (h₂ : 0 < μ₂)
(hn₁ : ∑ ω, μ₁ ω = 1) (hn₂ : ∑ ω, μ₂ ω = 1)
(hcond : ∀ a b, μ₁ a * μ₂ b ≤ μ₁ (a ⊓ b) * μ₂ (a ⊔ b)) :
∃ κ : Measure (ConfigSpace E × ConfigSpace E),
IsFiniteMeasure κ ∧ MonotoneCoupling (measOfMass μ₁) (measOfMass μ₂) κ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
structure MonotoneCoupling (μ ν : Measure (ConfigSpace E))
(κ : Measure (ConfigSpace E × ConfigSpace E)) : Prop where
/-- The first marginal of `κ` is `μ`. -/
fst_eq : κ.fst = μ
/-- The second marginal of `κ` is `ν`. -/
snd_eq : κ.snd = ν
/-- `κ` is concentrated on the ordered pairs. -/
supported : κ (orderSet E)ᶜ = 0
MathlibExt/Probability/StochasticOrder/Strassen.lean:50
noncomputable def measOfMass (μ : ConfigSpace E → ℝ) : Measure (ConfigSpace E) :=
∑ ω : ConfigSpace E, (ENNReal.ofReal (μ ω)) • Measure.dirac ω
PhyslibExt/StatisticalMechanics/RandomCluster/HolleyCoupling.lean:78
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.