Wired random-cluster measures decrease with the box
A. Conditioning on the configuration outside the inner box
DefinitionOuter part of a configuration on \(\Lambda_{n+1}\)#✓fully proved
Project a configuration on Λ_(n+1) to its outer part: edges of Λ_n closed, the others
unchanged.
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def psiExt (d n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
(ω : ConfigSpace (Sym2 (boxVerts d n))) : ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
fun e => if h : e ∈ Set.range (innerEdge d n) then ω h.choose else ψ e
PhyslibExt/StatisticalMechanics/RandomCluster/InducedBC.lean:78
Uses 3 · Used by 11
LemmaOuter projection closes the edges of \(\Lambda_n\)#✓fully proved
The projection closes edges of Λ_n.
lemma outProj_eq_false_of_range (n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
{e : Sym2 (boxVerts d (n + 1))} (he : e ∈ Set.range (innerEdge d n)) :
outProj d n ρ e = false
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def innerEdge (d n : ℕ) : Sym2 (boxVerts d n) → Sym2 (boxVerts d (n + 1)) :=
Sym2.map (boxVertIncl d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:97
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
Uses 8 · Used by 2
LemmaOuter projection keeps the edges outside \(\Lambda_n\)#✓fully proved
The projection keeps edges outside Λ_n.
lemma outProj_eq_of_not_range (n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
{e : Sym2 (boxVerts d (n + 1))} (he : e ∉ Set.range (innerEdge d n)) :
outProj d n ρ e = ρ e
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def innerEdge (d n : ℕ) : Sym2 (boxVerts d n) → Sym2 (boxVerts d (n + 1)) :=
Sym2.map (boxVertIncl d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:97
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
Uses 7 · Used by 3
LemmaOuter projection agrees with the configuration off \(\Lambda_n\)#✓fully proved
The projection agrees with the configuration off the edges of Λ_n.
lemma agreesOff_outProj (n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
AgreesOff (innerEdgeFinset d n) (outProj d n ρ) ρ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def AgreesOff (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
ConfigSpace (Sym2 V) → Prop :=
fun ω => ∀ e, e ∉ F → ω e = ψ e
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:58
noncomputable def innerEdgeFinset (d n : ℕ) : Finset (Sym2 (boxVerts d (n + 1))) :=
Finset.univ.image (innerEdge d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:440
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
LemmaOuter projection is idempotent#✓fully proved
The projection is idempotent.
lemma outProj_idem (n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
outProj d n (outProj d n ρ) = outProj d n ρ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
Uses 8 · Used by 4
LemmaConfigurations with a given outer part form its conditioning fibre#✓fully proved
The configurations with outer part ψ form the conditioning fibre of ψ.
lemma filter_outProj_eq_condFibre (n : ℕ) (ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
(hψ : outProj d n ψ = ψ) :
Finset.univ.filter (fun ρ => outProj d n ρ = ψ)
= condFibre (innerEdgeFinset d n) ψ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
noncomputable def condFibre (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (AgreesOff F ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:85
noncomputable def innerEdgeFinset (d n : ℕ) : Finset (Sym2 (boxVerts d (n + 1))) :=
Finset.univ.image (innerEdge d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:440
Uses 11 · Used by 4
LemmaConfigurations agreeing off \(F\) have the same conditioning fibre#✓fully proved
Configurations agreeing off F have the same conditioning fibre.
lemma condFibre_congr_dom {V : Type*} [Fintype V] [DecidableEq V]
{F : Finset (Sym2 V)} {ψ ψ' : ConfigSpace (Sym2 V)} (h : AgreesOff F ψ ψ') :
condFibre F ψ = condFibre F ψ'
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def AgreesOff (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
ConfigSpace (Sym2 V) → Prop :=
fun ω => ∀ e, e ∉ F → ω e = ψ e
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:58
noncomputable def condFibre (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (AgreesOff F ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:85
LemmaConfigurations agreeing off \(F\) have equal conditional probabilities#✓fully proved
Configurations agreeing off F give the same conditional random-cluster probabilities.
lemma condBcProb_congr_dom {V : Type*} [Fintype V] [DecidableEq V] (G C : SimpleGraph V)
[DecidableRel G.Adj] [DecidableRel C.Adj]
(p q : ℝ) (F : Finset (Sym2 V)) (ψ ψ' ω : ConfigSpace (Sym2 V)) (h : AgreesOff F ψ ψ') :
condBcProb G C p q F ψ ω = condBcProb G C p q F ψ' ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def AgreesOff (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
ConfigSpace (Sym2 V) → Prop :=
fun ω => ∀ e, e ∉ F → ω e = ψ e
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:58
noncomputable def condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
Uses 7 · Used by 2
LemmaMasses of the conditioning fibres sum to one#✓fully proved
The masses of the conditioning fibres over all outer configurations sum to 1.
lemma sum_fibreMass_eq_one (n : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
∑ ψ ∈ Finset.univ.filter (fun ψ => outProj d n ψ = ψ),
(∑ σ ∈ condFibre (innerEdgeFinset d n) ψ,
bcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p q σ) = 1
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
noncomputable def condFibre (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (AgreesOff F ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:85
noncomputable def innerEdgeFinset (d n : ℕ) : Finset (Sym2 (boxVerts d (n + 1))) :=
Finset.univ.image (innerEdge d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:440
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
Uses 18 · Used by 1
LemmaWired \(\Lambda_{n+1}\) measure decomposed over outer configurations#✓fully proved
Decomposition of the wired measure on Λ_(n+1) over the configuration outside Λ_n.
lemma wiredSucc_bcProb_decompose (n : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(B : Set (ConfigSpace (Sym2 (boxVerts d (n + 1))))) :
(∑ ρ, B.indicator (fun _ => (1 : ℝ)) ρ
* bcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p q ρ)
= ∑ ψ ∈ Finset.univ.filter (fun ψ => outProj d n ψ = ψ),
(∑ σ ∈ condFibre (innerEdgeFinset d n) ψ,
bcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p q σ)
* (∑ ρ, B.indicator (fun _ => (1 : ℝ)) ρ
* condBcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p q
(innerEdgeFinset d n) ψ ρ)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
noncomputable def outProj (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d (n + 1))) :=
psiExt d n ρ (fun _ => false)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:77
noncomputable def condFibre (F : Finset (Sym2 V)) (ψ : ConfigSpace (Sym2 V)) :
Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (AgreesOff F ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/DomainMarkov.lean:85
noncomputable def innerEdgeFinset (d n : ℕ) : Finset (Sym2 (boxVerts d (n + 1))) :=
Finset.univ.image (innerEdge d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:440
noncomputable def condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
Uses 20 · Used by 1
B. Domination by the smaller wired box
LemmaConditional wired decrease on inner increasing events for \(q \ge 1\)#✓fully proved
For q ≥ 1, conditionally on any outer configuration, the wired measure on Λ_(n+1) gives an
increasing event of Λ_n at most its wired Λ_n probability.
lemma condBcProb_innerRestrict_le (n : ℕ) {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
(ψ : ConfigSpace (Sym2 (boxVerts d (n + 1))))
{A₀ : Set (ConfigSpace (Sym2 (boxVerts d n)))} (hA₀ : IsIncreasing A₀) :
(∑ ρ, (innerRestrict d n ⁻¹' A₀).indicator (fun _ => (1 : ℝ)) ρ
* condBcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p q
(innerEdgeFinset d n) ψ ρ)
≤ ∑ ω, A₀.indicator (fun _ => (1 : ℝ)) ω
* wiredFkProb (boxGraph d n) (boxBoundary d n) p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def innerRestrict (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun e => ρ (innerEdge d n e)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:448
noncomputable def condBcProb (p q : ℝ) (F : Finset (Sym2 V)) (ψ ω : ConfigSpace (Sym2 V)) : ℝ :=
if AgreesOff F ψ ω then bcWeight G C p q ω / inducedBcZ G C p q F ψ else 0
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDominationInner.lean:113
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
noncomputable def innerEdgeFinset (d n : ℕ) : Finset (Sym2 (boxVerts d (n + 1))) :=
Finset.univ.image (innerEdge d n)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:440
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
Uses 24 · Used by 1
LemmaWired box measures decrease on inner increasing events for \(q \ge 1\)#✓fully proved
For q ≥ 1, the wired measure on Λ_(n+1) gives an increasing event of Λ_n at most its wired
Λ_n probability.
lemma wiredSucc_bcProb_innerEvent_le (n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 1 ≤ q)
{A₀ : Set (ConfigSpace (Sym2 (boxVerts d n)))} (hA₀ : IsIncreasing A₀) :
(∑ ρ, (innerRestrict d n ⁻¹' A₀).indicator (fun _ => (1 : ℝ)) ρ
* bcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p q ρ)
≤ ∑ ω, A₀.indicator (fun _ => (1 : ℝ)) ω
* wiredFkProb (boxGraph d n) (boxBoundary d n) p q ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def innerRestrict (d n : ℕ) (ρ : ConfigSpace (Sym2 (boxVerts d (n + 1)))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun e => ρ (innerEdge d n e)
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:448
noncomputable def bcProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
bcWeight G C p q ω / bcZ G C p q
PhyslibExt/StatisticalMechanics/RandomCluster/MonoBC.lean:152
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boundaryCliqueGraph : SimpleGraph V := SimpleGraph.fromRel (wireRel bdry)
MathlibExt/Combinatorics/SimpleGraph/Lattice/BoundaryConditions.lean:121
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
Uses 23 · Used by 3
LemmaWired \(\Lambda_{n+1}\) measure of a \(\Lambda_n\) cylinder event as a sum#✓fully proved
The wired Λ_(n+1) measure of a Λ_n cylinder event, as a finite sum.
lemma wiredFiniteMeasure_succ_real_innerRestrictEvent (n : ℕ) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(S : Set (ConfigSpace (Sym2 (boxVerts d n))))
(hmeas : MeasurableSet (boxRestrict d n ⁻¹' S)) :
(wiredFiniteMeasure d (n + 1) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d n ⁻¹' S)
= ∑ ρ : ConfigSpace (Sym2 (boxVerts d (n + 1))),
(innerRestrict d n ⁻¹' S).indicator (fun _ => (1 : ℝ)) ρ
* bcProb (boxGraph d (n + 1)) (boundaryCliqueGraph (boxBoundary d (n + 1))) p 2 ρ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 23 · Used by 1
LemmaWired box measures decrease on increasing cylinder events at \(q = 2\)#✓fully proved
For q = 2, the wired Λ_(n+1) measure of an increasing Λ_n cylinder event is at most its
wired Λ_n probability.
lemma wiredFiniteMeasure_succ_le_smallerBox (n : ℕ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
{S : Set (ConfigSpace (Sym2 (boxVerts d n)))} (hS : IsIncreasing S)
(hmeas : MeasurableSet (boxRestrict d n ⁻¹' S)) :
(wiredFiniteMeasure d (n + 1) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d n ⁻¹' S)
≤ ∑ ω, S.indicator (fun _ => (1 : ℝ)) ω
* wiredFkProb (boxGraph d n) (boxBoundary d n) p 2 ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 16 · Used by 3
C. Box-boundary connection events
LemmaOrigin-to-boundary connection is an increasing event#✓fully proved
The event that the origin is connected to the box boundary is increasing.
lemma isIncreasing_connToBdryEvent (n : ℕ) :
IsIncreasing {ω : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω (IsingFK.boxOrigin d n)}
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def ConnToBdry (ω : ConfigSpace (Sym2 V)) (x : V) : Prop :=
∃ y, bdry y ∧ Connected G ω x y
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/FvES.lean:115
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
def boxOrigin (d n : ℕ) : boxVerts d n := ⟨origin d, origin_mem_box_boxVerts d n⟩
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/MagPercoIdBox.lean:71
Uses 10 · Used by 8
LemmaWired \(q = 2\) probability of \(0 \leftrightarrow \partial\Lambda_n\) in \(\Lambda_{n+1}\) at most in \(\Lambda_n\)#✓fully proved
For q = 2, φ¹_{Λ_(n+1)}(0 ↔ ∂Λ_n) ≤ φ¹_{Λ_n}(0 ↔ ∂Λ_n).
lemma wiredFiniteMeasure_succ_le_boxBdryConnEvent (n : ℕ) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d (n + 1) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
≤ (wiredFiniteMeasure d n hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 25 · Used by 1
LemmaOpen edges of \(\Lambda_n\) are open edges of \(\Lambda_{n+1}\)#✓fully proved
An open edge of Λ_n is an open edge of Λ_(n+1).
lemma openSub_succ_adj_inner (n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x y : boxVerts d n) :
(openSub (boxGraph d (n + 1)) (boxRestrict d (n + 1) ω)).Adj
(boxVertIncl d n x) (boxVertIncl d n y)
↔ (openSub (boxGraph d n) (boxRestrict d n ω)).Adj x y
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
def boxVertIncl (d n : ℕ) (x : boxVerts d n) : boxVerts d (n + 1) :=
⟨(x : Site d), box_subset_succ d n x.2⟩
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:68
Uses 11 · Used by 1
LemmaInner vertices next to the annulus lie on \(\partial\Lambda_n\)#✓fully proved
A vertex of Λ_n adjacent to a vertex of Λ_(n+1) \ Λ_n lies on ∂Λ_n.
lemma boxBoundary_of_openSub_succ_adj_outer (n : ℕ) (hn : 1 ≤ n)
(ω : ConfigSpace (Sym2 (Site d)))
{x : boxVerts d n} {z : boxVerts d (n + 1)} (hz : ¬ IsInnerVert d n z)
(h : (openSub (boxGraph d (n + 1)) (boxRestrict d (n + 1) ω)).Adj (boxVertIncl d n x) z) :
boxBoundary d n x
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def IsInnerVert (d n : ℕ) (v : boxVerts d (n + 1)) : Prop := (v : Site d) ∈ box d n
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:110
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
def boxVertIncl (d n : ℕ) (x : boxVerts d n) : boxVerts d (n + 1) :=
⟨(x : Site d), box_subset_succ d n x.2⟩
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:68
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
Uses 12 · Used by 1
LemmaBox inclusion maps the origin to the origin#✓fully proved
The inclusion Λ_n → Λ_(n+1) maps the origin to the origin.
lemma boxVertIncl_boxOrigin (n : ℕ) :
boxVertIncl d n (IsingFK.boxOrigin d n) = IsingFK.boxOrigin d (n + 1)
def boxVertIncl (d n : ℕ) (x : boxVerts d n) : boxVerts d (n + 1) :=
⟨(x : Site d), box_subset_succ d n x.2⟩
PhyslibExt/StatisticalMechanics/RandomCluster/BoxCrossGraph.lean:68
def boxOrigin (d n : ℕ) : boxVerts d n := ⟨origin d, origin_mem_box_boxVerts d n⟩
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/MagPercoIdBox.lean:71
Uses 5 · Used by 1
LemmaPaths to \(\partial\Lambda_{n+1}\) pass through \(\partial\Lambda_n\)#✓fully proved
A connection from the origin to ∂Λ_(n+1) inside Λ_(n+1) passes through ∂Λ_n.
lemma connToBdry_succ_of_connToBdry (n : ℕ) (hn : 1 ≤ n) (ω : ConfigSpace (Sym2 (Site d)))
{v : boxVerts d (n + 1)} (hv : boxBoundary d (n + 1) v)
(h : (openSub (boxGraph d (n + 1)) (boxRestrict d (n + 1) ω)).Reachable
(IsingFK.boxOrigin d (n + 1)) v) :
ConnToBdry (boxGraph d n) (boxBoundary d n) (boxRestrict d n ω) (IsingFK.boxOrigin d n)
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
def boxOrigin (d n : ℕ) : boxVerts d n := ⟨origin d, origin_mem_box_boxVerts d n⟩
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/MagPercoIdBox.lean:71
def ConnToBdry (ω : ConfigSpace (Sym2 V)) (x : V) : Prop :=
∃ y, bdry y ∧ Connected G ω x y
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/FvES.lean:115
Uses 17 · Used by 1
LemmaOne-step decrease of the events \(0 \leftrightarrow \partial\Lambda_n\)#✓fully proved
The events 0 ↔ ∂Λ_n decrease in n.
lemma boxBdryConnEvent_succ_subset (n : ℕ) (hn : 1 ≤ n) :
boxBdryConnEvent d (n + 1) ⊆ boxBdryConnEvent d n
def boxBdryConnEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
boxRestrict d n ⁻¹'
{ω' : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω' (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/BoxTailLimit.lean:66
Uses 10 · Used by 3
LemmaWired \(q = 2\) probability of \(0 \leftrightarrow \partial\Lambda_n\) in \(\Lambda_n\) is nonincreasing in \(n\)#✓fully proved
For q = 2, φ¹_{Λ_(n+1)}(0 ↔ ∂Λ_(n+1)) ≤ φ¹_{Λ_n}(0 ↔ ∂Λ_n).
lemma wiredFiniteMeasure_boxBdryConnEvent_antitone (n : ℕ) (hn : 1 ≤ n) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d (n + 1) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d (n + 1))
≤ (wiredFiniteMeasure d n hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 6 · Used by 1
D. Restriction between nested boxes
DefinitionInclusion of \(\Lambda_n\) into \(\Lambda_m\) for \(n \le m\)#✓fully proved
The inclusion Λ_n → Λ_m for n ≤ m.
def boxVertInclLE (d : ℕ) {n m : ℕ} (h : n ≤ m) (x : boxVerts d n) : boxVerts d m :=
⟨(x : Site d), box_mono d h x.2⟩
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
theorem box_mono (d : ℕ) : Monotone (box d)
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:128
Uses 3 · Used by 19
DefinitionInclusion of edges of \(\Lambda_n\) into edges of \(\Lambda_m\)#✓fully proved
The inclusion of edges of Λ_n into edges of Λ_m for n ≤ m.
def innerEdgeLE (d : ℕ) {n m : ℕ} (h : n ≤ m) : Sym2 (boxVerts d n) → Sym2 (boxVerts d m) :=
Sym2.map (boxVertInclLE d h)
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def boxVertInclLE (d : ℕ) {n m : ℕ} (h : n ≤ m) (x : boxVerts d n) : boxVerts d m :=
⟨(x : Site d), box_mono d h x.2⟩
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:420
Uses 2 · Used by 61
LemmaEdge inclusion into \(\mathbb{Z}^d\) factors through \(\Lambda_m\)#✓fully proved
Including an edge into Λ_m and then into ℤ^d is including it into ℤ^d.
lemma edgeIncl_innerEdgeLE (d : ℕ) {n m : ℕ} (h : n ≤ m) (e : Sym2 (boxVerts d n)) :
edgeIncl d m (innerEdgeLE d h e) = edgeIncl d n e
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def edgeIncl (d n : ℕ) : Sym2 (boxVerts d n) → Sym2 (Site d) :=
Sym2.map (Subtype.val : boxVerts d n → Site d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:163
def innerEdgeLE (d : ℕ) {n m : ℕ} (h : n ≤ m) : Sym2 (boxVerts d n) → Sym2 (boxVerts d m) :=
Sym2.map (boxVertInclLE d h)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:424
Uses 6 · Used by 15
DefinitionRestriction of a configuration from \(\Lambda_m\) to \(\Lambda_n\)#✓fully proved
Restrict a configuration on Λ_m to Λ_n for n ≤ m.
noncomputable def boxRestrictLE (d : ℕ) {n m : ℕ} (h : n ≤ m)
(η : ConfigSpace (Sym2 (boxVerts d m))) : ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => η (innerEdgeLE d h eb)
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def innerEdgeLE (d : ℕ) {n m : ℕ} (h : n ≤ m) : Sym2 (boxVerts d n) → Sym2 (boxVerts d m) :=
Sym2.map (boxVertInclLE d h)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:424
Uses 3 · Used by 37
LemmaRestriction to \(\Lambda_n\) factors through \(\Lambda_m\)#✓fully proved
Restricting to Λ_m and then to Λ_n is restricting to Λ_n.
lemma boxRestrictLE_boxRestrict (d : ℕ) {n m : ℕ} (h : n ≤ m)
(ω : ConfigSpace (Sym2 (Site d))) :
boxRestrictLE d h (boxRestrict d m ω) = boxRestrict d n ω
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 boxRestrictLE (d : ℕ) {n m : ℕ} (h : n ≤ m)
(η : ConfigSpace (Sym2 (boxVerts d m))) : ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => η (innerEdgeLE d h eb)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:435
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
Uses 8 · Used by 33
LemmaMonotonicity of restriction between boxes#✓fully proved
Restriction between boxes is monotone.
lemma boxRestrictLE_monotone (d : ℕ) {n m : ℕ} (h : n ≤ m) :
Monotone (boxRestrictLE d h)
noncomputable def boxRestrictLE (d : ℕ) {n m : ℕ} (h : n ≤ m)
(η : ConfigSpace (Sym2 (boxVerts d m))) : ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => η (innerEdgeLE d h eb)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:435
Uses 4 · Used by 13
DefinitionBoundary-connection event of \(\Lambda_n\) as an event on \(\Lambda_m\)#✓fully proved
The event 0 ↔ ∂Λ_n inside Λ_n, as an event on Λ_m for n ≤ m.
noncomputable def connToBdryEventLE (d : ℕ) {n m : ℕ} (h : n ≤ m) :
Set (ConfigSpace (Sym2 (boxVerts d m))) :=
boxRestrictLE d h ⁻¹' {ω : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω (IsingFK.boxOrigin d n)}
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def boxRestrictLE (d : ℕ) {n m : ℕ} (h : n ≤ m)
(η : ConfigSpace (Sym2 (boxVerts d m))) : ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => η (innerEdgeLE d h eb)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:435
def ConnToBdry (ω : ConfigSpace (Sym2 V)) (x : V) : Prop :=
∃ y, bdry y ∧ Connected G ω x y
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/FvES.lean:115
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
def boxOrigin (d n : ℕ) : boxVerts d n := ⟨origin d, origin_mem_box_boxVerts d n⟩
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/MagPercoIdBox.lean:71
Uses 7 · Used by 4
LemmaBoundary-connection event of \(\Lambda_n\) on \(\Lambda_m\) is increasing#✓fully proved
The event connToBdryEventLE is increasing.
lemma isIncreasing_connToBdryEventLE (d : ℕ) {n m : ℕ} (h : n ≤ m) :
IsIncreasing (connToBdryEventLE d h)
def IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
noncomputable def connToBdryEventLE (d : ℕ) {n m : ℕ} (h : n ≤ m) :
Set (ConfigSpace (Sym2 (boxVerts d m))) :=
boxRestrictLE d h ⁻¹' {ω : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:453
Uses 13 · Used by 1
LemmaBoundary connection of \(\Lambda_n\) is a \(\Lambda_m\) cylinder event#✓fully proved
The event 0 ↔ ∂Λ_n is a Λ_m cylinder event for every m ≥ n.
lemma boxBdryConnEvent_eq_boxRestrict_preimage (d : ℕ) {n m : ℕ} (h : n ≤ m) :
boxBdryConnEvent d n = boxRestrict d m ⁻¹' (connToBdryEventLE d h)
def boxBdryConnEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
boxRestrict d n ⁻¹'
{ω' : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω' (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/BoxTailLimit.lean:66
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
noncomputable def connToBdryEventLE (d : ℕ) {n m : ℕ} (h : n ≤ m) :
Set (ConfigSpace (Sym2 (boxVerts d m))) :=
boxRestrictLE d h ⁻¹' {ω : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:453
Uses 12 · Used by 2
LemmaCylinder form of the \(\Lambda_n\) boundary connection is measurable#✓fully proved
The cylinder form of 0 ↔ ∂Λ_n is measurable.
lemma measurableSet_boxRestrict_connToBdryEventLE (d : ℕ) {n m : ℕ} (h : n ≤ m) :
MeasurableSet (boxRestrict d m ⁻¹' (connToBdryEventLE d h))
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
noncomputable def connToBdryEventLE (d : ℕ) {n m : ℕ} (h : n ≤ m) :
Set (ConfigSpace (Sym2 (boxVerts d m))) :=
boxRestrictLE d h ⁻¹' {ω : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/WiredDomChain.lean:453
Uses 15 · Used by 1
LemmaWired \(\Lambda_m\) measure of a \(\Lambda_m\) cylinder event as a sum#✓fully proved
The wired Λ_m measure of a Λ_m cylinder event, as a finite sum.
lemma wiredFiniteMeasure_real_boxRestrictEvent (m : ℕ) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) (S : Set (ConfigSpace (Sym2 (boxVerts d m))))
(hmeas : MeasurableSet (boxRestrict d m ⁻¹' S)) :
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d m ⁻¹' S)
= ∑ ω : ConfigSpace (Sym2 (boxVerts d m)),
S.indicator (fun _ =>
(1 : ℝ)) ω * wiredFkProb (boxGraph d m) (boxBoundary d m) p 2 ω
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 16 · Used by 26
LemmaWired \(q = 2\) probability of \(0 \leftrightarrow \partial\Lambda_n\) in \(\Lambda_{m+1}\) at most in \(\Lambda_m\), \(m \ge n\)#✓fully proved
For q = 2 and n ≤ m, φ¹_{Λ_(m+1)}(0 ↔ ∂Λ_n) ≤ φ¹_{Λ_m}(0 ↔ ∂Λ_n).
lemma wiredFiniteMeasure_succ_le_boxBdryConnEvent_le (n m : ℕ) (h : n ≤ m) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d (m + 1) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
≤ (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 16 · Used by 2
LemmaWired \(q = 2\) probability of \(0 \leftrightarrow \partial\Lambda_n\) in \(\Lambda_{n+k+1}\) at most in \(\Lambda_{n+k}\)#✓fully proved
For q = 2, φ¹_{Λ_(n+k+1)}(0 ↔ ∂Λ_n) ≤ φ¹_{Λ_(n+k)}(0 ↔ ∂Λ_n).
lemma wiredFiniteMeasure_boxBdryConnEvent_antitone_radius (n k : ℕ) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d (n+k+1) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
≤ (wiredFiniteMeasure d (n+k) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n)
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
E. Convergence of box-boundary connection probabilities
LemmaOpen edges of a box are open edges of \(\mathbb{Z}^d\)#✓fully proved
An open edge of the box is an open edge of ℤ^d.
lemma openSubgraph_adj_of_boxGraph (n : ℕ) (ω : ConfigSpace (Sym2 (Site d)))
{x y : boxVerts d n} (h : (openSub (boxGraph d n) (boxRestrict d n ω)).Adj x y) :
(openSubgraph d ω).Adj (x : Site d) (y : Site d)
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
def openSubgraph (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) : SimpleGraph (Site d) where
Adj x y := IsOpenEdge d ω x y
symm := ⟨fun _ _ h => isOpenEdge_symm h⟩
loopless := ⟨fun x h => isOpenEdge_irrefl x h⟩
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:61
Uses 10 · Used by 1
LemmaOpen connections in a box are open connections in \(\mathbb{Z}^d\)#✓fully proved
An open connection inside the box is an open connection in ℤ^d.
lemma connected_of_boxConnected (n : ℕ) (ω : ConfigSpace (Sym2 (Site d)))
{x y : boxVerts d n}
(h : (openSub (boxGraph d n) (boxRestrict d n ω)).Reachable x y) :
StatMech.Lattice.Connected d ω (x : Site d) (y : Site d)
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
def Connected (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) (x y : Site d) : Prop :=
(openSubgraph d ω).Reachable x y
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:75
Uses 10 · Used by 1
LemmaBoundary connection inside \(\Lambda_n\) reaches outside \(\Lambda_{n-1}\)#✓fully proved
A connection from the origin to ∂Λ_n inside Λ_n reaches the complement of Λ_(n-1).
lemma boxBdryConnEvent_subset_crossingEvent (n : ℕ) :
boxBdryConnEvent d n ⊆ crossingEvent d n
def boxBdryConnEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
boxRestrict d n ⁻¹'
{ω' : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω' (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/BoxTailLimit.lean:66
def crossingEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | ∃ v, Connected d ω (origin d) v ∧ v ∉ box d (n - 1)}
MathlibExt/Probability/Percolation/SubcriticalDecay.lean:56
Uses 15 · Used by 2
LemmaOpen lattice edges between box vertices are open box edges#✓fully proved
An open edge of ℤ^d between box vertices is an open edge of the box.
lemma boxGraph_open_of_openSubgraph (n : ℕ) (ω : ConfigSpace (Sym2 (Site d)))
{x y : boxVerts d n} (h : (openSubgraph d ω).Adj (x : Site d) (y : Site d)) :
(openSub (boxGraph d n) (boxRestrict d n ω)).Adj x y
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def openSubgraph (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) : SimpleGraph (Site d) where
Adj x y := IsOpenEdge d ω x y
symm := ⟨fun _ _ h => isOpenEdge_symm h⟩
loopless := ⟨fun x h => isOpenEdge_irrefl x h⟩
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:61
def openSub (ω : ConfigSpace (Sym2 V)) : SimpleGraph V where
Adj x y := G.Adj x y ∧ ω s(x, y) = true
symm := by
refine ⟨fun x y h => ?_⟩
refine ⟨h.1.symm, ?_⟩
rw [Sym2.eq_swap]; exact h.2
loopless := ⟨fun x h => h.1.ne rfl⟩
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:82
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
Uses 10 · Used by 1
LemmaOpen path from the origin out of \(\Lambda_n\) gives \(0 \leftrightarrow \partial\Lambda_n\) inside \(\Lambda_n\)#✓fully proved
A connection from the origin to a site outside Λ_n gives a connection to ∂Λ_n inside Λ_n.
lemma boxBdryConn_of_crossing (n : ℕ) (hn : 1 ≤ n) (ω : ConfigSpace (Sym2 (Site d)))
{v : Site d} (hv : v ∉ box d n)
(h : (openSubgraph d ω).Reachable (origin d) v) :
ConnToBdry (boxGraph d n) (boxBoundary d n) (boxRestrict d n ω) (IsingFK.boxOrigin d n)
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
def box (d n : ℕ) : Set (Site d) := {x | ∀ i, (x i).natAbs ≤ n}
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:86
def openSubgraph (d : ℕ) (ω : ConfigSpace (Sym2 (Site d))) : SimpleGraph (Site d) where
Adj x y := IsOpenEdge d ω x y
symm := ⟨fun _ _ h => isOpenEdge_symm h⟩
loopless := ⟨fun x h => isOpenEdge_irrefl x h⟩
MathlibExt/Combinatorics/SimpleGraph/Lattice/Clusters.lean:61
def origin (d : ℕ) : Site d := fun _ => 0
MathlibExt/Probability/Percolation/Theta.lean:56
def ConnToBdry (ω : ConfigSpace (Sym2 V)) (x : V) : Prop :=
∃ y, bdry y ∧ Connected G ω x y
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/FvES.lean:115
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
def boxRestrict (d n : ℕ) (ω : ConfigSpace (Sym2 (Site d))) :
ConfigSpace (Sym2 (boxVerts d n)) :=
fun eb => ω (edgeIncl d n eb)
PhyslibExt/StatisticalMechanics/RandomCluster/TwoPointInfinite.lean:127
def boxOrigin (d n : ℕ) : boxVerts d n := ⟨origin d, origin_mem_box_boxVerts d n⟩
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/MagPercoIdBox.lean:71
Uses 16 · Used by 2
LemmaLeaving \(\Lambda_n\) implies connecting to \(\partial\Lambda_n\)#✓fully proved
Reaching the complement of Λ_n implies 0 ↔ ∂Λ_n.
lemma crossingEvent_succ_subset_boxBdryConnEvent (n : ℕ) (hn : 1 ≤ n) :
crossingEvent d (n + 1) ⊆ boxBdryConnEvent d n
def crossingEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
{ω | ∃ v, Connected d ω (origin d) v ∧ v ∉ box d (n - 1)}
MathlibExt/Probability/Percolation/SubcriticalDecay.lean:56
def boxBdryConnEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
boxRestrict d n ⁻¹'
{ω' : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω' (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/BoxTailLimit.lean:66
Uses 14 · Used by 2
LemmaWired infinite-volume boundary connection tends to \(\theta^1(p, q)\)#✓fully proved
Under the wired infinite-volume measure, P(0 ↔ ∂Λ_n) → θ¹(p, q).
lemma wiredIv_boxBdryConnEvent_tendsto {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
Tendsto (fun n => ((wiredInfiniteVolume d hp hp1 hq :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d)))) :
Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n))
atTop (𝓝 (fkTheta d hp hp1 hq (q := q)))
noncomputable def wiredInfiniteVolume (d : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(CompactSpace.tendsto_subseq (fun n => wiredFiniteMeasure d n hp hp1 hq)).choose
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:217
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
def boxBdryConnEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
boxRestrict d n ⁻¹'
{ω' : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω' (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/BoxTailLimit.lean:66
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 9 · Used by 3
LemmaEvents \(0 \leftrightarrow \partial\Lambda_n\) decrease in \(n \ge 1\)#✓fully proved
The events 0 ↔ ∂Λ_n decrease in n ≥ 1.
lemma boxBdryConnEvent_subset_le (k n : ℕ) (hk : 1 ≤ k) (hkn : k ≤ n) :
boxBdryConnEvent d n ⊆ boxBdryConnEvent d k
def boxBdryConnEvent (d n : ℕ) : Set (ConfigSpace (Sym2 (Site d))) :=
boxRestrict d n ⁻¹'
{ω' : ConfigSpace (Sym2 (boxVerts d n)) |
ConnToBdry (boxGraph d n) (boxBoundary d n) ω' (IsingFK.boxOrigin d n)}
PhyslibExt/StatisticalMechanics/RandomCluster/BoxTailLimit.lean:66
Uses 4 · Used by 2
LemmaWired \(q = 2\) probability of \(0 \leftrightarrow \partial\Lambda_k\) in \(\Lambda_{k+j}\) is nonincreasing in \(j\)#✓fully proved
For q = 2, j ↦ φ¹_{Λ_(k+j)}(0 ↔ ∂Λ_k) is antitone.
lemma radius_antitone (k : ℕ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
Antitone (fun j => (wiredFiniteMeasure d (k+j) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d k))
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
LemmaAntitone bounded-below sequences converge to any subsequential limit#✓fully proved
A bounded-below antitone real sequence converges to the limit of any of its subsequences.
LemmaInfinite-volume limit of the wired \(q = 2\) probability of \(0 \leftrightarrow \partial\Lambda_k\)#✓fully proved
For q = 2, φ¹_{Λ_(k+j)}(0 ↔ ∂Λ_k) converges as j → ∞ to the wired infinite-volume
probability of 0 ↔ ∂Λ_k.
lemma wiredFiniteMeasure_radius_tendsto (k : ℕ) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
Tendsto (fun j => (wiredFiniteMeasure d (k+j) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d k))
atTop (𝓝 (((wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d)))) :
Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d k)))
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 20 · Used by 1
LemmaWired \(q = 2\) percolation probability as the limit of \(0 \leftrightarrow \partial\Lambda_n\) in \(\Lambda_n\)#✓fully proved
For q = 2, φ¹_{Λ_n}(0 ↔ ∂Λ_n) → θ¹(p, 2).
lemma boxBdryConnEvent_diag_tendsto {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
Tendsto (fun n => (wiredFiniteMeasure d n hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxBdryConnEvent d n))
atTop (𝓝 (fkTheta d hp hp1 (by norm_num : (0 : ℝ) < 2) (q := 2)))
noncomputable def wiredFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((wiredFkPMF (boxGraph d n) (boxBoundary d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:187
Uses 11 · Used by 5
LemmaIsing FK box-boundary connection profile tends to \(\theta^1(p, 2)\)#✓fully proved
The box-boundary connection profile of the Ising FK representation converges to θ¹(p, 2).
lemma boxBoundaryConnProfile_tendsto {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
Tendsto (fun n => IsingFK.boxBoundaryConnProfile d hp hp1 (by norm_num : (0 : ℝ) < 2) n)
atTop (𝓝 (fkTheta d hp hp1 (by norm_num : (0 : ℝ) < 2) (q := 2)))
noncomputable def boxBoundaryConnProfile (d : ℕ) {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(_hq : (0 : ℝ) < 2) (n : ℕ) : ℝ :=
wiredConnToBdryProb (boxGraph d n) (boxBoundary d n) p (boxOrigin d n)
PhyslibExt/CondensedMatter/IsingModel/FKRepresentation/MagPercoIdBox.lean:94
Uses 4 · Used by 5
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.