The critical point of the planar random-cluster model equals the self-dual point
Lemma\(p_c(q)\) equals the self-dual point if percolation starts there, \(q \ge 1\)#✓fully proved
If θ(r, q) = 0 for r < p_sd(q) and θ(r, q) > 0 for r > p_sd(q), then
p_c(q) = p_sd(q).
lemma fkPc_eq_selfDualPoint {q : ℝ} (hq : 1 ≤ q)
(hNoPercBelow : ∀ (r : ℝ) (hr0 : 0 < r) (hr1 : r < 1),
r < selfDualPoint q → fkTheta 2 hr0 hr1 (zero_lt_one.trans_le hq) (q := q) = 0)
(hPercAbove : ∀ (r : ℝ) (hr0 : 0 < r) (hr1 : r < 1),
selfDualPoint q < r → 0 < fkTheta 2 hr0 hr1 (zero_lt_one.trans_le hq) (q := q)) :
fkPc 2 q = selfDualPoint q
noncomputable def selfDualPoint (q : ℝ) : ℝ := Real.sqrt q / (1 + Real.sqrt q)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint/SelfDualValue.lean:60
noncomputable def fkTheta (d : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) : ℝ :=
((wiredInfiniteVolume d hp hp1 hq : ProbabilityMeasure (ConfigSpace (Sym2 (Site d)))) :
Measure (ConfigSpace (Sym2 (Site d)))).real (percolationEvent d)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:57
noncomputable def fkPc (d : ℕ) (q : ℝ) : ℝ :=
sSup (fkSubcriticalSet d q)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:88
Uses 8 · Used by 1
TheoremBeffara–Duminil-Copin theorem, conditional form#✓fully proved
For q ≥ 1, if the wired random-cluster
measure on ℤ² does not percolate for p < √q / (1 + √q) (hNoPercBelow) and percolates for
p > √q / (1 + √q) (hPercAbove), then p_c(q) = √q / (1 + √q).
The two hypotheses are the content of the Beffara–Duminil-Copin theorem; this statement only identifies the supremum defining p_c(q) once they hold. They are true for
every q ≥ 1, so the statement is not vacuous.
(V. Beffara and H. Duminil-Copin, The self-dual point of the two-dimensional random-cluster
model is critical for q ≥ 1, Probab. Theory Related Fields 153, 2012.)
theorem beffaraDC_critical_point {q : ℝ} (hq : 1 ≤ q)
(hNoPercBelow : ∀ (r : ℝ) (hr0 : 0 < r) (hr1 : r < 1),
r < Real.sqrt q / (1 + Real.sqrt q) →
fkTheta 2 hr0 hr1 (zero_lt_one.trans_le hq) (q := q) = 0)
(hPercAbove : ∀ (r : ℝ) (hr0 : 0 < r) (hr1 : r < 1),
Real.sqrt q / (1 + Real.sqrt q) < r →
0 < fkTheta 2 hr0 hr1 (zero_lt_one.trans_le hq) (q := q)) :
fkPc 2 q = Real.sqrt q / (1 + Real.sqrt q)
noncomputable def fkTheta (d : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) : ℝ :=
((wiredInfiniteVolume d hp hp1 hq : ProbabilityMeasure (ConfigSpace (Sym2 (Site d)))) :
Measure (ConfigSpace (Sym2 (Site d)))).real (percolationEvent d)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:57
noncomputable def fkPc (d : ℕ) (q : ℝ) : ℝ :=
sSup (fkSubcriticalSet d q)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:88
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.