FKG inequality and monotonicity of random-cluster measures
DefinitionProbability that an edge is open under the random-cluster measure#✓fully proved
The probability φ_{G,p,q}(e open) that the edge e is open.
noncomputable def edgeMarginalOpen (p q : ℝ) (e : Sym2 V) : ℝ :=
∑ ω ∈ Finset.univ.filter (fun ω : ConfigSpace (Sym2 V) => ω e = true), fkProb G p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 2 · Used by 1
LemmaEdge density lies between \(p/(p+q(1-p))\) and \(p\) for \(q \ge 1\)#✓fully proved
For q ≥ 1, every edge of G is open with probability between p / (p + q(1 - p)) and p.
lemma edge_density_bounds {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{e : Sym2 V} (he : e ∈ G.edgeFinset) :
p / (p + q * (1 - p)) ≤ edgeMarginalOpen G p q e ∧ edgeMarginalOpen G p q e ≤ p
noncomputable def edgeMarginalOpen (p q : ℝ) (e : Sym2 V) : ℝ :=
∑ ω ∈ Finset.univ.filter (fun ω : ConfigSpace (Sym2 V) => ω e = true), fkProb G p q ω
PhyslibExt/StatisticalMechanics/RandomCluster/DensityBounds.lean:54
Uses 13
LemmaSupermodularity of the number of connected components#✓fully proved
The number of connected components of simple graphs on a finite vertex set is supermodular:
#comp(G₁) + #comp(G₂) ≤ #comp(G₁ ⊔ G₂) + #comp(G₁ ⊓ G₂).
lemma card_connectedComponent_submodular (G₁ G₂ : SimpleGraph V)
[DecidableRel G₁.Adj] [DecidableRel G₂.Adj] :
Nat.card G₁.ConnectedComponent + Nat.card G₂.ConnectedComponent
≤ Nat.card (G₁ ⊔ G₂).ConnectedComponent + Nat.card (G₁ ⊓ G₂).ConnectedComponent
Used by 1
LemmaSupermodularity of the random-cluster cluster count#✓fully proved
The cluster count of the random-cluster model is supermodular in the configuration.
lemma numClusters_supermodular (a b : ConfigSpace (Sym2 V)) :
numClusters G a + numClusters G b
≤ numClusters G (a ⊔ b) + numClusters G (a ⊓ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def numClusters (ω : ConfigSpace (Sym2 V)) : ℕ :=
Fintype.card (openSub G ω).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:116
Uses 4 · Used by 2
LemmaFKG lattice condition for the random-cluster measure#✓fully proved
For q ≥ 1 and p ∈ (0, 1), the random-cluster measure satisfies the FKG lattice condition
φ(a) φ(b) ≤ φ(a ⊔ b) φ(a ⊓ b).
lemma fkProb_FKGLatticeCondition {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q) :
FKGLatticeCondition (fun ω => fkProb G p q ω)
def FKGLatticeCondition (π : ConfigSpace E → ℝ) : Prop :=
∀ ω ω', π ω * π ω' ≤ π (ω ⊔ ω') * π (ω ⊓ ω')
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:111
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 8 · Used by 2
TheoremFKG inequality for the random-cluster model#✓fully proved
For q ≥ 1, increasing functions are positively
correlated under φ_{G,p,q}: φ(f) φ(g) ≤ φ(f g).
(Fortuin–Kasteleyn–Ginibre, Comm. Math. Phys. 22, 1971; Grimmett, The Random-Cluster Model,
2006,
Theorem 3.8.)
theorem fkProb_positively_associated {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{f g : ConfigSpace (Sym2 V) → ℝ} (hf : Monotone f) (hg : Monotone g) :
(∑ ω, fkProb G p q ω * f ω) * (∑ ω, fkProb G p q ω * g ω)
≤ ∑ ω, fkProb G p q ω * (f ω * g ω)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 8
LemmaFKG inequality for increasing random-cluster events#✓fully proved
The FKG inequality for increasing events: φ(A) φ(B) ≤ φ(A ∩ B) for q ≥ 1.
lemma fkProb_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) :
(∑ ω, fkProb G p q ω * A.indicator (fun _ => (1 : ℝ)) ω)
* (∑ ω, fkProb G p q ω * B.indicator (fun _ => (1 : ℝ)) ω)
≤ ∑ ω, fkProb G 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 fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 9 · Used by 2
DefinitionKernel of the Laplacian of the open subgraph#✓fully proved
The kernel of the Laplacian of the open subgraph of ω, a subspace of V → ℝ.
noncomputable def kerLap (ω : ConfigSpace (Sym2 V)) : Submodule ℝ (V → ℝ) :=
LinearMap.ker (Matrix.toLin' ((openSub G ω).lapMatrix ℝ))
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
LemmaNumber of open clusters equals the dimension of the Laplacian kernel#✓fully proved
The number of open clusters equals the dimension of the kernel of the Laplacian of the open subgraph.
lemma numClusters_eq_finrank (ω : ConfigSpace (Sym2 V)) :
numClusters G ω = Module.finrank ℝ (kerLap G ω)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def numClusters (ω : ConfigSpace (Sym2 V)) : ℕ :=
Fintype.card (openSub G ω).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:116
noncomputable def kerLap (ω : ConfigSpace (Sym2 V)) : Submodule ℝ (V → ℝ) :=
LinearMap.ker (Matrix.toLin' ((openSub G ω).lapMatrix ℝ))
PhyslibExt/StatisticalMechanics/RandomCluster/Comparison.lean:63
Uses 4 · Used by 2
LemmaHolley's cross inequality for FK measures, \(p_1 \le p_2\), \(q \ge 1\)#✓fully proved
Holley's cross inequality for two random-cluster measures with p₁ ≤ p₂ and the same q ≥ 1.
lemma fkProb_cross {p1 p2 q : ℝ} (hp1 : 0 < p1) (hp1' : p1 < 1) (hp2 : 0 < p2)
(hp2' : p2 < 1) (hle : p1 ≤ p2) (hq : 1 ≤ q) (a b : ConfigSpace (Sym2 V)) :
fkProb G p1 q a * fkProb G p2 q b
≤ fkProb G p1 q (a ⊓ b) * fkProb G p2 q (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 7 · Used by 3
TheoremMonotonicity of the random-cluster measure in p#✓fully proved
For q ≥ 1 and p₁ ≤ p₂,
φ_{p₁,q}(A) ≤ φ_{p₂,q}(A) for every increasing event A
(Grimmett, The Random-Cluster Model, 2006, Theorem 3.21).
theorem fkProb_stochastically_increasing {p1 p2 q : ℝ} (hp1 : 0 < p1) (hp1' : p1 < 1)
(hp2 : 0 < p2) (hp2' : p2 < 1) (hle : p1 ≤ p2) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * fkProb G p1 q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * fkProb G p2 q ω
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 fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
DefinitionNumber of open edges of a configuration#✓fully proved
The number of open edges of G in ω. Same as openCount in Tilt.
noncomputable def chOpenCount (ω : ConfigSpace (Sym2 V)) : ℕ :=
(G.edgeFinset.filter (fun e => ω e = true)).card
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 6
DefinitionEdges closed in one configuration and open in another#✓fully proved
The edges of G closed in b and open in c.
noncomputable def diffSet (b c : ConfigSpace (Sym2 V)) : Finset (Sym2 V) :=
G.edgeFinset.filter (fun e => b e = false ∧ c e = true)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 6
LemmaCluster count plus open-edge count is monotone#✓fully proved
For b ≤ c, k(b) + o(b) ≤ k(c) + o(c): opening an edge lowers the cluster count by at most
one.
lemma numClusters_add_openCount_mono : ∀ (n : ℕ) (b c : ConfigSpace (Sym2 V)),
b ≤ c → (diffSet G b c).card = n →
numClusters G b + chOpenCount G b ≤ numClusters G c + chOpenCount G c
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def diffSet (b c : ConfigSpace (Sym2 V)) : Finset (Sym2 V) :=
G.edgeFinset.filter (fun e => b e = false ∧ c e = true)
PhyslibExt/StatisticalMechanics/RandomCluster/ComparisonHolley.lean:123
def numClusters (ω : ConfigSpace (Sym2 V)) : ℕ :=
Fintype.card (openSub G ω).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:116
noncomputable def chOpenCount (ω : ConfigSpace (Sym2 V)) : ℕ :=
(G.edgeFinset.filter (fun e => ω e = true)).card
PhyslibExt/StatisticalMechanics/RandomCluster/ComparisonHolley.lean:68
Uses 8 · Used by 5
DefinitionReduced density \(p/(p + q(1-p))\)#✓fully proved
The reduced density p / (p + q(1 - p)): the Bernoulli parameter dominated by φ_{p,q}.
noncomputable def reducedDensity (p q : ℝ) : ℝ := p / (p + q * (1 - p))
LemmaRandom-cluster measure increases stochastically in \(p\) when \(q \ge 1\)#✓fully proved
For q ≥ 1 the random-cluster measure is stochastically increasing in p.
lemma fk_monotone_in_p {p₁ p₂ q : ℝ} (hp₁ : 0 < p₁) (hp₁' : p₁ < 1) (hp₂ : 0 < p₂)
(hp₂' : p₂ < 1) (hle : p₁ ≤ p₂) (hq : 1 ≤ q) :
measOfMass (fkProb G p₁ q) ≼ measOfMass (fkProb G p₂ q)
noncomputable def measOfMass (μ : ConfigSpace E → ℝ) : Measure (ConfigSpace E) :=
∑ ω : ConfigSpace E, (ENNReal.ofReal (μ ω)) • Measure.dirac ω
PhyslibExt/StatisticalMechanics/RandomCluster/HolleyCoupling.lean:78
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
TheoremComparison inequalities#✓fully proved
For q ≥ 1,
P_{p/(p + q(1 - p))} ≼ φ_{p,q} ≼ P_p, with every law extended uniformly to loops
and nonedges. On graph-edge marginals, this gives the usual FK/Bernoulli comparison
(Fortuin 1972; Grimmett, The Random-Cluster Model, 2006, Theorem 3.21).
theorem fk_bernoulli_sandwich {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q) :
measOfMass (fkProb G (reducedDensity p q) 1) ≼ measOfMass (fkProb G p q)
∧ measOfMass (fkProb G p q) ≼ measOfMass (fkProb G p 1)
noncomputable def measOfMass (μ : ConfigSpace E → ℝ) : Measure (ConfigSpace E) :=
∑ ω : ConfigSpace E, (ENNReal.ofReal (μ ω)) • Measure.dirac ω
PhyslibExt/StatisticalMechanics/RandomCluster/HolleyCoupling.lean:78
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
noncomputable def reducedDensity (p q : ℝ) : ℝ := p / (p + q * (1 - p))
PhyslibExt/StatisticalMechanics/RandomCluster/ComparisonHolley.lean:247
Uses 17
LemmaMixed supermodularity of free and wired cluster counts#✓fully proved
Mixed supermodularity of cluster counts: k(a) + k¹(b) ≤ k(a ⊓ b) + k¹(a ⊔ b), where k¹
counts clusters with the boundary wired.
lemma mixed_supermodular (a b : ConfigSpace (Sym2 V)) :
numClusters G a + numClustersWired G bdry b
≤ numClusters G (a ⊓ b) + numClustersWired G bdry (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def numClusters (ω : ConfigSpace (Sym2 V)) : ℕ :=
Fintype.card (openSub G ω).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:116
noncomputable def numClustersWired (ω : Sym2 V → Bool) : ℕ :=
Nat.card (wiredGraph G bdry ω).ConnectedComponent
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:162
Uses 10 · Used by 1
LemmaHolley's condition for free and wired weights when \(q \ge 1\)#✓fully proved
Holley's condition for the free and wired weights when q ≥ 1. See also bcWeight_cross, which
contains this as the case of boundary wirings ⊥ ≤ clique.
lemma freeWiredWeight_cross {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
(a b : ConfigSpace (Sym2 V)) :
fkWeight G p q a * wiredFkWeight G bdry p q b
≤ fkWeight G p q (a ⊓ b) * wiredFkWeight G bdry p q (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def fkWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClusters G ω
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:140
noncomputable def wiredFkWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersWired G bdry ω
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:81
Uses 7 · Used by 1
LemmaHolley's condition for free and wired probabilities when \(q \ge 1\)#✓fully proved
Holley's condition for the free and wired probabilities when q ≥ 1.
lemma freeWiredProb_cross {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
(a b : ConfigSpace (Sym2 V)) :
fkProb G p q a * wiredFkProb G bdry p q b
≤ fkProb G p q (a ⊓ b) * wiredFkProb G bdry p q (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
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 11 · Used by 1
LemmaFree–wired domination on a finite graph for \(q \ge 1\)#✓fully proved
For q ≥ 1 the free random-cluster measure gives every increasing event at most the probability
the wired measure gives it.
lemma fkProb_le_wiredFkProb_increasing {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * fkProb G p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * wiredFkProb G bdry p q ω
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 fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
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 13 · Used by 5
LemmaFree box measure dominated by the wired one for \(q \ge 1\)#✓fully proved
For q ≥ 1 the free box measure is stochastically dominated by the wired box measure on ℤ^d:
φ⁰_n ≼ φ¹_n.
lemma freeFiniteMeasure_dominated (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q) :
(freeFiniteMeasure d n hp hp1 (zero_lt_one.trans_le hq)
: Measure (ConfigSpace (Sym2 (Site d))))
≼ (wiredFiniteMeasure d n hp hp1 (zero_lt_one.trans_le hq)
: Measure (ConfigSpace (Sym2 (Site d))))
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
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.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 24 · Used by 9
DefinitionNumber of clusters under a boundary wiring#✓fully proved
The number of clusters of ω under the boundary wiring C: connected components of the open
subgraph of ω joined with C.
noncomputable def numClustersBC (C : SimpleGraph V) [DecidableRel C.Adj]
(ω : ConfigSpace (Sym2 V)) : ℕ :=
Nat.card (openSub G ω ⊔ C).ConnectedComponent
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
Uses 2 · Used by 32
LemmaMixed supermodularity of cluster counts for nested wirings#✓fully proved
Mixed supermodularity of cluster counts for nested wirings C ≤ C': k_C(a) + k_C'(b) ≤ k_C(a ⊓
b) + k_C'(a ⊔ b).
lemma mixed_supermodular_bc (C C' : SimpleGraph V) [DecidableRel C.Adj]
[DecidableRel C'.Adj] (hCC' : C ≤ C') (a b : ConfigSpace (Sym2 V)) :
numClustersBC G C a + numClustersBC G C' b
≤ numClustersBC G C (a ⊓ b) + numClustersBC G C' (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def numClustersBC (C : SimpleGraph V) [DecidableRel C.Adj]
(ω : ConfigSpace (Sym2 V)) : ℕ :=
Nat.card (openSub G ω ⊔ C).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:75
Uses 3 · Used by 2
DefinitionRandom-cluster weight with a boundary wiring#✓fully proved
The unnormalized random-cluster weight with boundary wiring C: edgeProduct G p ω · q ^
numClustersBC G C ω.
noncomputable def bcWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersBC G C ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def edgeProduct (p : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
∏ e ∈ G.edgeFinset, (if ω e then p else 1 - p)
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:126
noncomputable def numClustersBC (C : SimpleGraph V) [DecidableRel C.Adj]
(ω : ConfigSpace (Sym2 V)) : ℕ :=
Nat.card (openSub G ω ⊔ C).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:75
Uses 3 · Used by 40
DefinitionPartition function with a boundary wiring#✓fully proved
The partition function with boundary wiring C.
noncomputable def bcZ (p q : ℝ) : ℝ :=
∑ ω : ConfigSpace (Sym2 V), bcWeight G C p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersBC G C ω
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:128
Uses 2 · Used by 25
DefinitionRandom-cluster probability with a boundary wiring#✓fully proved
The random-cluster probability with boundary wiring C, bcWeight / bcZ.
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersBC G C ω
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:128
noncomputable def bcZ (p q : ℝ) : ℝ :=
∑ ω : ConfigSpace (Sym2 V), bcWeight G C p q ω
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:140
Uses 3 · Used by 50
LemmaHolley's condition for weights with nested wirings, \(q \ge 1\)#✓fully proved
Holley's condition for the weights with nested wirings C ≤ C' and q ≥ 1.
lemma bcWeight_cross (C' : SimpleGraph V) [DecidableRel C'.Adj] (hCC' : C ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q) (a b : ConfigSpace (Sym2 V)) :
bcWeight G C p q a * bcWeight G C' p q b
≤ bcWeight G C p q (a ⊓ b) * bcWeight G C' p q (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersBC G C ω
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:128
LemmaHolley's condition for probabilities with nested wirings, \(q \ge 1\)#✓fully proved
Holley's condition for the probabilities with nested wirings C ≤ C' and q ≥ 1.
lemma bcProb_cross (C' : SimpleGraph V) [DecidableRel C'.Adj] (hCC' : C ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q) (a b : ConfigSpace (Sym2 V)) :
bcProb G C p q a * bcProb G C' p q b
≤ bcProb G C p q (a ⊓ b) * bcProb G C' p q (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
Uses 7 · Used by 3
TheoremFKG inequality for the random-cluster measure, \(q \ge 1\)#✓fully proved
FKG inequality for the random-cluster measure (Fortuin, Kasteleyn and Ginibre, 1971): for q ≥
1 and any boundary wiring C, increasing functions are positively correlated under φ_C. See
Grimmett, The Random-Cluster Model (2006), Chapter 3.
theorem bcProb_positively_associated {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 1 ≤ q) {f g : ConfigSpace (Sym2 V) → ℝ} (hf : Monotone f)
(hg : Monotone g) :
(∑ ω, bcProb G C p q ω * f ω) * (∑ ω, bcProb G C p q ω * g ω)
≤ ∑ ω, bcProb G C p q ω * (f ω * g ω)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
TheoremRandom-cluster comparison of boundary conditions for \(q \ge 1\)#✓fully proved
Comparison of boundary conditions for the random-cluster measure: for q ≥ 1 and wirings C ≤
C', φ_C(A) ≤ φ_C'(A) for every increasing event A. This follows from Holley's inequality
(Holley, 1974); see Grimmett, The Random-Cluster Model (2006), Chapter 4.
theorem bcProb_mono_bc (C' : SimpleGraph V) [DecidableRel C'.Adj] (hCC' : C ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C' p q ω
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 bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
Uses 9 · Used by 11
LemmaFree–wired sandwich for boundary graphs inside the boundary clique#✓fully proved
For q ≥ 1 and C inside the boundary clique, φ^0(A) ≤ φ^C(A) ≤ φ^1(A) for every increasing
event A.
lemma bcProb_dlr_sandwich (C : SimpleGraph V) [DecidableRel C.Adj]
(hC : C ≤ StatMech.Lattice.boundaryCliqueGraph bdry)
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G (⊥ : SimpleGraph V) p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω
∧ (∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω
* bcProb G (StatMech.Lattice.boundaryCliqueGraph bdry) p q ω
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
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 bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
LemmaSandwich between the free and all-wired boundary conditions#✓fully proved
The free lower bound together with the bound by the boundary condition ⊤ (all vertices
wired).
lemma bcProb_dlr_sandwich_top (C : SimpleGraph V) [DecidableRel C.Adj]
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G (⊥ : SimpleGraph V) p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω
∧ (∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω
* bcProb G (⊤ : SimpleGraph V) p q ω
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 bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
DefinitionEdge marginal of a mass function#✓fully proved
The probability μ(ω(e) = 1) that the coordinate e is open under the mass function μ.
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 67
DefinitionMass of an event under a mass function#✓fully proved
The mass μ(A) of an event under the mass function μ.
noncomputable def eventMassProb (μ : ConfigSpace E → ℝ) (A : Set (ConfigSpace E)) : ℝ :=
∑ ω : ConfigSpace E, A.indicator (fun _ => (1 : ℝ)) ω * μ ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 10
StructureMonotone coupling of two mass functions#✓fully proved
P is a monotone coupling of the mass functions μ and ν: a nonnegative mass function on
pairs
with marginals μ and ν, supported on pairs (ω, ω') with ω ≤ ω'.
structure IsMonotoneCouplingFun (P : ConfigSpace E × ConfigSpace E → ℝ)
(μ ν : ConfigSpace E → ℝ) : Prop where
nonneg : ∀ z, 0 ≤ P z
supportLE : ∀ z, ¬ z.1 ≤ z.2 → P z = 0
fst_marginal : ∀ ω, ∑ ω' : ConfigSpace E, P (ω, ω') = μ ω
snd_marginal : ∀ ω', ∑ ω : ConfigSpace E, P (ω, ω') = ν ω'
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 9
LemmaMonotone couplings with equal edge marginals agree on up-sets#✓fully proved
Two monotonically coupled measures with the same edge marginals give the same mass to every increasing event.
lemma eventMass_eq_of_edgeMarg_eq {P : ConfigSpace E × ConfigSpace E → ℝ}
{μ ν : ConfigSpace E → ℝ} (hP : IsMonotoneCouplingFun P μ ν)
(hmarg : ∀ e : E, edgeMargProb μ e = edgeMargProb ν e)
{A : Set (ConfigSpace E)} (hA : IsIncreasing A) :
eventMassProb μ A = eventMassProb ν A
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
structure IsMonotoneCouplingFun (P : ConfigSpace E × ConfigSpace E → ℝ)
(μ ν : ConfigSpace E → ℝ) : Prop where
nonneg : ∀ z, 0 ≤ P z
supportLE : ∀ z, ¬ z.1 ≤ z.2 → P z = 0
fst_marginal : ∀ ω, ∑ ω' : ConfigSpace E, P (ω, ω') = μ ω
snd_marginal : ∀ ω', ∑ ω : ConfigSpace E, P (ω, ω') = ν ω'
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:70
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def eventMassProb (μ : ConfigSpace E → ℝ) (A : Set (ConfigSpace E)) : ℝ :=
∑ ω : ConfigSpace E, A.indicator (fun _ => (1 : ℝ)) ω * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:63
Uses 6 · Used by 1
DefinitionEvent mass under the random-cluster measure with a boundary graph#✓fully proved
The mass φ^C_{G,p,q}(A) of an event under the random-cluster measure with boundary graph C.
noncomputable def bcEventMass (C : SimpleGraph V) [DecidableRel C.Adj] (p q : ℝ)
(A : Set (ConfigSpace (Sym2 V))) : ℝ :=
∑ ω : ConfigSpace (Sym2 V), A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
Uses 2 · Used by 1
LemmaBoundary-graph comparison \(\varphi^{C'}(A) \le q^N \varphi^C(A)\)#✓fully proved
If the cluster counts with boundary graphs C ≤ C' differ by at most N, then
φ^C(A) ≤ q^N φ^{C'}(A) for nonnegative event indicators.
lemma bcEventMass_le_qpow (C C' : SimpleGraph V) [DecidableRel C.Adj]
[DecidableRel C'.Adj] (hCC' : C ≤ C') {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 1 ≤ q) (N : ℕ) (hb : ∀ ω, numClustersBC G C ω ≤ numClustersBC G C' ω + N)
{A : Set (ConfigSpace (Sym2 V))} (hA0 : ∀ ω, 0 ≤ A.indicator (fun _ => (1 : ℝ)) ω) :
bcEventMass G C' p q A ≤ q ^ N * bcEventMass G C p q A
noncomputable def numClustersBC (C : SimpleGraph V) [DecidableRel C.Adj]
(ω : ConfigSpace (Sym2 V)) : ℕ :=
Nat.card (openSub G ω ⊔ C).ConnectedComponent
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:75
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcEventMass (C : SimpleGraph V) [DecidableRel C.Adj] (p q : ℝ)
(A : Set (ConfigSpace (Sym2 V))) : ℝ :=
∑ ω : ConfigSpace (Sym2 V), A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:215
LemmaBoundary-supported wirings lie below the boundary clique#✓fully proved
A wiring whose edges join boundary vertices lies below the boundary clique.
lemma bc_le_boundaryClique (C : SimpleGraph V)
(hC : ∀ x y, C.Adj x y → bdry x ∧ bdry y) :
C ≤ StatMech.Lattice.boundaryCliqueGraph bdry
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
Uses 2 · Used by 1
LemmaEmpty wiring gives the free random-cluster measure#✓fully proved
The empty wiring gives the free random-cluster measure.
lemma bcProb_bot_eq_fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) :
bcProb G (⊥ : SimpleGraph V) p q ω = fkProb G p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 11 · Used by 5
LemmaBoundary clique gives the wired random-cluster measure#✓fully proved
The boundary clique gives the wired random-cluster measure.
lemma bcProb_clique_eq_wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) :
bcProb G (StatMech.Lattice.boundaryCliqueGraph bdry) p q ω
= wiredFkProb G bdry p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
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 15 · Used by 16
LemmaBoundary wirings lie between free and wired when \(q \ge 1\)#✓fully proved
For q ≥ 1 and a wiring C supported on the boundary, free ≤ φ_C ≤ wired on every increasing
event.
lemma fkProb_le_bcProb_le_wiredFkProb (C : SimpleGraph V) [DecidableRel C.Adj]
(hC : ∀ x y, C.Adj x y → bdry x ∧ bdry y)
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * fkProb G p q ω)
≤ (∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω)
∧ (∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * wiredFkProb G bdry p q ω
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 fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
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 11
LemmaBoundary-graph FK measure increases in \(p\) for \(q \ge 1\)#✓fully proved
For q ≥ 1, the random-cluster measure with boundary graph C is increasing in p on
increasing events.
lemma bcProb_monotone_in_p {p1 p2 q : ℝ} (hp1 : 0 < p1) (hp1' : p1 < 1)
(hp2 : 0 < p2) (hp2' : p2 < 1) (hle : p1 ≤ p2) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p1 q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C p2 q ω
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 bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
Uses 9 · Used by 7
DefinitionPartition function of a conditioning fibre#✓fully proved
The partition function of the fibre of ψ off F: the sum of bcWeight over configurations
agreeing with ψ off F.
noncomputable def inducedBcZ (p q : ℝ) (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) : ℝ :=
∑ ρ ∈ condFibre F ψ, bcWeight G C p q ρ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def condFibre (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (AgreesOff F ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:85
noncomputable def bcWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersBC G C ω
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:128
Uses 3 · Used by 15
DefinitionConditional random-cluster measure with a boundary wiring#✓fully proved
The random-cluster measure with wiring C conditioned on agreeing with ψ off the edge set
F.
noncomputable def condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def AgreesOff (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
ConfigSpace (Sym2 V) → Prop :=
fun ω => ∀ e, e ∉ F → ω e = ψ e
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:58
noncomputable def bcWeight (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
edgeProduct G p ω * q ^ numClustersBC G C ω
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:128
noncomputable def inducedBcZ (p q : ℝ) (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) : ℝ :=
∑ ρ ∈ condFibre F ψ, bcWeight G C p q ρ
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:98
Uses 4 · Used by 24
LemmaHolley's condition for nested-wiring conditional measures, \(q \ge 1\)#✓fully proved
Holley's condition for the conditional measures with nested wirings C ≤ C' and q ≥ 1.
lemma condBcProb_cross (C' : SimpleGraph V) [DecidableRel C'.Adj] (hCC' : C ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
(F : Finset (Sym2 V)) (ψ a b : ConfigSpace (Sym2 V)) :
condBcProb G C p q F ψ a * condBcProb G C' p q F ψ b
≤ condBcProb G C p q F ψ (a ⊓ b) * condBcProb G C' p q F ψ (a ⊔ b)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
Uses 9 · Used by 1
LemmaConditional measures increase with the wiring for \(q \ge 1\)#✓fully proved
For q ≥ 1 and C ≤ C', the conditional measure with wiring C is dominated by the one with
wiring C' on increasing events.
lemma condBcProb_mono_bc (C' : SimpleGraph V) [DecidableRel C'.Adj] (hCC' : C ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
(F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V))
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * condBcProb G C p q F ψ ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * condBcProb G C' p q F ψ ω
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 condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
Uses 11 · Used by 2
LemmaDisintegration of a boundary-wired measure over conditioning fibres#✓fully proved
Disintegration: φ_C(ω) is the mass of the fibre of ω times the conditional probability of
ω in that fibre.
lemma bcProb_eq_fibreMass_mul_condBcProb {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(F : Finset (Sym2 V)) (ω : ConfigSpace (Sym2 V)) :
bcProb G C p q ω
= (∑ ρ ∈ condFibre F ω, bcProb G C p q ρ) * condBcProb G C p q F ω ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
noncomputable def condFibre (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (AgreesOff F ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:85
noncomputable def condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
Uses 10 · Used by 3
LemmaWirings with the boundary clique dominate the wired measure, \(q \ge 1\)#✓fully proved
For q ≥ 1 the wired measure is dominated by φ_C' for any wiring C' containing the boundary
clique.
lemma wiredFkProb_inner_dominated (C' : SimpleGraph V) [DecidableRel C'.Adj]
(hCC' : StatMech.Lattice.boundaryCliqueGraph bdry ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * wiredFkProb G bdry p q ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * bcProb G C' p q ω
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
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
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
LemmaWired measure conditionally dominated by larger wirings, \(q \ge 1\)#✓fully proved
Conditional version of wiredFkProb_inner_dominated.
lemma wiredFkProb_inner_dominated_cond (C' : SimpleGraph V) [DecidableRel C'.Adj]
(hCC' : StatMech.Lattice.boundaryCliqueGraph bdry ≤ C')
{p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
(F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V))
{A : Set (ConfigSpace (Sym2 V))} (hA : IsIncreasing A) :
(∑ ω, A.indicator (fun _ => (1 : ℝ)) ω
* condBcProb G (StatMech.Lattice.boundaryCliqueGraph bdry) p q F ψ ω)
≤ ∑ ω, A.indicator (fun _ => (1 : ℝ)) ω * condBcProb G C' p q F ψ ω
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
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 condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.