Skip to content

Free percolation above the random-cluster critical point

5 fully proved

A. Wired percolation above the critical point

LemmaWired percolation above the random-cluster critical point#✓fully proved

Above the critical point the wired measure percolates: θ¹(p, q) > 0 for p > p_c(q, d).

lemma frp_fkTheta_pos_of_gt_fkPc (d : ℕ) {p q : ℝ}
    (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) (hpc : fkPc d q < p) :
    0 < fkTheta d hp hp1 hq (q := q)
Uses 8 · Used by 1

LemmaMeasurability of the percolation event#✓fully proved

The percolation event is measurable.

lemma frp_measurableSet_percolationEvent (d : ℕ) :
    MeasurableSet (Percolation.percolationEvent d)
Uses 10 · Used by 2

LemmaThe percolation event is increasing#✓fully proved

The percolation event is increasing.

lemma frp_isIncreasing_percolationEvent (d : ℕ) :
    IsIncreasing (Percolation.percolationEvent d)
Uses 9 · Used by 1

B. Free percolation above the critical point

LemmaFree percolation from domination and free–wired agreement at \(p'\)#✓fully proved

If p_c < p', the free measure at p' is dominated by the free measure at p, and θ⁰(p', q) = θ¹(p', q), then θ⁰(p, q) > 0.

lemma frp_free_percolation_above_pc (d : ℕ) {p p' q : ℝ}
    (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
    (hp' : 0 < p') (hp1' : p' < 1)
    (hpc' : fkPc d q < p')
    (hmono : (freeInfiniteVolume d hp' hp1' hq : Measure (ConfigSpace (Sym2 (Site d))))
        ≼ (freeInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d)))))
    (huniq : fkThetaFree d hp' hp1' hq (q := q) = fkTheta d hp' hp1' hq (q := q)) :
    0 < fkThetaFree d hp hp1 hq (q := q)
Uses 12 · Used by 1

LemmaFree percolation above \(p_c\) from monotonicity and countable agreement#✓fully proved

For p > p_c(q, d), the free measure percolates, θ⁰(p, q) > 0, assuming monotonicity of the free measures in p on (p_c, p) (hmono) and θ⁰ = θ¹ off a countable set (hagree).

lemma frp_free_percolation_above_pc_of_countable_agreement
    (d : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
    (hpc : fkPc d q < p) (bad : Set ℝ) (hbad : bad.Countable)
    (hmono : ∀ {p' : ℝ} (hp' : 0 < p') (hp1' : p' < 1), fkPc d q < p' →
      (freeInfiniteVolume d hp' hp1' hq : Measure (ConfigSpace (Sym2 (Site d))))
        ≼ (freeInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d)))))
    (hagree : ∀ {p' : ℝ} (hp' : 0 < p') (hp1' : p' < 1), fkPc d q < p' →
      p' ∉ bad →
      fkThetaFree d hp' hp1' hq (q := q) = fkTheta d hp' hp1' hq (q := q)) :
    0 < fkThetaFree d hp hp1 hq (q := q)
Uses 8

The dependency explorer needs JavaScript and its graph data.

Download the complete graph data.