Positive association, translates of crossing events, and the box-crossing property
DefinitionOpen cluster of the origin#✓fully proved
The open cluster of the origin of ℤ^d.
def originCluster (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) : Set (Site d) :=
cluster d ω (0 : Site d)
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 cluster (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x : Site d) : Set (Site d) :=
{y | Connected d ω x y}
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:103
Uses 3 · Used by 1
DefinitionEvent that the origin's cluster is infinite#✓fully proved
The event {0 ↔ ∞} that the open cluster of the origin is infinite.
def percolationEvent (d : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | (originCluster d ω).Infinite}
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 originCluster (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) : Set (Site d) :=
cluster d ω (0 : Site d)
MathlibExt/Probability/Percolation/Universality/Defs.lean:79
Uses 3 · Used by 2
DefinitionPercolation probability as an extended real#✓fully proved
The percolation probability θ_d(p) = ℙ_p(0 ↔ ∞), as an extended nonnegative real.
noncomputable def percolationProbability (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) : ℝ≥0∞ :=
bernoulliProductMeasure (E := Sym2 (Site d)) p hp (percolationEvent d)
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
def percolationEvent (d : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | (originCluster d ω).Infinite}
MathlibExt/Probability/Percolation/Universality/Defs.lean:95
DefinitionReal densities with no percolation#✓fully proved
The set of real densities p ∈ [0, 1] with θ_d(p) = 0.
def subcriticalDensities (d : ℕ) : Set ℝ :=
{p : ℝ | ∃ (hp0 : 0 ≤ p) (hp1 : p ≤ 1),
percolationProbability d ⟨p, hp0⟩ (by exact_mod_cast hp1) = 0}
noncomputable def percolationProbability (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) : ℝ≥0∞ :=
bernoulliProductMeasure (E := Sym2 (Site d)) p hp (percolationEvent d)
MathlibExt/Probability/Percolation/Universality/Defs.lean:107
Uses 1 · Used by 2
DefinitionCritical probability as a real number#✓fully proved
The critical probability p_c(d) = sup {p ∈ [0, 1] : θ_d(p) = 0} as a real number
(see criticalProbability_eq_pc).
noncomputable def criticalProbability (d : ℕ) : ℝ :=
sSup (subcriticalDensities d)
def subcriticalDensities (d : ℕ) : Set ℝ :=
{p : ℝ | ∃ (hp0 : 0 ≤ p) (hp1 : p ≤ 1),
percolationProbability d ⟨p, hp0⟩ (by exact_mod_cast hp1) = 0}
MathlibExt/Probability/Percolation/Universality/Defs.lean:111
Uses 1 · Used by 1
TheoremAgreement of the two percolation events#✓fully proved
percolationEvent is StatMech.Percolation.percolationEvent.
theorem percolationEvent_eq : percolationEvent d = Percolation.percolationEvent d
def percolationEvent (d : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | (originCluster d ω).Infinite}
MathlibExt/Probability/Percolation/Universality/Defs.lean:95
def percolationEvent (d : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | (StatMech.Lattice.cluster d ω (origin d)).Infinite}
MathlibExt/Probability/Percolation/Theta.lean:59
TheoremAgreement of the two critical probabilities#✓fully proved
criticalProbability is the real-valued form of StatMech.Percolation.pc.
theorem criticalProbability_eq_pc : criticalProbability d = (Percolation.pc d : ℝ)
noncomputable def criticalProbability (d : ℕ) : ℝ :=
sSup (subcriticalDensities d)
MathlibExt/Probability/Percolation/Universality/Defs.lean:117
noncomputable def pc (d : ℕ) : ℝ≥0 :=
sSup (subcriticalSet d)
MathlibExt/Probability/Percolation/Theta.lean:76
Uses 10
DefinitionPositively associated measure#✓fully proved
A finite measure on configurations is positively associated if
μ(A) μ(B) ≤ μ(A ∩ B) μ(univ) for all measurable increasing events A, B. The total-mass
factor makes the Harris--FKG inequality invariant under finite scaling.
def PositivelyAssociated {E : Type*} (μ : Measure (ConfigSpace E))
[IsFiniteMeasure μ] : Prop :=
∀ A B : Set (ConfigSpace E), MeasurableSet A → MeasurableSet B →
IsIncreasing A → IsIncreasing B →
μ.real A * μ.real B ≤ μ.real (A ∩ B) * μ.real Set.univ
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 2 · Used by 4
TheoremPositive association for probability measures is the Harris–FKG inequality#✓fully proved
For a probability measure, normalized positive association is the usual Harris--FKG inequality.
theorem positivelyAssociated_iff_of_isProbabilityMeasure {E : Type*}
(μ : Measure (ConfigSpace E)) [IsProbabilityMeasure μ] :
PositivelyAssociated μ ↔
∀ A B : Set (ConfigSpace E), MeasurableSet A → MeasurableSet B →
IsIncreasing A → IsIncreasing B → μ.real A * μ.real B ≤ μ.real (A ∩ B)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def PositivelyAssociated {E : Type*} (μ : Measure (ConfigSpace E))
[IsFiniteMeasure μ] : Prop :=
∀ A B : Set (ConfigSpace E), MeasurableSet A → MeasurableSet B →
IsIncreasing A → IsIncreasing B →
μ.real A * μ.real B ≤ μ.real (A ∩ B) * μ.real Set.univ
MathlibExt/Probability/Percolation/Universality/Defs.lean:145
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
Uses 3 · Used by 1
TheoremHarris–FKG inequality for a positively associated probability measure#✓fully proved
The usual unnormalized Harris--FKG inequality for a positively associated probability measure.
theorem PositivelyAssociated.probability {E : Type*} {μ : Measure (ConfigSpace E)}
[IsProbabilityMeasure μ] (h : PositivelyAssociated μ)
(A B : Set (ConfigSpace E)) (hAm : MeasurableSet A) (hBm : MeasurableSet B)
(hA : IsIncreasing A) (hB : IsIncreasing B) :
μ.real A * μ.real B ≤ μ.real (A ∩ B)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def PositivelyAssociated {E : Type*} (μ : Measure (ConfigSpace E))
[IsFiniteMeasure μ] : Prop :=
∀ A B : Set (ConfigSpace E), MeasurableSet A → MeasurableSet B →
IsIncreasing A → IsIncreasing B →
μ.real A * μ.real B ≤ μ.real (A ∩ B) * μ.real Set.univ
MathlibExt/Probability/Percolation/Universality/Defs.lean:145
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
Uses 4 · Used by 2
DefinitionTranslate of a bond configuration#✓fully proved
The configuration ω translated by -v: the state of e is the state of e + v in ω.
def translateConfig (v : Site 2) (ω : ConfigSpace (Sym2 (Site 2))) :
ConfigSpace (Sym2 (Site 2)) :=
fun e => ω (e.map (· + v))
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 2
DefinitionLeft–right crossing event of a translated rectangle#✓fully proved
The event that the rectangle v + [0, a] × [0, b] has an open left–right crossing.
def translatedHorizontalCrossingEvent (v : Site 2) (a b : ℤ) :
Set (ConfigSpace (Sym2 (Site 2))) :=
(translateConfig v) ⁻¹' (horizontalCrossingEvent a b)
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
def translateConfig (v : Site 2) (ω : ConfigSpace (Sym2 (Site 2))) :
ConfigSpace (Sym2 (Site 2)) :=
fun e => ω (e.map (· + v))
MathlibExt/Probability/Percolation/Universality/Defs.lean:186
def horizontalCrossingEvent (a b : ℤ) : Set (ConfigSpace (Sym2 (Site 2))) :=
{ω | HorizontalCrossing ω a b}
MathlibExt/Probability/Percolation/TwoDimensional/Crossings.lean:99
DefinitionBottom–top crossing event of a translated rectangle#✓fully proved
The event that the rectangle v + [0, a] × [0, b] has an open bottom–top crossing.
def translatedVerticalCrossingEvent (v : Site 2) (a b : ℤ) :
Set (ConfigSpace (Sym2 (Site 2))) :=
(translateConfig v) ⁻¹' (verticalCrossingEvent a b)
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
def translateConfig (v : Site 2) (ω : ConfigSpace (Sym2 (Site 2))) :
ConfigSpace (Sym2 (Site 2)) :=
fun e => ω (e.map (· + v))
MathlibExt/Probability/Percolation/Universality/Defs.lean:186
def verticalCrossingEvent (a b : ℤ) : Set (ConfigSpace (Sym2 (Site 2))) :=
{ω | VerticalCrossing ω a b}
MathlibExt/Probability/Percolation/TwoDimensional/Crossings.lean:114
DefinitionSet of long-direction box-crossing probabilities#✓fully proved
The set of crossing probabilities, for n ≥ n₀ and all translates, of the long direction of
⌊ρn⌋ × n and n × ⌊ρn⌋ rectangles.
noncomputable def boxCrossingProbabilities (μ : Measure (ConfigSpace (Sym2 (Site 2))))
(ρ : ℝ) (n0 : ℕ) : Set ℝ :=
{x : ℝ | ∃ (n : ℕ) (τ : Site 2), n0 ≤ n ∧
(x = μ.real (translatedHorizontalCrossingEvent τ ⌊ρ * (n : ℝ)⌋ (n : ℤ))
∨ x = μ.real (translatedVerticalCrossingEvent τ (n : ℤ) ⌊ρ * (n : ℝ)⌋))}
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 translatedHorizontalCrossingEvent (v : Site 2) (a b : ℤ) :
Set (ConfigSpace (Sym2 (Site 2))) :=
(translateConfig v) ⁻¹' (horizontalCrossingEvent a b)
MathlibExt/Probability/Percolation/Universality/Defs.lean:202
def translatedVerticalCrossingEvent (v : Site 2) (a b : ℤ) :
Set (ConfigSpace (Sym2 (Site 2))) :=
(translateConfig v) ⁻¹' (verticalCrossingEvent a b)
MathlibExt/Probability/Percolation/Universality/Defs.lean:207
DefinitionInfimum of the box-crossing probabilities#✓fully proved
The infimum of boxCrossingProbabilities μ ρ n₀.
noncomputable def boxCrossingInf (μ : Measure (ConfigSpace (Sym2 (Site 2))))
(ρ : ℝ) (n0 : ℕ) : ℝ :=
sInf (boxCrossingProbabilities μ ρ n0)
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 boxCrossingProbabilities (μ : Measure (ConfigSpace (Sym2 (Site 2))))
(ρ : ℝ) (n0 : ℕ) : Set ℝ :=
{x : ℝ | ∃ (n : ℕ) (τ : Site 2), n0 ≤ n ∧
(x = μ.real (translatedHorizontalCrossingEvent τ ⌊ρ * (n : ℝ)⌋ (n : ℤ))
∨ x = μ.real (translatedVerticalCrossingEvent τ (n : ℤ) ⌊ρ * (n : ℝ)⌋))}
MathlibExt/Probability/Percolation/Universality/Defs.lean:227
Uses 3 · Used by 1
DefinitionBox-crossing property with a given aspect ratio#✓fully proved
The box-crossing property with aspect ratio ρ > 1: for some n₀, the probabilities of
crossing all translates of ⌊ρn⌋ × n rectangles in the long direction, n ≥ n₀, are bounded
below by a positive constant.
def BoxCrossingProperty (μ : Measure (ConfigSpace (Sym2 (Site 2)))) (ρ : ℝ) : Prop :=
1 < ρ ∧ ∃ n0 : ℕ, 0 < boxCrossingInf μ ρ n0
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 boxCrossingInf (μ : Measure (ConfigSpace (Sym2 (Site 2))))
(ρ : ℝ) (n0 : ℕ) : ℝ :=
sInf (boxCrossingProbabilities μ ρ n0)
MathlibExt/Probability/Percolation/Universality/Defs.lean:234
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.