Uniqueness of the infinite cluster
DefinitionConfiguration with all edges at a site closed#✓fully proved
The configuration obtained from ω by closing every edge incident to x.
noncomputable def removeSite (x : Site d) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (Site d)) :=
fun e => if x ∈ e then false else ω e
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 2 · Used by 1
DefinitionTrifurcation point, without requiring infinite branches#✓fully proved
x is connected to three distinct sites with infinite ω-clusters that are pairwise
disconnected after removing x. Unlike the classical definition, the three branches at x are
not required to be infinite.
def IsTrifurcation (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x : Site d) : Prop :=
∃ a₁ a₂ a₃ : Site d,
(a₁ ≠ a₂ ∧ a₁ ≠ a₃ ∧ a₂ ≠ a₃) ∧
(Connected d ω x a₁ ∧ Connected d ω x a₂ ∧ Connected d ω x a₃) ∧
((cluster d ω a₁).Infinite ∧ (cluster d ω a₂).Infinite ∧ (cluster d ω a₃).Infinite) ∧
(¬ Connected d (removeSite x ω) a₁ a₂ ∧
¬ Connected d (removeSite x ω) a₁ a₃ ∧
¬ Connected d (removeSite x ω) a₂ a₃)
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
def Connected (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x y : Site d) : Prop :=
(openSubgraph d ω).Reachable x y
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:75
def cluster (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x : Site d) : Set (Site d) :=
{y | Connected d ω x y}
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:103
noncomputable def removeSite (x : Site d) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (Site d)) :=
fun e => if x ∈ e then false else ω e
PhyslibExt/StatisticalMechanics/RandomCluster/BurtonKeaneUniqueness.lean:64
DefinitionSites of a box as a finite set#✓fully proved
The sites of the box Λ_n as a finset.
noncomputable def boxFinsetBK (d n : ℕ) : Finset (Site d) := (box_finite d n).toFinset
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
theorem box_finite (d n : ℕ) : (box d n).Finite
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:91
Uses 2 · Used by 1
DefinitionNumber of trifurcation points in a box#✓fully proved
The number of trifurcation points of ω in the box Λ_n.
noncomputable def Tcount (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (n : ℕ) : ℕ :=
((boxFinsetBK d n).filter (fun x => IsTrifurcation d ω x)).card
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 boxFinsetBK (d n : ℕ) : Finset (Site d) := (box_finite d n).toFinset
PhyslibExt/StatisticalMechanics/RandomCluster/BurtonKeaneUniqueness.lean:243
def IsTrifurcation (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x : Site d) : Prop :=
∃ a₁ a₂ a₃ : Site d,
(a₁ ≠ a₂ ∧ a₁ ≠ a₃ ∧ a₂ ≠ a₃) ∧
(Connected d ω x a₁ ∧ Connected d ω x a₂ ∧ Connected d ω x a₃) ∧
((cluster d ω a₁).Infinite ∧ (cluster d ω a₂).Infinite ∧ (cluster d ω a₃).Infinite) ∧
(¬ Connected d (removeSite x ω) a₁ a₂ ∧
¬ Connected d (removeSite x ω) a₁ a₃ ∧
¬ Connected d (removeSite x ω) a₂ a₃)
PhyslibExt/StatisticalMechanics/RandomCluster/BurtonKeaneUniqueness.lean:109
TheoremBurton–Keane theorem#●ready to prove
Burton–Keane theorem for Bernoulli bond percolation. For every dimension d and every
p ∈ [0, 1], almost surely under the Bernoulli(p) bond percolation measure on ℤ^d there is
at most one infinite open cluster.
public theorem_wanted burton_keane_bernoulli :
∀ (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1),
∀ᵐ ω ∂(bernoulliProductMeasure (E := Sym2 (Lattice.Site d)) p hp),
numInfiniteClusters d ω ≤ 1
noncomputable def bernoulliProductMeasure (p : ℝ≥0) (hp : p ≤ 1) :
Measure (ConfigSpace E) :=
Measure.infinitePi (fun _ : E => bernoulliMeasure p hp)
MathlibExt/Probability/Configuration/ProductMeasure.lean:85
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
noncomputable def numInfiniteClusters (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) : ℕ∞ :=
(infiniteClusters d ω).encard
MathlibExt/Probability/Percolation/InfiniteClusterCount.lean:209
Sources
- R. M. Burton, M. Keane, Density and uniqueness in percolation, Comm. Math. Phys. 121 (1989), 501–505.
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.