FKG inequality and ordering for infinite-volume FK measures at q = 2
A. The FKG inequality for the free measures
LemmaFKG inequality for free \(q = 2\) box measures on smaller-box events#✓fully proved
FKG inequality for the free box measure φ⁰_m (q = 2) on two increasing cylinder events of a
smaller box Λ_N, N ≤ m.
lemma freeFiniteMeasure_fkg (N m : ℕ) (hNm : N ≤ m) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
{S₁ S₂ : Set (ConfigSpace (Sym2 (boxVerts d N)))}
(hS₁ : IsIncreasing S₁) (hS₂ : IsIncreasing S₂) :
(freeFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₁)
* (freeFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₂)
≤ (freeFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(boxRestrict d N ⁻¹' S₁ ∩ boxRestrict d N ⁻¹' S₂)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
Uses 15 · Used by 1
LemmaFKG inequality for the free \(q = 2\) infinite-volume measure#✓fully proved
FKG inequality for the free infinite-volume measure at q = 2 on increasing cylinder events of
a box.
lemma ivp_iv_fkg (N : ℕ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
{S₁ S₂ : Set (ConfigSpace (Sym2 (boxVerts d N)))}
(hS₁ : IsIncreasing S₁) (hS₂ : IsIncreasing S₂) :
(freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₁)
* (freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₂)
≤ (freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(boxRestrict d N ⁻¹' S₁ ∩ boxRestrict d N ⁻¹' S₂)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def freeInfiniteVolume (d : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(CompactSpace.tendsto_subseq (fun n => freeFiniteMeasure d n hp hp1 hq)).choose
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:199
B. The FKG inequality for the wired measures
LemmaFKG lattice condition for the wired measure when \(q \ge 1\)#✓fully proved
The wired random-cluster measure satisfies the FKG lattice condition when q ≥ 1.
lemma wiredFkProb_FKGLatticeCondition {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q) :
FKGLatticeCondition (fun ω => wiredFkProb G bdry p q ω)
def FKGLatticeCondition (π : ConfigSpace E → ℝ) : Prop :=
∀ ω ω', π ω * π ω' ≤ π (ω ⊔ ω') * π (ω ⊓ ω')
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:111
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
Uses 8 · Used by 1
LemmaFKG inequality for the wired measure when \(q \ge 1\)#✓fully proved
FKG inequality for the wired random-cluster measure on a finite graph: increasing events are
positively correlated when q ≥ 1.
lemma wiredFkProb_positively_associated_events {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A B : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) (hB : IsIncreasing B) :
(∑ ω, wiredFkProb G bdry p q ω * A.indicator (fun _ => (1 : ℝ)) ω)
* (∑ ω, wiredFkProb G bdry p q ω * B.indicator (fun _ => (1 : ℝ)) ω)
≤ ∑ ω, wiredFkProb G bdry p q ω * (A ∩ B).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
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
Uses 9 · Used by 1
LemmaFKG inequality for wired \(q = 2\) box measures on smaller-box events#✓fully proved
FKG inequality for the wired box measure φ¹_m (q = 2) on two increasing cylinder events of a
smaller box Λ_N, N ≤ m.
lemma wiredFiniteMeasure_fkg (N m : ℕ) (hNm : N ≤ m) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
{S₁ S₂ : Set (ConfigSpace (Sym2 (boxVerts d N)))}
(hS₁ : IsIncreasing S₁) (hS₂ : IsIncreasing S₂) :
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₁)
* (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₂)
≤ (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(boxRestrict d N ⁻¹' S₁ ∩ boxRestrict d N ⁻¹' S₂)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 16 · Used by 1
LemmaFKG inequality for the wired \(q = 2\) infinite-volume measure#✓fully proved
FKG inequality for the wired infinite-volume measure at q = 2 on increasing cylinder events of
a box.
lemma ivp_iv_fkg_wired (N : ℕ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
{S₁ S₂ : Set (ConfigSpace (Sym2 (boxVerts d N)))}
(hS₁ : IsIncreasing S₁) (hS₂ : IsIncreasing S₂) :
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₁)
* (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S₂)
≤ (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(boxRestrict d N ⁻¹' S₁ ∩ boxRestrict d N ⁻¹' S₂)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def wiredInfiniteVolume (d : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(CompactSpace.tendsto_subseq (fun n => wiredFiniteMeasure d n hp hp1 hq)).choose
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:217
Uses 10 · Used by 1
C. Ordering of the infinite-volume measures
LemmaWired \(q = 2\) measure dominates the free one on increasing cylinders#✓fully proved
At q = 2 the free infinite-volume measure gives every increasing cylinder event at most the
probability the wired one gives it.
lemma ivp_iv_monotone (N : ℕ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
{S : Set (ConfigSpace (Sym2 (boxVerts d N)))} (hS : IsIncreasing S) :
(freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S)
≤ (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def freeInfiniteVolume (d : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(CompactSpace.tendsto_subseq (fun n => freeFiniteMeasure d n hp hp1 hq)).choose
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:199
Uses 15 · Used by 2
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.