Free percolation above the random-cluster critical point
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)
noncomputable def fkPc (d : ℕ) (q : ℝ) : ℝ :=
sSup (fkSubcriticalSet d q)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:88
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
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)
def percolationEvent (d : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | (StatMech.Lattice.cluster d ω (origin d)).Infinite}
MathlibExt/Probability/Percolation/Theta.lean:59
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)
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
def percolationEvent (d : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | (StatMech.Lattice.cluster d ω (origin d)).Infinite}
MathlibExt/Probability/Percolation/Theta.lean:59
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)
noncomputable def fkPc (d : ℕ) (q : ℝ) : ℝ :=
sSup (fkSubcriticalSet d q)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:88
noncomputable def freeInfiniteVolume (d : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(CompactSpace.tendsto_subseq (fun n => freeFiniteMeasure d n hp hp1 hq)).choose
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:199
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 fkThetaFree (d : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) : ℝ :=
((freeInfiniteVolume d hp hp1 hq : ProbabilityMeasure (ConfigSpace (Sym2 (Site d)))) :
Measure (ConfigSpace (Sym2 (Site d)))).real (percolationEvent d)
PhyslibExt/StatisticalMechanics/RandomCluster/OrderTransition.lean:67
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
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)
noncomputable def fkPc (d : ℕ) (q : ℝ) : ℝ :=
sSup (fkSubcriticalSet d q)
PhyslibExt/StatisticalMechanics/RandomCluster/CriticalPoint.lean:88
noncomputable def freeInfiniteVolume (d : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(CompactSpace.tendsto_subseq (fun n => freeFiniteMeasure d n hp hp1 hq)).choose
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:199
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 fkThetaFree (d : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) : ℝ :=
((freeInfiniteVolume d hp hp1 hq : ProbabilityMeasure (ConfigSpace (Sym2 (Site d)))) :
Measure (ConfigSpace (Sym2 (Site d)))).real (percolationEvent d)
PhyslibExt/StatisticalMechanics/RandomCluster/OrderTransition.lean:67
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
Uses 8
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.