Skip to content

The random-cluster critical point on ℤ² is below one, given a Peierls bound

25 fully proved

A. Walks to the exterior of a finite cluster

DefinitionHorizontal lattice walk in \(\mathbb{Z}^2\)#✓fully proved

The horizontal lattice walk of k steps from (a, c) to (a + k, c) in ℤ².

noncomputable def horizWalk (c : ℤ) :
    (k : ℕ) → (a : ℤ) → (hypercubicLattice 2).Walk ![a, c] ![a + (k : ℤ), c]
  | 0, a => by
      simpa using (SimpleGraph.Walk.nil : (hypercubicLattice 2).Walk ![a, c] ![a, c])
  | k + 1, a => by
      have step : (hypercubicLattice 2).Adj ![a, c] ![a + 1, c] := latAdj_right a c
      have rest := horizWalk c k (a + 1)
      have he : (![a + 1 + (k : ℤ), c] : Site 2) = ![a + ((k + 1 : ℕ) : ℤ), c] := by
        funext i; fin_cases i <;> (simp; try ring)
      rw [he] at rest
      exact SimpleGraph.Walk.cons step rest
Uses 2 · Used by 1

LemmaFinite subsets of \(\mathbb{Z}^2\) miss far points on each row#✓fully proved

A finite set of ℤ² misses some point (N, c) with N ≥ a₀ on every horizontal line.

lemma exists_far_not_mem (S : Set (Site 2)) (hfin : S.Finite) (c a0 : ℤ) :
    ∃ N : ℤ, a0 ≤ N ∧ (![N, c] : Site 2) ∉ S
Uses 1 · Used by 1

LemmaFinite cluster in \(\mathbb{Z}^2\) has a reachable point outside it#✓fully proved

A finite cluster of o has a lattice-reachable point outside it.

lemma exists_walk_exterior {ω : ConfigSpace (Sym2 (Site 2))} (o : Site 2)
    (hfin : (cluster 2 ω o).Finite) :
    ∃ z : Site 2, (hypercubicLattice 2).Reachable o z ∧ z ∉ cluster 2 ω o
Uses 6 · Used by 2

B. Closed circuits around a finite cluster

DefinitionClosed-circuit event of a dual circuit#✓fully proved

The event that every primal edge crossed by the dual circuit c is closed.

def closedCircuitEvent {u : Site 2} (c : (hypercubicLattice 2).Walk u u) :
    Set (ConfigSpace (Sym2 (Site 2))) :=
  {ω | ∀ f g : Site 2, s(f, g) ∈ c.edges → ω (sharedPrimalEdge f g) = false}
Uses 4 · Used by 3

LemmaFinite cluster in \(\mathbb{Z}^2\) gives a closed lattice circuit#✓fully proved

A finite open cluster of o in ℤ² is surrounded by a lattice cycle whose crossed primal edges are all closed.

lemma exists_closed_latticeCircuit_of_finite_cluster
    {ω : ConfigSpace (Sym2 (Site 2))} (o : Site 2) (hfin : (cluster 2 ω o).Finite) :
    ∃ (u : Site 2) (c : (hypercubicLattice 2).Walk u u), c.IsCycle ∧
      ω ∈ closedCircuitEvent c
Uses 25 · Used by 2

LemmaFinite cluster in \(\mathbb{Z}^2\): closed circuit, separated point, odd crossings#✓fully proved

The closed circuit of exists_closed_latticeCircuit_of_finite_cluster, together with a point that the cluster boundary separates from o and an odd crossing number for every walk to it.

lemma exists_enclosing_closed_latticeCircuit_of_finite_cluster
    {ω : ConfigSpace (Sym2 (Site 2))} (o : Site 2) (hfin : (cluster 2 ω o).Finite) :
    ∃ z : Site 2,
      (∃ (u : Site 2) (c : (hypercubicLattice 2).Walk u u), c.IsCycle ∧ ω ∈ closedCircuitEvent c)
        ∧ ¬ (latticeMinusBarrier (cluster 2 ω o)).Reachable o z
        ∧ ∀ γ : (hypercubicLattice 2).Walk o z, ¬ Even (crossCount (cluster 2 ω o) γ)
Uses 27

LemmaFinite-cluster event is covered by closed-circuit events#✓fully proved

The event that the cluster of o is finite is covered by the closed-circuit events.

lemma finiteCluster_subset_iUnion_closedCircuit (o : Site 2) :
    {ω : ConfigSpace (Sym2 (Site 2)) | (cluster 2 ω o).Finite}
      ⊆ ⋃ (u : Site 2) (c : (hypercubicLattice 2).Walk u u) (_ : c.IsCycle),
          closedCircuitEvent c
Uses 6

LemmaNon-percolation means the origin's cluster is finite#✓fully proved

No percolation from the origin means the cluster of the origin is finite.

lemma compl_percolationEvent_eq_finiteCluster :
    (percolationEvent 2)ᶜ
      = {ω : ConfigSpace (Sym2 (Site 2)) | (cluster 2 ω (origin 2)).Finite}
Uses 5

C. The Peierls series

DefinitionPeierls series \(\sum_\ell \ell\,(2d)^\ell (1-p)^\ell\)#✓fully proved

The Peierls series Σ_ℓ ℓ (2d)^ℓ (1 - p)^ℓ bounding the probability of a finite cluster.

noncomputable def fkPcUpperBound (d : ℕ) (p : ℝ) : ℝ :=
  ∑' ℓ : ℕ, (ℓ : ℝ) * (2 * d : ℝ) ^ ℓ * (1 - p) ^ ℓ
Used by 8

DefinitionRatio \(2d(1-p)\) of the Peierls series#✓fully proved

The ratio 2d (1 - p) of the Peierls series.

noncomputable def fkPcRatio (d : ℕ) (p : ℝ) : ℝ := (2 * d : ℝ) * (1 - p)
Used by 5

LemmaDefining formula for the Peierls ratio#✓fully proved

Unfolding fkPcRatio.

@[simp] lemma fkPcRatio_def (d : ℕ) (p : ℝ) : fkPcRatio d p = (2 * d : ℝ) * (1 - p)
Uses 1 · Used by 1

LemmaPeierls summand as \(\ell x^\ell\) with \(x = 2d(1-p)\)#✓fully proved

The Peierls summand in terms of fkPcRatio.

lemma fkPcSummand_eq (d : ℕ) (p : ℝ) (ℓ : ℕ) :
    (ℓ : ℝ) * (2 * d : ℝ) ^ ℓ * (1 - p) ^ ℓ = (ℓ : ℝ) * (fkPcRatio d p) ^ ℓ
Uses 2 · Used by 1

LemmaClosed form \(x/(1-x)^2\) of the Peierls series for \(|x| < 1\)#✓fully proved

Closed form x / (1 - x)² of the Peierls series for |x| < 1, where x = 2d (1 - p).

lemma fkPcUpperBound_eq_closedForm (d : ℕ) (p : ℝ) (hx : ‖fkPcRatio d p‖ < 1) :
    fkPcUpperBound d p = (fkPcRatio d p) / (1 - fkPcRatio d p) ^ 2
Uses 3 · Used by 1

LemmaPeierls ratio \(2d(1-p)\) tends to \(0\) as \(p \to 1\)#✓fully proved

2d (1 - p) → 0 as p → 1.

lemma fkPcRatio_tendsto_one (d : ℕ) :
    Tendsto (fun p : ℝ => fkPcRatio d p) (nhds 1) (nhds 0)
Uses 1 · Used by 1

Lemma\(x/(1-x)^2 \to 0\) as \(x \to 0\)#✓fully proved

x / (1 - x)² → 0 as x → 0.

lemma fkPcClosedForm_tendsto_zero :
    Tendsto (fun x : ℝ => x / (1 - x) ^ 2) (nhds 0) (nhds 0)
Used by 1

LemmaPeierls series tends to \(0\) as \(p \to 1\)#✓fully proved

The Peierls series tends to 0 as p → 1.

lemma fkPcUpperBound_tendsto_one (d : ℕ) :
    Tendsto (fun p : ℝ => fkPcUpperBound d p) (nhds 1) (nhds 0)
Uses 5 · Used by 1

LemmaPeierls series is below 1 on an interval \((p_0, 1)\)#✓fully proved

The Peierls series is below 1 on an interval (p₀, 1].

lemma exists_p_lt_one_fkPcUpperBound_lt_one (d : ℕ) :
    ∃ p₀ : ℝ, p₀ < 1 ∧ ∀ p : ℝ, p₀ < p → p ≤ 1 → fkPcUpperBound d p < 1
Uses 2 · Used by 1

LemmaNonnegativity of the Peierls series for \(p \le 1\)#✓fully proved

The Peierls series is nonnegative for p ≤ 1.

lemma fkPcUpperBound_nonneg (d : ℕ) {p : ℝ} (hp : p ≤ 1) : 0 ≤ fkPcUpperBound d p
Uses 1

D. The critical point is below one

DefinitionPeierls bound hypothesis for the wired measure on \(\mathbb{Z}^2\)#✓fully proved

The Peierls bound for the wired random-cluster measure on ℤ² at (p, q): 1 - θ¹(p, q) ≤ Σ_ℓ ℓ 4^ℓ (1 - p)^ℓ.

def FkNonPercolationBound (q : ℝ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) : Prop :=
  1 - fkTheta 2 hp hp1 hq (q := q) ≤ fkPcUpperBound 2 p
Uses 2 · Used by 3

LemmaPercolation from a Peierls bound with series below 1#✓fully proved

The Peierls bound with a series below 1 gives percolation: 0 < θ¹(p, q).

lemma fkTheta_pos_of_nonPercolationBound {q : ℝ} {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
    (hq : 0 < q) (hBound : FkNonPercolationBound q hp hp1 hq)
    (hsum : fkPcUpperBound 2 p < 1) :
    0 < fkTheta 2 hp hp1 hq (q := q)
Uses 3 · Used by 1

LemmaNonempty subcritical set on \(\mathbb{Z}^2\) for \(q \ge 1\)#✓fully proved

For q ≥ 1 the subcritical set on ℤ² is nonempty (it contains 1/8).

lemma fkSubcriticalSet_nonempty {q : ℝ} (hq : 1 ≤ q) : (fkSubcriticalSet 2 q).Nonempty
Uses 3 · Used by 2

LemmaPositive percolation probability rules out subcriticality#✓fully proved

A parameter with positive percolation probability is not subcritical.

lemma not_mem_fkSubcriticalSet_of_fkTheta_pos {q : ℝ} {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
    (hq : 0 < q) (hθ : 0 < fkTheta 2 hp hp1 hq (q := q)) : p ∉ fkSubcriticalSet 2 q
Uses 2 · Used by 2

Lemma\(p_c(q) < 1\) on \(\mathbb{Z}^2\) for \(q \ge 1\) under a Peierls bound#✓fully proved

For q ≥ 1, the random-cluster critical point on ℤ² satisfies p_c(q) < 1, assuming the Peierls bound FkNonPercolationBound for all p in some interval (p₀, 1).

lemma fkPc_lt_one {q : ℝ} (hq : 1 ≤ q)
    (hGeom : ∃ p₀ : ℝ, p₀ < 1 ∧
      ∀ (p : ℝ) (hp : 0 < p) (hp1 : p < 1), p₀ < p →
        FkNonPercolationBound q hp hp1 (zero_lt_one.trans_le hq)) :
    fkPc 2 q < 1
Uses 9 · Used by 1

Lemma\(0 < p_c(q) < 1\) on \(\mathbb{Z}^2\) for \(q \ge 1\) under a Peierls bound#✓fully proved

For q ≥ 1, 0 < p_c(q) < 1 on ℤ², assuming the Peierls bound as in fkPc_lt_one.

lemma fkPc_pos_and_lt_one {q : ℝ} (hq : 1 ≤ q)
    (hGeom : ∃ p₀ : ℝ, p₀ < 1 ∧
      ∀ (p : ℝ) (hp : 0 < p) (hp1 : p < 1), p₀ < p →
        FkNonPercolationBound q hp hp1 (zero_lt_one.trans_le hq)) :
    0 < fkPc 2 q ∧ fkPc 2 q < 1
Uses 4

LemmaPeierls series for \(d = 2\) equals the Bernoulli Peierls series#✓fully proved

The Peierls series for d = 2 is the Bernoulli Peierls series StatMech.Percolation.pcUpperBound.

lemma fkPcUpperBound_two_eq_pcUpperBound (p : ℝ) :
    fkPcUpperBound 2 p = Percolation.pcUpperBound p
Uses 2

The dependency explorer needs JavaScript and its graph data.

Download the complete graph data.