Sharpness of the phase transition, assuming its two analytic inputs
DefinitionOne-arm probability as a function of a real density#✓fully proved
The one-arm probability crossProb d t n as a function of a real density t (0 outside
[0, 1]).
noncomputable def crossProbReal (d n : ℕ) (t : ℝ) : ℝ :=
if ht : 0 ≤ t ∧ t ≤ 1 then crossProb d t.toNNReal (Real.toNNReal_le_one.mpr ht.2) n else 0
noncomputable def crossProb (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) (n : ℕ) : ℝ :=
(bernoulliProductMeasure (E := Sym2 (Site d)) p hp).real (crossingEvent d n)
MathlibExt/Probability/Percolation/SubcriticalDecay.lean:71
Uses 1 · Used by 3
TheoremEquality of the Duminil-Copin–Tassion threshold and \(p_c\)#✓fully proved
p̃_c = p_c, assuming exponential decay on tildePcSet, θ(1) ≠ 0, and θ(q) > 0 for
p̃_c < q < 1.
theorem tildePc_eq_pc
(htheta_one : ∀ h1 : (1 : ℝ≥0) ≤ 1, theta d 1 h1 ≠ 0)
(hsub : ∀ p ∈ tildePcSet d, ∀ hp : p ≤ 1,
∃ c > 0, ∃ C > 0, ∀ n, crossProb d p hp n ≤ C * Real.exp (-c * n))
(hmf : ∀ q : ℝ≥0, ∀ hq : q ≤ 1, tildePc d < q → (q : ℝ) < 1 → 0 < theta d q hq) :
tildePc d = pc d
noncomputable def theta (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) : ℝ :=
(bernoulliProductMeasure (E := Sym2 (Site d)) p hp).real (percolationEvent d)
MathlibExt/Probability/Percolation/Theta.lean:64
def tildePcSet (d : ℕ) : Set ℝ≥0 :=
{p : ℝ≥0 | ∃ hp : p ≤ 1, ∃ S : Finset (Site d), origin d ∈ S ∧ phi d p hp S < 1}
MathlibExt/Probability/Percolation/TildePc.lean:114
noncomputable def crossProb (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) (n : ℕ) : ℝ :=
(bernoulliProductMeasure (E := Sym2 (Site d)) p hp).real (crossingEvent d n)
MathlibExt/Probability/Percolation/SubcriticalDecay.lean:71
noncomputable def tildePc (d : ℕ) : ℝ≥0 :=
sSup (tildePcSet d)
MathlibExt/Probability/Percolation/TildePc.lean:124
noncomputable def pc (d : ℕ) : ℝ≥0 :=
sSup (subcriticalSet d)
MathlibExt/Probability/Percolation/Theta.lean:76
Uses 19 · Used by 1
TheoremSharpness of the phase transition, conditional form#✓fully proved
Sharpness of the phase transition, conditional form: from p̃_c > 0, θ(1) ≠ 0,
exponential decay of the one-arm probability on tildePcSet, and the Duminil-Copin–Tassion
differential inequality on (p̃_c, q) (with continuity and derivative hypotheses), conclude
p̃_c = p_c, exponential decay on tildePcSet, and θ(q) ≥ (q - p̃_c)/(q(1 - p̃_c)) for
p̃_c < q < 1. The hypotheses are discharged in sharp_phase_transition.
StatMech.Percolation.sharpness · 17 lines
theorem sharpness (htildePc_pos : 0 < (tildePc d : ℝ))
(htheta_one : ∀ h1 : (1 : ℝ≥0) ≤ 1, theta d 1 h1 ≠ 0)
(hsub : ∀ p ∈ tildePcSet d, ∀ hp : p ≤ 1,
∃ c > 0, ∃ C > 0, ∀ n, crossProb d p hp n ≤ C * Real.exp (-c * n))
(F' : ℕ → ℝ≥0 → ℝ → ℝ)
(hcont : ∀ q : ℝ≥0, tildePc d < q → (q : ℝ) < 1 → ∀ n,
ContinuousOn (crossProbReal d (n + 1)) (Icc (tildePc d : ℝ) (q : ℝ)))
(hderiv : ∀ q : ℝ≥0, tildePc d < q → (q : ℝ) < 1 → ∀ n,
∀ t ∈ Ioo (tildePc d : ℝ) (q : ℝ), HasDerivAt (crossProbReal d (n + 1)) (F' n q t) t)
(hdiffineq : ∀ q : ℝ≥0, tildePc d < q → (q : ℝ) < 1 → ∀ n,
∀ t ∈ Ioo (tildePc d : ℝ) (q : ℝ),
F' n q t ≥ (1 / (t * (1 - t))) * (1 - crossProbReal d (n + 1) t)) :
tildePc d = pc d ∧
(∀ p ∈ tildePcSet d, ∀ hp : p ≤ 1,
∃ c > 0, ∃ C > 0, ∀ n, crossProb d p hp n ≤ C * Real.exp (-c * n)) ∧
(∀ q : ℝ≥0, ∀ hq : q ≤ 1, tildePc d < q → (q : ℝ) < 1 →
theta d q hq ≥ ((q : ℝ) - (tildePc d : ℝ)) / ((q : ℝ) * (1 - (tildePc d : ℝ))))
noncomputable def tildePc (d : ℕ) : ℝ≥0 :=
sSup (tildePcSet d)
MathlibExt/Probability/Percolation/TildePc.lean:124
noncomputable def theta (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) : ℝ :=
(bernoulliProductMeasure (E := Sym2 (Site d)) p hp).real (percolationEvent d)
MathlibExt/Probability/Percolation/Theta.lean:64
def tildePcSet (d : ℕ) : Set ℝ≥0 :=
{p : ℝ≥0 | ∃ hp : p ≤ 1, ∃ S : Finset (Site d), origin d ∈ S ∧ phi d p hp S < 1}
MathlibExt/Probability/Percolation/TildePc.lean:114
noncomputable def crossProb (d : ℕ) (p : ℝ≥0) (hp : p ≤ 1) (n : ℕ) : ℝ :=
(bernoulliProductMeasure (E := Sym2 (Site d)) p hp).real (crossingEvent d n)
MathlibExt/Probability/Percolation/SubcriticalDecay.lean:71
noncomputable def crossProbReal (d n : ℕ) (t : ℝ) : ℝ :=
if ht : 0 ≤ t ∧ t ≤ 1 then crossProb d t.toNNReal (Real.toNNReal_le_one.mpr ht.2) n else 0
MathlibExt/Probability/Percolation/SharpnessFromInputs.lean:129
noncomputable def pc (d : ℕ) : ℝ≥0 :=
sSup (subcriticalSet d)
MathlibExt/Probability/Percolation/Theta.lean:76
Uses 19 · Used by 1
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.