Translation invariance and ergodicity of the q = 2 random-cluster measures
LemmaAlmost-invariant events are trivial under an ergodic measure#✓fully proved
Under an ergodic measure, a measurable set invariant up to null sets has measure 0 or 1.
See also Mathlib's aeconst_of_forall_preimage_smul_ae_eq for ErgodicSMul.
lemma aeconst_of_ae_invariant
{μ : Measure (ConfigSpace E)} [IsProbabilityMeasure μ] [Countable G]
(hμ : IsErgodic (G := G) μ)
{s : Set (ConfigSpace E)} (hs : MeasurableSet s)
(hinv : ∀ g : G, (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' s =ᵐ[μ] s) :
μ s = 0 ∨ μ s = 1
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def IsErgodic (μ : Measure (ConfigSpace E)) : Prop :=
IsTranslationInvariant (G := G) μ ∧
∀ s : Set (ConfigSpace E), MeasurableSet s →
(∀ g : G, (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' s = s) →
μ s = 0 ∨ μ s = μ Set.univ
MathlibExt/Probability/Configuration/Ergodicity.lean:95
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 4 · Used by 1
DefinitionSelf-mixing on cylinder events#✓fully proved
For every cylinder event A and ε > 0 there is a translation g with
|μ(A ∩ g⁻¹A) - μ(A)²| < ε.
def fmc_SelfMixing [Countable E] (μ : Measure (ConfigSpace E)) : Prop :=
∀ A ∈ measurableCylinders (fun _ : E => Bool), ∀ ε : ℝ, 0 < ε →
∃ g : G, |μ.real (A ∩ (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' A)
- (μ.real A) ^ 2| < ε
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 2 · Used by 4
LemmaCylinder approximation of events under a finite measure#✓fully proved
Every measurable event is approximated by a cylinder event in symmetric difference; the general
form of exists_cylinder_symmDiff_lt (Ergodicity).
lemma fmc_exists_cylinder_symmDiff_lt [Countable E] (μ : Measure (ConfigSpace E))
[IsFiniteMeasure μ] {A : Set (ConfigSpace E)} (hA : MeasurableSet A) {ε : ℝ≥0∞} (hε : 0 < ε) :
∃ C ∈ measurableCylinders (fun _ : E => Bool), μ (C ∆ A) < ε
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 1
LemmaTranslation-invariant self-mixing measures are ergodic#✓fully proved
A translation-invariant self-mixing probability measure is ergodic.
lemma fmc_isErgodic_of_selfMixing [Countable E] {μ : Measure (ConfigSpace E)}
[IsProbabilityMeasure μ] (hμ : IsTranslationInvariant (G := G) μ)
(hmix : fmc_SelfMixing (G := G) μ) :
IsErgodic (G := G) μ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
def fmc_SelfMixing [Countable E] (μ : Measure (ConfigSpace E)) : Prop :=
∀ A ∈ measurableCylinders (fun _ : E => Bool), ∀ ε : ℝ, 0 < ε →
∃ g : G, |μ.real (A ∩ (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' A)
- (μ.real A) ^ 2| < ε
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfMixing.lean:67
def IsErgodic (μ : Measure (ConfigSpace E)) : Prop :=
IsTranslationInvariant (G := G) μ ∧
∀ s : Set (ConfigSpace E), MeasurableSet s →
(∀ g : G, (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' s = s) →
μ s = 0 ∨ μ s = μ Set.univ
MathlibExt/Probability/Configuration/Ergodicity.lean:95
Uses 6 · Used by 3
DefinitionEvent that every coordinate of a finite set is open#✓fully proved
The event O_T that every coordinate in T is open. See also cdc_multiOpenEvent and
med_genericMultiOpenEvent.
def fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 25
DefinitionCoordinate state as a real number#✓fully proved
The state of coordinate e as a real number in {0, 1}.
noncomputable def fmu_xR (ω : ConfigSpace E) (e : E) : ℝ := if ω e then 1 else 0
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
DefinitionProduct indicator of a multi-open event#✓fully proved
The indicator of O_T as the product ∏_{e ∈ T} ω(e).
noncomputable def fmu_moInd (T : Finset E) (ω : ConfigSpace E) : ℝ := ∏ e ∈ T, fmu_xR ω e
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def fmu_xR (ω : ConfigSpace E) (e : E) : ℝ := if ω e then 1 else 0
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:73
DefinitionIndicator of agreeing with a pattern on a finite set#✓fully proved
The indicator that ω agrees with τ on F.
noncomputable def fmu_traceInd (F : Finset E) (τ : E → Bool) (ω : ConfigSpace E) : ℝ :=
if (∀ e ∈ F, ω e = τ e) then 1 else 0
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 1 · Used by 3
DefinitionInclusion–exclusion coefficient of a multi-open event#✓fully proved
The inclusion–exclusion coefficient of O_T in the expansion of the trace indicator of τ on
F.
noncomputable def fmu_traceCoef [DecidableEq E] (F : Finset E) (τ : E → Bool) (T : Finset E) : ℝ :=
(∏ e ∈ T, (if τ e then (1 : ℝ) else -1)) * (∏ e ∈ F \ T, (if τ e then (0 : ℝ) else 1))
DefinitionPair mixing of multi-open events#✓fully proved
For every finite family of finite sets T and δ > 0 there is one translation g with
|μ(O_T ∩ g⁻¹O_{T'}) - μ(O_T) μ(O_{T'})| < δ for all T, T' in the family.
def fmu_PairMixing (μ : Measure (ConfigSpace E)) : Prop :=
∀ (P : Finset (Finset E)) (δ : ℝ), 0 < δ →
∃ g : G, ∀ T ∈ P, ∀ T' ∈ P,
|μ.real (fmu_multiOpen T ∩
(shift g : ConfigSpace E → ConfigSpace E) ⁻¹' fmu_multiOpen T')
- μ.real (fmu_multiOpen T) * μ.real (fmu_multiOpen T')| < δ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:70
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 3 · Used by 3
DefinitionMixing for finite families of cylinder events#✓fully proved
The analogue of fmu_PairMixing for finite families of cylinder events.
def fmu_GenMixing (μ : Measure (ConfigSpace E)) : Prop :=
∀ (𝒜 : Finset (Set (ConfigSpace E))),
(∀ A ∈ 𝒜, A ∈ measurableCylinders (fun _ : E => Bool)) →
∀ δ : ℝ, 0 < δ →
∃ g : G, ∀ A ∈ 𝒜, ∀ B ∈ 𝒜,
|μ.real (A ∩ (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' B)
- μ.real A * μ.real B| < δ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 2
DefinitionUpper decay of correlations of multi-open events#✓fully proved
The one-sided form of fmu_PairMixing: μ(O_T ∩ g⁻¹O_{T'}) ≤ μ(O_T) μ(O_{T'}) + δ.
def fmu_UpperDecay (μ : Measure (ConfigSpace E)) : Prop :=
∀ (P : Finset (Finset E)) (δ : ℝ), 0 < δ →
∃ g : G, ∀ T ∈ P, ∀ T' ∈ P,
μ.real (fmu_multiOpen T ∩
(shift g : ConfigSpace E → ConfigSpace E) ⁻¹' fmu_multiOpen T')
≤ μ.real (fmu_multiOpen T) * μ.real (fmu_multiOpen T') + δ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:70
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 3 · Used by 4
DefinitionExtreme point of the invariant probability measures#✓fully proved
μ is a translation-invariant probability measure that is not a nontrivial convex combination
of
two distinct translation-invariant probability measures.
def IsInvariantExtremePoint (μ : Measure (ConfigSpace E)) : Prop :=
IsTranslationInvariant (G := G) μ ∧ IsProbabilityMeasure μ ∧
∀ (ν₁ ν₂ : Measure (ConfigSpace E)) (a b : ℝ≥0∞),
IsTranslationInvariant (G := G) ν₁ → IsTranslationInvariant (G := G) ν₂ →
IsProbabilityMeasure ν₁ → IsProbabilityMeasure ν₂ →
0 < a → 0 < b → a + b = 1 → μ = a • ν₁ + b • ν₂ → ν₁ = ν₂
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
Uses 2 · Used by 2
LemmaExtreme invariant measures are ergodic#✓fully proved
An extreme point of the translation-invariant probability measures is ergodic.
lemma fec_isErgodic_of_invariantExtremePoint {μ : Measure (ConfigSpace E)}
(hμ : IsInvariantExtremePoint (G := G) μ) :
IsErgodic (G := G) μ
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def IsInvariantExtremePoint (μ : Measure (ConfigSpace E)) : Prop :=
IsTranslationInvariant (G := G) μ ∧ IsProbabilityMeasure μ ∧
∀ (ν₁ ν₂ : Measure (ConfigSpace E)) (a b : ℝ≥0∞),
IsTranslationInvariant (G := G) ν₁ → IsTranslationInvariant (G := G) ν₂ →
IsProbabilityMeasure ν₁ → IsProbabilityMeasure ν₂ →
0 < a → 0 < b → a + b = 1 → μ = a • ν₁ + b • ν₂ → ν₁ = ν₂
PhyslibExt/StatisticalMechanics/RandomCluster/ExtremeIsErgodic.lean:99
def IsErgodic (μ : Measure (ConfigSpace E)) : Prop :=
IsTranslationInvariant (G := G) μ ∧
∀ s : Set (ConfigSpace E), MeasurableSet s →
(∀ g : G, (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' s = s) →
μ s = 0 ∨ μ s = μ Set.univ
MathlibExt/Probability/Configuration/Ergodicity.lean:95
DefinitionConditional product cap for multi-open events in boxes#✓fully proved
For every finite family of finite edge sets and box index N, some translation g satisfies,
for
all large m: each O_T ∩ g⁻¹O_{T'} is A ∩ B on Λ_m with A increasing and B depending
only
on edges outside some F, the conditional masses of A on the fibres of F (with a boundary
graph
containing the wired one) are at most μ_N(O_T), and the mass of B is at most μ_N(O_{T'}).
StatMech.FK.fdb_BoxConditionalProductCap · 24 lines
def fdb_BoxConditionalProductCap {p : ℝ} (hp : 0 < p) (hp1 : p < 1) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
∃ g : Multiplicative (Site d), ∀ᶠ m in atTop, ∀ T ∈ P, ∀ T' ∈ P,
∃ (F : Finset (Sym2 (boxVerts d m)))
(S_A S_B : Set (ConfigSpace (Sym2 (boxVerts d m))))
(C' : SimpleGraph (boxVerts d m)) (_ : DecidableRel C'.Adj),
(fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T') = boxRestrict d m ⁻¹' (S_A ∩ S_B) ∧
MeasurableSet (boxRestrict d m ⁻¹' (S_A ∩ S_B)) ∧
MeasurableSet (boxRestrict d m ⁻¹' S_B) ∧
IsIncreasing S_A ∧
DependsOnOutside F S_B ∧
boundaryCliqueGraph (boxBoundary d m) ≤ C' ∧
(0 ≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T)) ∧
(∀ ψ ∈ fibreReps F,
(∑ ρ, S_A.indicator (fun _ => (1 : ℝ)) ρ * condBcProb (boxGraph d m) C' p 2 F ψ ρ)
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T)) ∧
((wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d m ⁻¹' S_B)
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T'))
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
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
def fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:70
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
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 IsIncreasing (A : Set (ConfigSpace E)) : Prop := IsUpperSet A
MathlibExt/Probability/CorrelationInequalities/IncreasingEvent.lean:55
def DependsOnOutside (F : Finset (Sym2 V)) (B : Set (ConfigSpace (Sym2 V))) : Prop :=
∀ ψ ρ, AgreesOff F ψ ρ → (ψ ∈ B ↔ ρ ∈ B)
PhyslibExt/StatisticalMechanics/RandomCluster/FKDisjointBoxDomainMarkov.lean:168
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 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 15
DefinitionFar-box product domination of multi-open events#✓fully proved
For every finite family of finite edge sets, box index m, and δ > 0, some translation g
satisfies μ(O_T ∩ g⁻¹O_{T'}) ≤ μ_m(O_T) μ_m(O_{T'}) + δ for all T, T' in the family.
def ftb_FarBoxProductDom {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d))))
(μ : Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (m : ℕ) (δ : ℝ), 0 < δ →
∃ g : Multiplicative (Site d), ∀ T ∈ P, ∀ T' ∈ P,
μ.real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox m).real (fmu_multiOpen T) * (μbox m).real (fmu_multiOpen T') + δ
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 fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:70
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
DefinitionFinite-box disjoint product domination of multi-open events#✓fully proved
For every finite family of finite edge sets and box index N, some translation g satisfies,
for
all large m, μ_m(O_T ∩ g⁻¹O_{T'}) ≤ μ_N(O_T) μ_N(O_{T'}) for all T, T' in the family.
def ftb_FiniteBoxDisjointProductDom {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
∃ g : Multiplicative (Site d), ∀ᶠ m in atTop, ∀ T ∈ P, ∀ T' ∈ P,
(μbox m).real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox N).real (fmu_multiOpen T) * (μbox N).real (fmu_multiOpen T')
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 fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:70
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
DefinitionTranslated wired box measure#✓fully proved
The wired finite-volume random-cluster measure on Λ_n translated by g.
noncomputable def erg_wiredShiftedFinite {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (n : ℕ) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(wiredFiniteMeasure d n hp hp1 hq).map (shift g)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
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
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
DefinitionTranslated free box measure#✓fully proved
The free finite-volume random-cluster measure on Λ_n translated by g.
noncomputable def erg_freeShiftedFinite {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (n : ℕ) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
(freeFiniteMeasure d n hp hp1 hq).map (shift g)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
DefinitionWired integral shift decay along a box sequence#✓fully proved
Along the box sequence φ, the wired box integrals of f and of f ∘ θ_g differ by a
quantity tending to zero, for every bounded continuous f.
def ivt_wiredIntegralShiftDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ,
Tendsto (fun n =>
(∫ x, f x ∂((wiredFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _))
- (∫ x, f (shift g x)
∂((wiredFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _)))
atTop (𝓝 0)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
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
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 4 · Used by 3
DefinitionFree integral shift decay along a box sequence#✓fully proved
Along the box sequence φ, the free box integrals of f and of f ∘ θ_g differ by a
quantity tending to zero, for every bounded continuous f.
def ivt_freeIntegralShiftDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ,
Tendsto (fun n =>
(∫ x, f x ∂((freeFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _))
- (∫ x, f (shift g x)
∂((freeFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _)))
atTop (𝓝 0)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 4 · Used by 3
LemmaWired translation invariance from integral shift decay#✓fully proved
The wired infinite-volume FK measure is translation invariant if the integral decay
hypothesis holds for every shift and every convergent box subsequence. See also
flc_wiredIV_isTranslationInvariant, which proves invariance for q = 2 without hypotheses.
lemma ivt_wiredIV_isTranslationInvariant_of_decay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 0 < q)
(hdecay : ∀ (g : Multiplicative (Site d)) (φ : ℕ → ℕ), StrictMono φ →
WeakConvergesTo (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq)
(wiredInfiniteVolume d hp hp1 hq) →
ivt_wiredIntegralShiftDecay hp hp1 hq g φ) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def WeakConvergesTo (μ : ℕ → ProbabilityMeasure (ConfigSpace E))
(ν : ProbabilityMeasure (ConfigSpace E)) : Prop :=
Tendsto μ atTop (𝓝 ν)
MathlibExt/Probability/Configuration/WeakConvergence.lean:44
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
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
def ivt_wiredIntegralShiftDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ,
Tendsto (fun n =>
(∫ x, f x ∂((wiredFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _))
- (∫ x, f (shift g x)
∂((wiredFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _)))
atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/IVTranslationInvariance.lean:91
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 12 · Used by 1
LemmaFree translation invariance from integral shift decay#✓fully proved
The free infinite-volume FK measure is translation invariant if the integral decay hypothesis
holds for every shift and every convergent box subsequence. See also
bdp_freeIV_isTranslationInvariant, which proves invariance for q = 2 without hypotheses.
lemma ivt_freeIV_isTranslationInvariant_of_decay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 0 < q)
(hdecay : ∀ (g : Multiplicative (Site d)) (φ : ℕ → ℕ), StrictMono φ →
WeakConvergesTo (fun n => freeFiniteMeasure d (φ n) hp hp1 hq)
(freeInfiniteVolume d hp hp1 hq) →
ivt_freeIntegralShiftDecay hp hp1 hq g φ) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(freeInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def WeakConvergesTo (μ : ℕ → ProbabilityMeasure (ConfigSpace E))
(ν : ProbabilityMeasure (ConfigSpace E)) : Prop :=
Tendsto μ atTop (𝓝 ν)
MathlibExt/Probability/Configuration/WeakConvergence.lean:44
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
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
def ivt_freeIntegralShiftDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ,
Tendsto (fun n =>
(∫ x, f x ∂((freeFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _))
- (∫ x, f (shift g x)
∂((freeFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _)))
atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/IVTranslationInvariance.lean:102
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 12 · Used by 1
LemmaIdentity shift satisfies the wired decay hypothesis#✓fully proved
The identity shift satisfies the wired decay hypothesis, so it is not vacuous.
lemma ivt_wiredIntegralShiftDecay_one {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(φ : ℕ → ℕ) : ivt_wiredIntegralShiftDecay hp hp1 hq (1 : Multiplicative (Site d)) φ
def ivt_wiredIntegralShiftDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ,
Tendsto (fun n =>
(∫ x, f x ∂((wiredFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _))
- (∫ x, f (shift g x)
∂((wiredFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _)))
atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/IVTranslationInvariance.lean:91
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
LemmaIdentity shift satisfies the free decay hypothesis#✓fully proved
The identity shift satisfies the free decay hypothesis, so it is not vacuous.
lemma ivt_freeIntegralShiftDecay_one {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(φ : ℕ → ℕ) : ivt_freeIntegralShiftDecay hp hp1 hq (1 : Multiplicative (Site d)) φ
def ivt_freeIntegralShiftDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ,
Tendsto (fun n =>
(∫ x, f x ∂((freeFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _))
- (∫ x, f (shift g x)
∂((freeFiniteMeasure d (φ n) hp hp1 hq : ProbabilityMeasure _) : Measure _)))
atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/IVTranslationInvariance.lean:102
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
DefinitionShift-decay functional of a sequence of measures#✓fully proved
The difference ∫ f dμ_n - ∫ f ∘ θ_g dμ_n between the integrals of f and of its shift by
g against the n-th measure.
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
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 shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 3 · Used by 16
LemmaShift decay extends from a dense set of test functions#✓fully proved
If D_n(f') → 0 for all f' in a dense set of bounded continuous functions, then
D_n(f) → 0 for every bounded continuous f. This is the equicontinuity argument of
EquicontinuousAt.tendsto_of_mem_closure, specialized to the uniformly Lipschitz family
f ↦ D_n(f).
lemma isd_tendsto_decay_of_dense (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) {D : Set ((ConfigSpace (Sym2 (Site d))) →ᵇ ℝ)}
(hD : Dense D)
(hdecay : ∀ f' ∈ D, Tendsto (isd_decayFun μ g f') atTop (𝓝 0))
(f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) :
Tendsto (isd_decayFun μ g f) atTop (𝓝 0)
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 isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
Uses 4 · Used by 2
DefinitionWired shift decay on a dense set of test functions#✓fully proved
Decay of D_n along the wired box measures φ^1_{Λ_{φ(n)}} on some dense set of bounded
continuous functions.
def isd_wiredDenseDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∃ D : Set ((ConfigSpace (Sym2 (Site d))) →ᵇ ℝ), Dense D ∧
∀ f' ∈ D,
Tendsto (isd_decayFun (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq) g f')
atTop (𝓝 0)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
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 4 · Used by 2
DefinitionFree shift decay on a dense set of test functions#✓fully proved
Decay of D_n along the free box measures φ^0_{Λ_{φ(n)}} on some dense set of bounded
continuous functions.
def isd_freeDenseDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∃ D : Set ((ConfigSpace (Sym2 (Site d))) →ᵇ ℝ), Dense D ∧
∀ f' ∈ D,
Tendsto (isd_decayFun (fun n => freeFiniteMeasure d (φ n) hp hp1 hq) g f')
atTop (𝓝 0)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
Uses 4 · Used by 2
LemmaWired translation invariance from decay on a dense set#✓fully proved
The wired infinite-volume FK measure is translation invariant if, for every shift and every
convergent box subsequence, D_n decays on a dense set. See also
flc_wiredIV_isTranslationInvariant (unconditional for q = 2).
lemma isd_wiredIV_isTranslationInvariant_of_denseDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 0 < q)
(hdense : ∀ (g : Multiplicative (Site d)) (φ : ℕ → ℕ), StrictMono φ →
WeakConvergesTo (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq)
(wiredInfiniteVolume d hp hp1 hq) →
isd_wiredDenseDecay hp hp1 hq g φ) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def WeakConvergesTo (μ : ℕ → ProbabilityMeasure (ConfigSpace E))
(ν : ProbabilityMeasure (ConfigSpace E)) : Prop :=
Tendsto μ atTop (𝓝 ν)
MathlibExt/Probability/Configuration/WeakConvergence.lean:44
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
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
def isd_wiredDenseDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∃ D : Set ((ConfigSpace (Sym2 (Site d))) →ᵇ ℝ), Dense D ∧
∀ f' ∈ D,
Tendsto (isd_decayFun (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq) g f')
atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:163
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 11 · Used by 1
LemmaFree translation invariance from decay on a dense set#✓fully proved
The free infinite-volume FK measure is translation invariant if, for every shift and every
convergent box subsequence, D_n decays on a dense set. See also
bdp_freeIV_isTranslationInvariant (unconditional for q = 2).
lemma isd_freeIV_isTranslationInvariant_of_denseDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 0 < q)
(hdense : ∀ (g : Multiplicative (Site d)) (φ : ℕ → ℕ), StrictMono φ →
WeakConvergesTo (fun n => freeFiniteMeasure d (φ n) hp hp1 hq)
(freeInfiniteVolume d hp hp1 hq) →
isd_freeDenseDecay hp hp1 hq g φ) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(freeInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def WeakConvergesTo (μ : ℕ → ProbabilityMeasure (ConfigSpace E))
(ν : ProbabilityMeasure (ConfigSpace E)) : Prop :=
Tendsto μ atTop (𝓝 ν)
MathlibExt/Probability/Configuration/WeakConvergence.lean:44
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
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
def isd_freeDenseDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∃ D : Set ((ConfigSpace (Sym2 (Site d))) →ᵇ ℝ), Dense D ∧
∀ f' ∈ D,
Tendsto (isd_decayFun (fun n => freeFiniteMeasure d (φ n) hp hp1 hq) g f')
atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:172
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 11 · Used by 1
DefinitionEdge-open indicator as a continuous function#✓fully proved
The indicator ω ↦ 1{ω_e = 1} of the edge e being open, as a continuous function.
noncomputable def idc_coordCM (e : Sym2 (Site d)) : C(ConfigSpace (Sym2 (Site d)), ℝ) :=
⟨fun ω => if ω e then (1 : ℝ) else 0,
(continuous_of_discreteTopology (f := fun b : Bool => if b then (1 : ℝ) else 0)).comp
(continuous_apply e)⟩
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 2 · Used by 8
DefinitionEdge-open indicator as a bounded continuous function#✓fully proved
The edge indicator ω ↦ 1{ω_e = 1} as a bounded continuous function.
noncomputable def idc_coordBcf (e : Sym2 (Site d)) : ConfigSpace (Sym2 (Site d)) →ᵇ ℝ :=
BoundedContinuousFunction.mkOfCompact (idc_coordCM e)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def idc_coordCM (e : Sym2 (Site d)) : C(ConfigSpace (Sym2 (Site d)), ℝ) :=
⟨fun ω => if ω e then (1 : ℝ) else 0,
(continuous_of_discreteTopology (f := fun b : Bool => if b then (1 : ℝ) else 0)).comp
(continuous_apply e)⟩
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:79
Uses 3 · Used by 3
LemmaWired box integral of an edge indicator is the wired edge marginal#✓fully proved
The integral of the indicator of a box edge against the wired box measure on Λ_m is the
wired edge marginal.
lemma idc_integral_coordBcf_wired (N m : ℕ) (hNm : N ≤ m) (eb : Sym2 (boxVerts d N))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
(∫ ω, idc_coordBcf (edgeIncl d N eb) ω
∂((wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: ProbabilityMeasure _) : Measure _))
= edgeMargProb (wiredFkProb (boxGraph d m) (boxBoundary d m) p 2) (innerEdgeLE d hNm eb)
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def idc_coordBcf (e : Sym2 (Site d)) : ConfigSpace (Sym2 (Site d)) →ᵇ ℝ :=
BoundedContinuousFunction.mkOfCompact (idc_coordCM e)
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:88
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
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 17
LemmaFree box integral of an edge indicator is the free edge marginal#✓fully proved
The integral of the indicator of a box edge against the free box measure on Λ_m is the
free edge marginal.
lemma idc_integral_coordBcf_free (N m : ℕ) (hNm : N ≤ m) (eb : Sym2 (boxVerts d N))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
(∫ ω, idc_coordBcf (edgeIncl d N eb) ω
∂((freeFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: ProbabilityMeasure _) : Measure _))
= edgeMargProb (fkProb (boxGraph d m) p 2) (innerEdgeLE d hNm eb)
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def idc_coordBcf (e : Sym2 (Site d)) : ConfigSpace (Sym2 (Site d)) →ᵇ ℝ :=
BoundedContinuousFunction.mkOfCompact (idc_coordCM e)
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:88
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
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
Uses 16
LemmaDecay of the edge-indicator functional from equal wired densities#✓fully proved
If the box edge e and its shift g⁻¹ e have the same wired q = 2 density, the decay
functional of the indicator of e along the wired box measures tends to zero.
lemma idc_wired_coord_decay_of_density_eq (N : ℕ) (eb eb' : Sym2 (boxVerts d N))
(g : Multiplicative (Site d)) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hshift : g⁻¹ • (edgeIncl d N eb) = edgeIncl d N eb')
(hdens : wiredEdgeDensity d 2 (edgeIncl d N eb) p
= wiredEdgeDensity d 2 (edgeIncl d N eb') p) :
Tendsto (isd_decayFun (fun m => wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2))
g (idc_coordBcf (edgeIncl d N eb))) atTop (𝓝 0)
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
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
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
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 15
DefinitionCylinder algebra generated by edge indicators#✓fully proved
The subalgebra of continuous functions generated by the edge indicators.
noncomputable def idc_cylinderAlg (d : ℕ) : Subalgebra ℝ C(ConfigSpace (Sym2 (Site d)), ℝ) :=
Algebra.adjoin ℝ (Set.range (idc_coordCM (d := 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
noncomputable def idc_coordCM (e : Sym2 (Site d)) : C(ConfigSpace (Sym2 (Site d)), ℝ) :=
⟨fun ω => if ω e then (1 : ℝ) else 0,
(continuous_of_discreteTopology (f := fun b : Bool => if b then (1 : ℝ) else 0)).comp
(continuous_apply e)⟩
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:79
Uses 3 · Used by 6
DefinitionCylinder algebra as bounded continuous functions#✓fully proved
The cylinder algebra viewed as a set of bounded continuous functions.
noncomputable def idc_cylinderBcfSet (d : ℕ) : Set (ConfigSpace (Sym2 (Site d)) →ᵇ ℝ) :=
BoundedContinuousFunction.mkOfCompact ''
(idc_cylinderAlg d : Set C(ConfigSpace (Sym2 (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
noncomputable def idc_cylinderAlg (d : ℕ) : Subalgebra ℝ C(ConfigSpace (Sym2 (Site d)), ℝ) :=
Algebra.adjoin ℝ (Set.range (idc_coordCM (d := d)))
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:198
Uses 3 · Used by 9
LemmaDensity of cylinder functions among bounded continuous functions#✓fully proved
The cylinder functions are dense in the bounded continuous functions, by Stone–Weierstrass on the compact configuration space.
lemma idc_cylinderBcfSet_dense (d : ℕ) : Dense (idc_cylinderBcfSet d)
noncomputable def idc_cylinderBcfSet (d : ℕ) : Set (ConfigSpace (Sym2 (Site d)) →ᵇ ℝ) :=
BoundedContinuousFunction.mkOfCompact ''
(idc_cylinderAlg d : Set C(ConfigSpace (Sym2 (Site d)), ℝ))
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:215
DefinitionCylinder decay along the wired box measures#✓fully proved
The decay functional tends to zero along the wired box measures for every cylinder function.
def idc_wiredCylinderDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f ∈ idc_cylinderBcfSet d,
Tendsto (isd_decayFun (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq) g f) atTop (𝓝 0)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
noncomputable def idc_cylinderBcfSet (d : ℕ) : Set (ConfigSpace (Sym2 (Site d)) →ᵇ ℝ) :=
BoundedContinuousFunction.mkOfCompact ''
(idc_cylinderAlg d : Set C(ConfigSpace (Sym2 (Site d)), ℝ))
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:215
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
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
DefinitionCylinder decay along the free box measures#✓fully proved
The decay functional tends to zero along the free box measures for every cylinder function.
def idc_freeCylinderDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f ∈ idc_cylinderBcfSet d,
Tendsto (isd_decayFun (fun n => freeFiniteMeasure d (φ n) hp hp1 hq) g f) atTop (𝓝 0)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
noncomputable def idc_cylinderBcfSet (d : ℕ) : Set (ConfigSpace (Sym2 (Site d)) →ᵇ ℝ) :=
BoundedContinuousFunction.mkOfCompact ''
(idc_cylinderAlg d : Set C(ConfigSpace (Sym2 (Site d)), ℝ))
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:215
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
LemmaTranslation invariance of the wired FK measure from cylinder decay#✓fully proved
The wired infinite-volume FK measure is translation invariant if cylinder decay holds for
every shift and every convergent box subsequence. See also flc_wiredIV_isTranslationInvariant
(unconditional for q = 2).
lemma idc_wiredIV_isTranslationInvariant_of_cylinderDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 0 < q)
(hcyl : ∀ (g : Multiplicative (Site d)) (φ : ℕ → ℕ), StrictMono φ →
WeakConvergesTo (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq)
(wiredInfiniteVolume d hp hp1 hq) →
idc_wiredCylinderDecay hp hp1 hq g φ) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def WeakConvergesTo (μ : ℕ → ProbabilityMeasure (ConfigSpace E))
(ν : ProbabilityMeasure (ConfigSpace E)) : Prop :=
Tendsto μ atTop (𝓝 ν)
MathlibExt/Probability/Configuration/WeakConvergence.lean:44
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
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
def idc_wiredCylinderDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f ∈ idc_cylinderBcfSet d,
Tendsto (isd_decayFun (fun n => wiredFiniteMeasure d (φ n) hp hp1 hq) g f) atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:243
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 12 · Used by 2
LemmaTranslation invariance of the free FK measure from cylinder decay#✓fully proved
The free infinite-volume FK measure is translation invariant if cylinder decay holds for
every shift and every convergent box subsequence. See also bdp_freeIV_isTranslationInvariant
(unconditional for q = 2).
lemma idc_freeIV_isTranslationInvariant_of_cylinderDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hq : 0 < q)
(hcyl : ∀ (g : Multiplicative (Site d)) (φ : ℕ → ℕ), StrictMono φ →
WeakConvergesTo (fun n => freeFiniteMeasure d (φ n) hp hp1 hq)
(freeInfiniteVolume d hp hp1 hq) →
idc_freeCylinderDecay hp hp1 hq g φ) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(freeInfiniteVolume d hp hp1 hq : Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def WeakConvergesTo (μ : ℕ → ProbabilityMeasure (ConfigSpace E))
(ν : ProbabilityMeasure (ConfigSpace E)) : Prop :=
Tendsto μ atTop (𝓝 ν)
MathlibExt/Probability/Configuration/WeakConvergence.lean:44
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
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
def idc_freeCylinderDecay {p q : ℝ} (hp : 0 < p) (hp1 : p < 1) (hq : 0 < q)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) : Prop :=
∀ f ∈ idc_cylinderBcfSet d,
Tendsto (isd_decayFun (fun n => freeFiniteMeasure d (φ n) hp hp1 hq) g f) atTop (𝓝 0)
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:250
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 12 · Used by 2
DefinitionTranslation of \(\mathbb{Z}^d\) by a vector#✓fully proved
Translation x ↦ x + v as a permutation of ℤ^d.
def fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
Uses 1 · Used by 8
LemmaUnit translations are not box symmetries#✓fully proved
Translation by a unit vector does not preserve the centered boxes, so it is not a BoxSym.
lemma fktc_translate_not_box_mem (j : Fin d) :
¬ (∀ n x, fktc_translate (fun i => if i = j then (1:ℤ) else 0) x ∈ box d n
↔ x ∈ box d n)
def fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:79
def box (d n : ℕ) : Set (Site d) := {x | ∀ i, (x i).natAbs ≤ n}
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:86
LemmaA site and its translate lie in a common centered box#✓fully proved
A site and its translate lie in a common centered box.
lemma fktc_point_and_translate_in_box (v x : Site d) :
∃ N, x ∈ box d N ∧ fktc_translate v x ∈ box d N
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 fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:79
LemmaAn edge and its translate lie in a common centered box#✓fully proved
The endpoints of an edge and of its translate lie in a common centered box.
lemma fktc_edge_and_translate_in_box (v x y : Site d) :
∃ N, x ∈ box d N ∧ y ∈ box d N ∧
fktc_translate v x ∈ box d N ∧ fktc_translate v y ∈ box d N
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 fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:79
DefinitionUnordered pair of two sites of a box \(\Lambda_N\)#✓fully proved
The pair {x, y} as an element of Sym2 Λ_N, for sites x, y ∈ Λ_N.
def fktc_boxEdge {N : ℕ} {x y : Site d} (hx : x ∈ box d N) (hy : y ∈ box d N) :
Sym2 (boxVerts d N) :=
s(⟨x, hx⟩, ⟨y, hy⟩)
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
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
Uses 3 · Used by 3
LemmaWired edge density is constant on orbits of a box symmetry#✓fully proved
The wired edge density is constant on each orbit of a box symmetry.
lemma fktc_wired_box_density_const_of_orbit (S : BoxSym d) (N : ℕ)
(EB : Finset (Sym2 (boxVerts d N))) (eb₀ : Sym2 (boxVerts d N)) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(horb : ∀ eb ∈ EB, ∃ k : ℕ, eb = (Sym2.map (S.lift N))^[k] eb₀) :
∀ eb ∈ EB, wiredEdgeDensity d 2 (edgeIncl d N eb) p
= wiredEdgeDensity d 2 (edgeIncl d N eb₀) p
structure BoxSym (d : ℕ) where
/-- The underlying permutation of the sites. -/
τ : Site d ≃ Site d
/-- `τ` preserves nearest-neighbour adjacency. -/
adj : ∀ x y, (hypercubicLattice d).Adj (τ x) (τ y) ↔ (hypercubicLattice d).Adj x y
/-- `τ` maps each centered box onto itself. -/
box_mem : ∀ n x, τ x ∈ box d n ↔ x ∈ box d n
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvariance.lean:277
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
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
LemmaFree edge density is constant on orbits of a box symmetry#✓fully proved
The free edge density is constant on each orbit of a box symmetry.
lemma fktc_free_box_density_const_of_orbit (S : BoxSym d) (N : ℕ)
(EB : Finset (Sym2 (boxVerts d N))) (eb₀ : Sym2 (boxVerts d N)) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(horb : ∀ eb ∈ EB, ∃ k : ℕ, eb = (Sym2.map (S.lift N))^[k] eb₀) :
∀ eb ∈ EB, freeEdgeDensity d 2 (edgeIncl d N eb) p
= freeEdgeDensity d 2 (edgeIncl d N eb₀) p
structure BoxSym (d : ℕ) where
/-- The underlying permutation of the sites. -/
τ : Site d ≃ Site d
/-- `τ` preserves nearest-neighbour adjacency. -/
adj : ∀ x y, (hypercubicLattice d).Adj (τ x) (τ y) ↔ (hypercubicLattice d).Adj x y
/-- `τ` maps each centered box onto itself. -/
box_mem : ∀ n x, τ x ∈ box d n ↔ x ∈ box d n
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvariance.lean:277
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
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
Uses 6 · Used by 1
LemmaEqual wired densities from merging wired marginals#✓fully proved
If the wired marginals of two box edges on Λ_{N+k} differ by a quantity tending to zero,
the two edges have the same wired density.
lemma fktc_wired_density_eq_of_marg_decay (N : ℕ) (eb eb' : Sym2 (boxVerts d N))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hdecay : Tendsto (fun k =>
edgeMargProb (wiredFkProb (boxGraph d (N + k)) (boxBoundary d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) eb)
- edgeMargProb (wiredFkProb (boxGraph d (N + k)) (boxBoundary d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) eb')) atTop (𝓝 0)) :
wiredEdgeDensity d 2 (edgeIncl d N eb) p
= wiredEdgeDensity d 2 (edgeIncl d N eb') p
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
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 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
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
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
Uses 21 · Used by 1
LemmaEqual free densities from merging free marginals#✓fully proved
If the free marginals of two box edges on Λ_{N+k} differ by a quantity tending to zero, the
two edges have the same free density.
lemma fktc_free_density_eq_of_marg_decay (N : ℕ) (eb eb' : Sym2 (boxVerts d N))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hdecay : Tendsto (fun k =>
edgeMargProb (fkProb (boxGraph d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) eb)
- edgeMargProb (fkProb (boxGraph d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) eb')) atTop (𝓝 0)) :
freeEdgeDensity d 2 (edgeIncl d N eb) p
= freeEdgeDensity d 2 (edgeIncl d N eb') p
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
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
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
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
Uses 20 · Used by 1
LemmaTranslation invariance of the wired density given merging marginals#✓fully proved
An edge and its translate have the same wired density if their wired marginals merge along
the boxes. See also bdp_wiredEdgeDensity_translation_inv, which proves the conclusion without
the merging hypothesis.
lemma fktc_wired_density_translation_inv (v x y : Site d) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(hcof : ∃ N, ∃ hx : x ∈ box d N, ∃ hy : y ∈ box d N,
∃ hx' : fktc_translate v x ∈ box d N, ∃ hy' : fktc_translate v y ∈ box d N,
Tendsto (fun k =>
edgeMargProb (wiredFkProb (boxGraph d (N + k)) (boxBoundary d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx hy))
- edgeMargProb (wiredFkProb (boxGraph d (N + k)) (boxBoundary d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx' hy'))) atTop (𝓝 0)) :
wiredEdgeDensity d 2 s(x, y) p
= wiredEdgeDensity d 2 s(fktc_translate v x, fktc_translate v y) p
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 fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:79
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
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 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
def fktc_boxEdge {N : ℕ} {x y : Site d} (hx : x ∈ box d N) (hy : y ∈ box d N) :
Sym2 (boxVerts d N) :=
s(⟨x, hx⟩, ⟨y, hy⟩)
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:158
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
Uses 13 · Used by 1
LemmaTranslation invariance of the free density given merging marginals#✓fully proved
An edge and its translate have the same free density if their free marginals merge along the
boxes. See also bdp_freeEdgeDensity_translation_inv, which proves the conclusion without the
merging hypothesis.
lemma fktc_free_density_translation_inv (v x y : Site d) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(hcof : ∃ N, ∃ hx : x ∈ box d N, ∃ hy : y ∈ box d N,
∃ hx' : fktc_translate v x ∈ box d N, ∃ hy' : fktc_translate v y ∈ box d N,
Tendsto (fun k =>
edgeMargProb (fkProb (boxGraph d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx hy))
- edgeMargProb (fkProb (boxGraph d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx' hy'))) atTop (𝓝 0)) :
freeEdgeDensity d 2 s(x, y) p
= freeEdgeDensity d 2 s(fktc_translate v x, fktc_translate v y) p
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 fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:79
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
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
def fktc_boxEdge {N : ℕ} {x y : Site d} (hx : x ∈ box d N) (hy : y ∈ box d N) :
Sym2 (boxVerts d N) :=
s(⟨x, hx⟩, ⟨y, hy⟩)
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:158
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
Uses 12 · Used by 1
LemmaTranslation invariance of free and wired densities if marginals merge#✓fully proved
Translation invariance of the free and wired densities of an edge under the merging
hypotheses of fktc_wired_density_translation_inv and fktc_free_density_translation_inv.
StatMech.FK.fktc_density_translation_inv · 19 lines
lemma fktc_density_translation_inv (v x y : Site d) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hcofW : ∃ N, ∃ hx : x ∈ box d N, ∃ hy : y ∈ box d N,
∃ hx' : fktc_translate v x ∈ box d N, ∃ hy' : fktc_translate v y ∈ box d N,
Tendsto (fun k =>
edgeMargProb (wiredFkProb (boxGraph d (N + k)) (boxBoundary d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx hy))
- edgeMargProb (wiredFkProb (boxGraph d (N + k)) (boxBoundary d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx' hy'))) atTop (𝓝 0))
(hcofF : ∃ N, ∃ hx : x ∈ box d N, ∃ hy : y ∈ box d N,
∃ hx' : fktc_translate v x ∈ box d N, ∃ hy' : fktc_translate v y ∈ box d N,
Tendsto (fun k =>
edgeMargProb (fkProb (boxGraph d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx hy))
- edgeMargProb (fkProb (boxGraph d (N + k)) p 2)
(innerEdgeLE d (Nat.le_add_right N k) (fktc_boxEdge hx' hy'))) atTop (𝓝 0)) :
wiredEdgeDensity d 2 s(x, y) p
= wiredEdgeDensity d 2 s(fktc_translate v x, fktc_translate v y) p
∧ freeEdgeDensity d 2 s(x, y) p
= freeEdgeDensity d 2 s(fktc_translate v x, fktc_translate v y) p
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 fktc_translate (v : Site d) : Site d ≃ Site d where
toFun := fun x => x + v
invFun := fun x => x - v
left_inv := by intro x; funext i; simp
right_inv := by intro x; funext i; simp
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:79
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
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 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
def fktc_boxEdge {N : ℕ} {x y : Site d} (hx : x ∈ box d N) (hy : y ∈ box d N) :
Sym2 (boxVerts d N) :=
s(⟨x, hx⟩, ⟨y, hy⟩)
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationCofinal.lean:158
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
Uses 15
LemmaConstant wired density gives a lower bound on expected open edges#✓fully proved
If the wired density is constant on a set EB of box edges, |EB| times that density is at
most the expected number of open edges of EB under the wired measure on any larger box.
lemma fktc_wired_density_eq_const (N n : ℕ) (hNn : N ≤ n)
(EB : Finset (Sym2 (boxVerts d N))) (eb₀ : Sym2 (boxVerts d N)) {p : ℝ}
(hconst : ∀ eb ∈ EB, wiredEdgeDensity d 2 (edgeIncl d N eb) p
= wiredEdgeDensity d 2 (edgeIncl d N eb₀) p)
(hp : 0 < p) (hp1 : p < 1) :
(EB.card : ℝ) * wiredEdgeDensity d 2 (edgeIncl d N eb₀) p
≤ ∑ ω : ConfigSpace (Sym2 (boxVerts d n)),
dfi_openEdgeCount (EB.image (innerEdgeLE d hNn)) ω
* wiredFkProb (boxGraph d n) (boxBoundary d n) p 2 ω
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
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
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def dfi_openEdgeCount {V : Type*} [Fintype V] [DecidableEq V]
(E : Finset (Sym2 V)) (ω : ConfigSpace (Sym2 V)) : ℝ :=
∑ e ∈ E, (if ω e then (1 : ℝ) else 0)
PhyslibExt/StatisticalMechanics/RandomCluster/DensityFiniteToInfinite.lean:179
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
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
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
Uses 24 · Used by 1
LemmaConstant free density gives an upper bound on expected open edges#✓fully proved
If the free density is constant on a set EB of box edges, the expected number of open edges
of EB under the free measure on any larger box is at most |EB| times that density.
lemma fktc_free_density_eq_const (N n : ℕ) (hNn : N ≤ n)
(EB : Finset (Sym2 (boxVerts d N))) (eb₀ : Sym2 (boxVerts d N)) {p : ℝ}
(hconst : ∀ eb ∈ EB, freeEdgeDensity d 2 (edgeIncl d N eb) p
= freeEdgeDensity d 2 (edgeIncl d N eb₀) p)
(hp : 0 < p) (hp1 : p < 1) :
(∑ ω : ConfigSpace (Sym2 (boxVerts d n)),
dfi_openEdgeCount (EB.image (innerEdgeLE d hNn)) ω
* fkProb (boxGraph d n) p 2 ω)
≤ (EB.card : ℝ) * freeEdgeDensity d 2 (edgeIncl d N eb₀) p
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
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
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def dfi_openEdgeCount {V : Type*} [Fintype V] [DecidableEq V]
(E : Finset (Sym2 V)) (ω : ConfigSpace (Sym2 V)) : ℝ :=
∑ e ∈ E, (if ω e then (1 : ℝ) else 0)
PhyslibExt/StatisticalMechanics/RandomCluster/DensityFiniteToInfinite.lean:179
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
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
Uses 24 · Used by 1
LemmaWired lower bound on expected open edges along a box-symmetry orbit#✓fully proved
fktc_wired_density_eq_const for a set of edges contained in one orbit of a box symmetry.
lemma fktc_wired_density_eq_const_orbit (S : BoxSym d) (N n : ℕ) (hNn : N ≤ n)
(EB : Finset (Sym2 (boxVerts d N))) (eb₀ : Sym2 (boxVerts d N)) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(horb : ∀ eb ∈ EB, ∃ k : ℕ, eb = (Sym2.map (S.lift N))^[k] eb₀) :
(EB.card : ℝ) * wiredEdgeDensity d 2 (edgeIncl d N eb₀) p
≤ ∑ ω : ConfigSpace (Sym2 (boxVerts d n)),
dfi_openEdgeCount (EB.image (innerEdgeLE d hNn)) ω
* wiredFkProb (boxGraph d n) (boxBoundary d n) p 2 ω
structure BoxSym (d : ℕ) where
/-- The underlying permutation of the sites. -/
τ : Site d ≃ Site d
/-- `τ` preserves nearest-neighbour adjacency. -/
adj : ∀ x y, (hypercubicLattice d).Adj (τ x) (τ y) ↔ (hypercubicLattice d).Adj x y
/-- `τ` maps each centered box onto itself. -/
box_mem : ∀ n x, τ x ∈ box d n ↔ x ∈ box d n
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvariance.lean:277
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
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
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def dfi_openEdgeCount {V : Type*} [Fintype V] [DecidableEq V]
(E : Finset (Sym2 V)) (ω : ConfigSpace (Sym2 V)) : ℝ :=
∑ e ∈ E, (if ω e then (1 : ℝ) else 0)
PhyslibExt/StatisticalMechanics/RandomCluster/DensityFiniteToInfinite.lean:179
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
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
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
Uses 15
LemmaFree upper bound on expected open edges along a box-symmetry orbit#✓fully proved
fktc_free_density_eq_const for a set of edges contained in one orbit of a box symmetry.
lemma fktc_free_density_eq_const_orbit (S : BoxSym d) (N n : ℕ) (hNn : N ≤ n)
(EB : Finset (Sym2 (boxVerts d N))) (eb₀ : Sym2 (boxVerts d N)) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
(horb : ∀ eb ∈ EB, ∃ k : ℕ, eb = (Sym2.map (S.lift N))^[k] eb₀) :
(∑ ω : ConfigSpace (Sym2 (boxVerts d n)),
dfi_openEdgeCount (EB.image (innerEdgeLE d hNn)) ω
* fkProb (boxGraph d n) p 2 ω)
≤ (EB.card : ℝ) * freeEdgeDensity d 2 (edgeIncl d N eb₀) p
structure BoxSym (d : ℕ) where
/-- The underlying permutation of the sites. -/
τ : Site d ≃ Site d
/-- `τ` preserves nearest-neighbour adjacency. -/
adj : ∀ x y, (hypercubicLattice d).Adj (τ x) (τ y) ↔ (hypercubicLattice d).Adj x y
/-- `τ` maps each centered box onto itself. -/
box_mem : ∀ n x, τ x ∈ box d n ↔ x ∈ box d n
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvariance.lean:277
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def dfi_openEdgeCount {V : Type*} [Fintype V] [DecidableEq V]
(E : Finset (Sym2 V)) (ω : ConfigSpace (Sym2 V)) : ℝ :=
∑ e ∈ E, (if ω e then (1 : ℝ) else 0)
PhyslibExt/StatisticalMechanics/RandomCluster/DensityFiniteToInfinite.lean:179
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
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
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
Uses 14
DefinitionEvent that every edge of a finite set is open#✓fully proved
The event that every edge of s is open. Equal to fmu_multiOpen (see
ftb_fmu_eq_cdc_multiOpen).
def cdc_multiOpenEvent (s : Finset (Sym2 (Site d))) :
Set (ConfigSpace (Sym2 (Site d))) :=
{ω | ∀ e ∈ s, ω e = true}
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 2 · Used by 32
DefinitionContinuous monomial indicator that every edge of a set is open#✓fully proved
The continuous function ω ↦ ∏_{e ∈ s} ω(e), the indicator of cdc_multiOpenEvent s.
noncomputable def cdc_monomialCM (s : Finset (Sym2 (Site d))) :
C(ConfigSpace (Sym2 (Site d)), ℝ) :=
∏ e ∈ s, idc_coordCM e
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def idc_coordCM (e : Sym2 (Site d)) : C(ConfigSpace (Sym2 (Site d)), ℝ) :=
⟨fun ω => if ω e then (1 : ℝ) else 0,
(continuous_of_discreteTopology (f := fun b : Bool => if b then (1 : ℝ) else 0)).comp
(continuous_apply e)⟩
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeIndicatorShiftDecay.lean:79
Uses 3 · Used by 5
DefinitionMonomial indicator as a bounded continuous function#✓fully proved
cdc_monomialCM s as a bounded continuous function.
noncomputable def cdc_monomialBcf (s : Finset (Sym2 (Site d))) :
ConfigSpace (Sym2 (Site d)) →ᵇ ℝ :=
BoundedContinuousFunction.mkOfCompact (cdc_monomialCM s)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def cdc_monomialCM (s : Finset (Sym2 (Site d))) :
C(ConfigSpace (Sym2 (Site d)), ℝ) :=
∏ e ∈ s, idc_coordCM e
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvarianceFromHomogeneity.lean:125
Uses 3 · Used by 4
DefinitionEvent that every edge of a set of box edges is open, on a box#✓fully proved
The event that every edge of t ⊆ E(Λ_N) is open, on configurations of Λ_N.
def cdc_boxMultiOpenEvent (N : ℕ) (t : Finset (Sym2 (boxVerts d N))) :
Set (ConfigSpace (Sym2 (boxVerts d N))) :=
{σ | ∀ eb ∈ t, σ eb = true}
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
Uses 2 · Used by 14
DefinitionWired \(q = 2\) multi-edge homogeneity under a translation#✓fully proved
The wired q = 2 infinite-volume measure gives every multi-open event the same mass as its
translate by g⁻¹.
def cdc_wiredMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (cdc_multiOpenEvent s)
= (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
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
DefinitionFree \(q = 2\) multi-edge homogeneity under a translation#✓fully proved
The free q = 2 infinite-volume measure gives every multi-open event the same mass as its
translate by g⁻¹.
def cdc_freeMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
(freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (cdc_multiOpenEvent s)
= (freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
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
DefinitionSubmodule of functions with vanishing wired shift decay#✓fully proved
The continuous functions whose shift-decay functional along the wired box measures (on the
subsequence φ) tends to 0, as a submodule.
StatMech.FK.cdc_wiredDecaySet · 29 lines
noncomputable def cdc_wiredDecaySet {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) :
Submodule ℝ C(ConfigSpace (Sym2 (Site d)), ℝ) where
carrier := {h | Tendsto (isd_decayFun
(fun n => wiredFiniteMeasure d (φ n) hp hp1 (by norm_num : (0 : ℝ) < 2)) g
(BoundedContinuousFunction.mkOfCompact h)) atTop (𝓝 0)}
add_mem' {h h'} hh hh' := by
simp only [Set.mem_ofPred_eq] at hh hh' ⊢
have hsum := hh.add hh'
rw [add_zero] at hsum
refine hsum.congr (fun n => ?_)
rw [BoundedContinuousFunction.mkOfCompact_add, cdc_decayFun_add]
zero_mem' := by
simp only [Set.mem_ofPred_eq]
have hz : isd_decayFun
(fun n => wiredFiniteMeasure d (φ n) hp hp1 (by norm_num : (0 : ℝ) < 2)) g
(BoundedContinuousFunction.mkOfCompact (0 : C(ConfigSpace (Sym2 (Site d)), ℝ)))
= fun _ => (0 : ℝ) := by
funext n
rw [BoundedContinuousFunction.mkOfCompact_zero, cdc_decayFun_zero]
rw [hz]; exact tendsto_const_nhds
smul_mem' c h hh := by
simp only [Set.mem_ofPred_eq] at hh ⊢
have hsmul := hh.const_mul c
rw [mul_zero] at hsmul
refine hsmul.congr (fun n => ?_)
have hms : BoundedContinuousFunction.mkOfCompact (c • h)
= c • BoundedContinuousFunction.mkOfCompact h := rfl
rw [hms, cdc_decayFun_smul]
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
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
DefinitionSubmodule of functions with vanishing free shift decay#✓fully proved
The continuous functions whose shift-decay functional along the free box measures (on the
subsequence φ) tends to 0, as a submodule.
StatMech.FK.cdc_freeDecaySet · 29 lines
noncomputable def cdc_freeDecaySet {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) (φ : ℕ → ℕ) :
Submodule ℝ C(ConfigSpace (Sym2 (Site d)), ℝ) where
carrier := {h | Tendsto (isd_decayFun
(fun n => freeFiniteMeasure d (φ n) hp hp1 (by norm_num : (0 : ℝ) < 2)) g
(BoundedContinuousFunction.mkOfCompact h)) atTop (𝓝 0)}
add_mem' {h h'} hh hh' := by
simp only [Set.mem_ofPred_eq] at hh hh' ⊢
have hsum := hh.add hh'
rw [add_zero] at hsum
refine hsum.congr (fun n => ?_)
rw [BoundedContinuousFunction.mkOfCompact_add, cdc_decayFun_add]
zero_mem' := by
simp only [Set.mem_ofPred_eq]
have hz : isd_decayFun
(fun n => freeFiniteMeasure d (φ n) hp hp1 (by norm_num : (0 : ℝ) < 2)) g
(BoundedContinuousFunction.mkOfCompact (0 : C(ConfigSpace (Sym2 (Site d)), ℝ)))
= fun _ => (0 : ℝ) := by
funext n
rw [BoundedContinuousFunction.mkOfCompact_zero, cdc_decayFun_zero]
rw [hz]; exact tendsto_const_nhds
smul_mem' c h hh := by
simp only [Set.mem_ofPred_eq] at hh ⊢
have hsmul := hh.const_mul c
rw [mul_zero] at hsmul
refine hsmul.congr (fun n => ?_)
have hms : BoundedContinuousFunction.mkOfCompact (c • h)
= c • BoundedContinuousFunction.mkOfCompact h := rfl
rw [hms, cdc_decayFun_smul]
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev ConfigSpace (E : Type*) : Type _ := E → Bool
MathlibExt/Probability/Configuration/ConfigSpace.lean:40
noncomputable def isd_decayFun (μ : ℕ → ProbabilityMeasure (ConfigSpace (Sym2 (Site d))))
(g : Multiplicative (Site d)) (f : (ConfigSpace (Sym2 (Site d))) →ᵇ ℝ) (n : ℕ) : ℝ :=
(∫ x, f x ∂(μ n : Measure _)) - (∫ x, f (shift g x) ∂(μ n : Measure _))
PhyslibExt/StatisticalMechanics/RandomCluster/IntegralShiftDecay.lean:66
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
DefinitionDisjoint-box cap hypothesis for multi-open events#✓fully proved
For every finite family of finite edge sets and scale N, some translation g and margin r
realize each pair T, g⁻¹T' in Λ_{N+r} with g⁻¹T' outside a set F, such that the
conditional masses of O_T on fibres of F (with a boundary graph containing the wired one)
are at
most μ_N(O_T) and the box mass of g⁻¹O_{T'} is at most μ_N(O_{T'}).
StatMech.FK.dgf_DisjointBoxAnalyticCap · 19 lines
def dgf_DisjointBoxAnalyticCap {p : ℝ} (hp : 0 < p) (hp1 : p < 1) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
∃ (g : Multiplicative (Site d)) (r : ℕ), ∀ T ∈ P, ∀ T' ∈ P,
∃ (F tT tT' : Finset (Sym2 (boxVerts d (N + r))))
(C' : SimpleGraph (boxVerts d (N + r))) (_ : DecidableRel C'.Adj),
T = tT.image (edgeIncl d (N + r)) ∧
T'.image (fun e => g⁻¹ • e) = tT'.image (edgeIncl d (N + r)) ∧
(∀ e ∈ tT', e ∉ F) ∧
boundaryCliqueGraph (boxBoundary d (N + r)) ≤ C' ∧
(∀ ψ ∈ fibreReps F,
(∑ ρ, (cdc_boxMultiOpenEvent (N + r) tT).indicator (fun _ => (1 : ℝ)) ρ
* condBcProb (boxGraph d (N + r)) C' p 2 F ψ ρ)
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T)) ∧
((wiredFiniteMeasure d (N + r) hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(boxRestrict d (N + r) ⁻¹' (cdc_boxMultiOpenEvent (N + r) tT'))
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T'))
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 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 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 fibreReps (F : Finset (Sym2 V)) : Finset (ConfigSpace (Sym2 V)) :=
Finset.univ.filter (fun ψ => projOff F ψ = ψ)
PhyslibExt/StatisticalMechanics/RandomCluster/FKDisjointBoxDomainMarkov.lean:127
def cdc_boxMultiOpenEvent (N : ℕ) (t : Finset (Sym2 (boxVerts d N))) :
Set (ConfigSpace (Sym2 (boxVerts d N))) :=
{σ | ∀ eb ∈ t, σ eb = true}
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvarianceFromHomogeneity.lean:189
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
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 14
DefinitionEdge inclusion of a translated box into \(\mathbb{Z}^d\)#✓fully proved
The inclusion of edges of the translated box v + Λ_m into the edges of ℤ^d.
noncomputable def lmc_transEdgeIncl (d m : ℕ) (v : Site d) :
Sym2 (fvs_transBoxVerts d m v) → Sym2 (Site d) :=
Sym2.map (Subtype.val : fvs_transBoxVerts d m v → Site d)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
abbrev fvs_transBoxVerts (d m : ℕ) (v : Site d) : Type :=
{y : Site d // y ∈ fvs_transBox d m v}
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:307
Uses 3 · Used by 5
LemmaTranslated box edges are shifted centered box edges#✓fully proved
Including a translated box edge equals shifting the included centered box edge by v.
lemma lmc_transEdgeIncl_sigma_eq_smul (d m : ℕ) (v : Site d) (eb : Sym2 (boxVerts d m)) :
lmc_transEdgeIncl d m v (Sym2.map (fvs_transEquiv d m v) eb)
= (Multiplicative.ofAdd v) • (edgeIncl d m eb)
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
noncomputable def lmc_transEdgeIncl (d m : ℕ) (v : Site d) :
Sym2 (fvs_transBoxVerts d m v) → Sym2 (Site d) :=
Sym2.map (Subtype.val : fvs_transBoxVerts d m v → Site d)
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:80
noncomputable def fvs_transEquiv (d m : ℕ) (v : Site d) :
boxVerts d m ≃ fvs_transBoxVerts d m v where
toFun := fun x => ⟨(x : Site d) + v, by
change ((x : Site d) + v - v) ∈ box d m
rw [add_sub_cancel_right]; exact x.2⟩
invFun := fun y => ⟨(y : Site d) - v, y.2⟩
left_inv := by intro x; apply Subtype.ext; simp
right_inv := by intro y; apply Subtype.ext; simp
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:311
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
LemmaImages of translated edge sets are shifted images#✓fully proved
The image of a translated edge set in ℤ^d is the shift by v of the image of the centered
set.
lemma lmc_transImage_eq_smulImage (d m : ℕ) (v : Site d) (t : Finset (Sym2 (boxVerts d m))) :
(t.image (Sym2.map (fvs_transEquiv d m v))).image (lmc_transEdgeIncl d m v)
= (t.image (edgeIncl d m)).image (fun e => (Multiplicative.ofAdd v) • e)
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
noncomputable def fvs_transEquiv (d m : ℕ) (v : Site d) :
boxVerts d m ≃ fvs_transBoxVerts d m v where
toFun := fun x => ⟨(x : Site d) + v, by
change ((x : Site d) + v - v) ∈ box d m
rw [add_sub_cancel_right]; exact x.2⟩
invFun := fun y => ⟨(y : Site d) - v, y.2⟩
left_inv := by intro x; apply Subtype.ext; simp
right_inv := by intro y; apply Subtype.ext; simp
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:311
noncomputable def lmc_transEdgeIncl (d m : ℕ) (v : Site d) :
Sym2 (fvs_transBoxVerts d m v) → Sym2 (Site d) :=
Sym2.map (Subtype.val : fvs_transBoxVerts d m v → Site d)
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:80
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
Uses 8 · Used by 3
DefinitionWired all-open probability on a translated box#✓fully proved
The probability, under the wired q = 2 FK measure on the translated box v + Λ_m, that all
edges of the translated copy of t ⊆ E(Λ_N) are open.
noncomputable def lmc_transBoxMass (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb
(wiredFkProb (fvs_transBoxGraph d m v) (fvs_transBoxBoundary d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
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
noncomputable def med_multiMassProb (μ : ConfigSpace (Sym2 V) → ℝ) (t : Finset (Sym2 V)) : ℝ :=
∑ ω : ConfigSpace (Sym2 V),
(med_genericMultiOpenEvent t).indicator (fun _ => (1 : ℝ)) ω * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/MultiEdgeDecay.lean:115
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
def fvs_transBoxGraph (d m : ℕ) (v : Site d) : SimpleGraph (fvs_transBoxVerts d m v) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:334
def fvs_transBoxBoundary (d m : ℕ) (v : Site d) (y : fvs_transBoxVerts d m v) : Prop :=
((y : Site d) - v) ∈ vertexBoundary d m
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:343
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
noncomputable def fvs_transEquiv (d m : ℕ) (v : Site d) :
boxVerts d m ≃ fvs_transBoxVerts d m v where
toFun := fun x => ⟨(x : Site d) + v, by
change ((x : Site d) + v - v) ∈ box d m
rw [add_sub_cancel_right]; exact x.2⟩
invFun := fun y => ⟨(y : Site d) - v, y.2⟩
left_inv := by intro x; apply Subtype.ext; simp
right_inv := by intro y; apply Subtype.ext; simp
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:311
Uses 11 · Used by 9
LemmaTranslated wired box mass equals the centered box mass#✓fully proved
The translated wired box mass equals the probability of the unshifted event under the wired
finite-volume measure on the centered box Λ_m.
lemma lmc_transBoxMass_eq_centred (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1) (m : ℕ) (hNm : N ≤ m) :
lmc_transBoxMass v N t p m hNm
= (wiredFiniteMeasure d m hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))
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
noncomputable def lmc_transBoxMass (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb
(wiredFkProb (fvs_transBoxGraph d m v) (fvs_transBoxBoundary d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:116
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 21 · Used by 2
LemmaTranslated wired box masses converge to the infinite-volume mass#✓fully proved
The translated wired box masses converge to the wired infinite-volume probability that all
edges of t are open.
lemma lmc_transBoxMass_tendsto_centred_iv (v : Site d) (N : ℕ)
(t : Finset (Sym2 (boxVerts d N))) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
Tendsto (fun m : ℕ => lmc_transBoxMass v N t p (N + m) (Nat.le_add_right N m)) atTop
(𝓝 ((wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))))
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
noncomputable def lmc_transBoxMass (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb
(wiredFkProb (fvs_transBoxGraph d m v) (fvs_transBoxBoundary d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:116
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
Uses 10 · Used by 3
LemmaWired shift invariance of an all-open event from matching limits#✓fully proved
If the translated wired box masses also converge to the wired infinite-volume probability of
the shifted set v + t, the wired infinite-volume measure gives t and v + t the same
probability.
StatMech.FK.lmc_wiredMultiHomogeneous_of_cofinal · 15 lines
lemma lmc_wiredMultiHomogeneous_of_cofinal (v : Site d) (N : ℕ)
(t : Finset (Sym2 (boxVerts d N))) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hcofinal : Tendsto (fun m : ℕ => lmc_transBoxMass v N t p (N + m) (Nat.le_add_right N m))
atTop
(𝓝 ((wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent
((t.image (edgeIncl d N)).image (fun e => (Multiplicative.ofAdd v) • e)))))) :
(wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))
= (wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent
((t.image (edgeIncl d N)).image (fun e => (Multiplicative.ofAdd v) • e)))
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
noncomputable def lmc_transBoxMass (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb
(wiredFkProb (fvs_transBoxGraph d m v) (fvs_transBoxBoundary d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:116
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
Uses 8 · Used by 1
LemmaWired shift invariance of an all-open event from decaying differences#✓fully proved
If the translated wired box masses differ from the centered box masses of a set t' with v +
t = t' by a sequence tending to zero, the wired infinite-volume measure gives t and v + t
the same probability.
StatMech.FK.lmc_wiredMultiHomogeneous_of_decay · 17 lines
lemma lmc_wiredMultiHomogeneous_of_decay (v : Site d) (N N' : ℕ)
(t : Finset (Sym2 (boxVerts d N))) (t' : Finset (Sym2 (boxVerts d N')))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hst' : (t.image (edgeIncl d N)).image (fun e => (Multiplicative.ofAdd v) • e)
= t'.image (edgeIncl d N'))
(hdecay : Tendsto
(fun m : ℕ => lmc_transBoxMass v N t p (N + m) (Nat.le_add_right N m)
- (wiredFiniteMeasure d (N' + m) hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t'.image (edgeIncl d N')))) atTop (𝓝 0)) :
(wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))
= (wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent
((t.image (edgeIncl d N)).image (fun e => (Multiplicative.ofAdd v) • e)))
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 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
noncomputable def lmc_transBoxMass (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb
(wiredFkProb (fvs_transBoxGraph d m v) (fvs_transBoxBoundary d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:116
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 10
DefinitionWired placement hypothesis for a shift#✓fully proved
The placement hypothesis for the shift g: every finite edge set lies in a box whose
translated wired box masses converge to the wired infinite-volume probability of the set
shifted by g⁻¹.
def lmc_wiredPlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMass (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
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 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
noncomputable def lmc_transBoxMass (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb
(wiredFkProb (fvs_transBoxGraph d m v) (fvs_transBoxBoundary d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:116
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
Uses 7 · Used by 4
LemmaWired placement gives shift homogeneity on all-open events#✓fully proved
The placement hypothesis for g gives g-homogeneity of the wired infinite-volume measure on
all events "every edge of s is open".
lemma lmc_wiredMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) (hplace : lmc_wiredPlacement hp hp1 g) :
cdc_wiredMultiHomogeneous hp hp1 g
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def lmc_wiredPlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMass (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:208
def cdc_wiredMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (cdc_multiOpenEvent s)
= (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvarianceFromHomogeneity.lean:273
Uses 10 · Used by 2
LemmaIdentity shift satisfies the wired placement hypothesis#✓fully proved
The identity shift satisfies the wired placement hypothesis.
lemma lmc_wiredPlacement_one {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
lmc_wiredPlacement hp hp1 (1 : Multiplicative (Site d))
def lmc_wiredPlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMass (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:208
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
Uses 10 · Used by 1
LemmaWired infinite-volume measure is homogeneous under the identity shift#✓fully proved
The wired infinite-volume measure is homogeneous under the identity shift.
lemma lmc_wiredMultiHomogeneous_one {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
cdc_wiredMultiHomogeneous hp hp1 (1 : Multiplicative (Site d))
def cdc_wiredMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (cdc_multiOpenEvent s)
= (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvarianceFromHomogeneity.lean:273
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
LemmaWired translation invariance from the placement hypothesis#✓fully proved
The wired q = 2 infinite-volume FK measure on ℤ^d is translation invariant if every shift
satisfies the wired placement hypothesis.
lemma lmc_wiredIV_isTranslationInvariant_of_placement {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hplace : ∀ g : Multiplicative (Site d), lmc_wiredPlacement hp hp1 g) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def lmc_wiredPlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMass (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((wiredInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:208
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
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
Uses 27 · Used by 1
DefinitionTranslated free box mass of an edge set#✓fully proved
The probability, under the free q = 2 FK measure on the translated box v + Λ_m, that all
edges of the translated copy of t ⊆ E(Λ_N) are open.
noncomputable def lmc_transBoxMassFree (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb (fkProb (fvs_transBoxGraph d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
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
noncomputable def med_multiMassProb (μ : ConfigSpace (Sym2 V) → ℝ) (t : Finset (Sym2 V)) : ℝ :=
∑ ω : ConfigSpace (Sym2 V),
(med_genericMultiOpenEvent t).indicator (fun _ => (1 : ℝ)) ω * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/MultiEdgeDecay.lean:115
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
def fvs_transBoxGraph (d m : ℕ) (v : Site d) : SimpleGraph (fvs_transBoxVerts d m v) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:334
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
noncomputable def fvs_transEquiv (d m : ℕ) (v : Site d) :
boxVerts d m ≃ fvs_transBoxVerts d m v where
toFun := fun x => ⟨(x : Site d) + v, by
change ((x : Site d) + v - v) ∈ box d m
rw [add_sub_cancel_right]; exact x.2⟩
invFun := fun y => ⟨(y : Site d) - v, y.2⟩
left_inv := by intro x; apply Subtype.ext; simp
right_inv := by intro y; apply Subtype.ext; simp
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:311
Uses 10 · Used by 7
LemmaTranslated free box mass equals the centred box probability#✓fully proved
The translated free box mass equals the probability of the unshifted event under the free
finite-volume measure on the centered box Λ_m.
lemma lmc_transBoxMassFree_eq_centred (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1) (m : ℕ) (hNm : N ≤ m) :
lmc_transBoxMassFree v N t p m hNm
= (freeFiniteMeasure d m hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))
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
noncomputable def lmc_transBoxMassFree (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb (fkProb (fvs_transBoxGraph d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:264
noncomputable def freeFiniteMeasure (d n : ℕ) {p q : ℝ}
(hp : 0 < p) (hp1 : p < 1) (hq : 0 < q) :
ProbabilityMeasure (ConfigSpace (Sym2 (Site d))) :=
⟨((fkPMF (boxGraph d n) hp hp1 hq).toMeasure).map (extendEdge d n),
inferInstance⟩
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:179
Uses 19 · Used by 1
LemmaTranslated free box masses converge to the free infinite-volume value#✓fully proved
The translated free box masses converge to the free infinite-volume probability that all edges
of t are open.
lemma lmc_transBoxMassFree_tendsto_centred_iv (v : Site d) (N : ℕ)
(t : Finset (Sym2 (boxVerts d N))) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
Tendsto (fun m : ℕ => lmc_transBoxMassFree v N t p (N + m) (Nat.le_add_right N m)) atTop
(𝓝 ((freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))))
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
noncomputable def lmc_transBoxMassFree (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb (fkProb (fvs_transBoxGraph d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:264
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
Uses 10 · Used by 2
LemmaEqual free probabilities for \(t\) and \(v + t\) from matching box limits#✓fully proved
If the translated free box masses also converge to the free infinite-volume probability of the
shifted set v + t, the free infinite-volume measure gives t and v + t the same
probability.
StatMech.FK.lmc_freeMultiHomogeneous_of_cofinal · 15 lines
lemma lmc_freeMultiHomogeneous_of_cofinal (v : Site d) (N : ℕ)
(t : Finset (Sym2 (boxVerts d N))) {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hcofinal : Tendsto (fun m : ℕ => lmc_transBoxMassFree v N t p (N + m) (Nat.le_add_right N m))
atTop
(𝓝 ((freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent
((t.image (edgeIncl d N)).image (fun e => (Multiplicative.ofAdd v) • e)))))) :
(freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (t.image (edgeIncl d N)))
= (freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent
((t.image (edgeIncl d N)).image (fun e => (Multiplicative.ofAdd v) • e)))
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
noncomputable def lmc_transBoxMassFree (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb (fkProb (fvs_transBoxGraph d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:264
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
Uses 8 · Used by 1
DefinitionFree placement hypothesis for a shift via box-mass limits#✓fully proved
The placement hypothesis for the shift g and the free measure: every finite edge set lies in
a box whose translated free box masses converge to the free infinite-volume probability of the
set shifted by g⁻¹.
def lmc_freePlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMassFree (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
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 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
noncomputable def lmc_transBoxMassFree (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(p : ℝ) (m : ℕ) (hNm : N ≤ m) : ℝ :=
med_multiMassProb (fkProb (fvs_transBoxGraph d m v) p 2)
((t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v)))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:264
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
Uses 7 · Used by 4
LemmaFree placement gives shift homogeneity on all-open events#✓fully proved
The free placement hypothesis for g gives g-homogeneity of the free infinite-volume
measure on all events "every edge of s is open".
lemma lmc_freeMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) (hplace : lmc_freePlacement hp hp1 g) :
cdc_freeMultiHomogeneous hp hp1 g
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def lmc_freePlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMassFree (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:318
def cdc_freeMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
(freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (cdc_multiOpenEvent s)
= (freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvarianceFromHomogeneity.lean:285
Uses 10 · Used by 2
LemmaIdentity shift satisfies the free placement hypothesis#✓fully proved
The identity shift satisfies the free placement hypothesis.
lemma lmc_freePlacement_one {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
lmc_freePlacement hp hp1 (1 : Multiplicative (Site d))
def lmc_freePlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMassFree (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:318
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
Uses 10 · Used by 1
LemmaFree infinite-volume measure is homogeneous under the identity shift#✓fully proved
The free infinite-volume measure is homogeneous under the identity shift.
lemma lmc_freeMultiHomogeneous_one {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
cdc_freeMultiHomogeneous hp hp1 (1 : Multiplicative (Site d))
def cdc_freeMultiHomogeneous {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
(freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (cdc_multiOpenEvent s)
= (freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))
PhyslibExt/StatisticalMechanics/RandomCluster/TranslationInvarianceFromHomogeneity.lean:285
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
LemmaFree translation invariance from the placement hypothesis#✓fully proved
The free q = 2 infinite-volume FK measure on ℤ^d is translation invariant if every shift
satisfies the free placement hypothesis.
lemma lmc_freeIV_isTranslationInvariant_of_placement {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hplace : ∀ g : Multiplicative (Site d), lmc_freePlacement hp hp1 g) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def lmc_freePlacement {p : ℝ} (hp : 0 < p) (hp1 : p < 1) (g : Multiplicative (Site d)) : Prop :=
∀ s : Finset (Sym2 (Site d)),
∃ (N : ℕ) (t : Finset (Sym2 (boxVerts d N))),
s = t.image (edgeIncl d N)
∧ Tendsto
(fun m : ℕ => lmc_transBoxMassFree (Multiplicative.toAdd g⁻¹) N t p (N + m)
(Nat.le_add_right N m)) atTop
(𝓝 ((freeInfiniteVolume d hp hp1 (by norm_num : (0:ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(cdc_multiOpenEvent (s.image (fun e => g⁻¹ • e)))))
PhyslibExt/StatisticalMechanics/RandomCluster/LimitCommutation.lean:318
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
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
Uses 27 · Used by 1
DefinitionSup norm of a site of \(\mathbb{Z}^d\)#✓fully proved
The sup-norm max_i |v_i| of a site v.
def flc_vrad (v : Site d) : ℕ := Finset.univ.sup (fun i => (v i).natAbs)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
Uses 1 · Used by 6
DefinitionInclusion of a subset of sites into a larger one#✓fully proved
The inclusion of a subset of sites into a larger one, as a map of subtypes.
def flc_incl {Sin Sout : Set (Site d)} (hsub : Sin ⊆ Sout) (x : {y : Site d // y ∈ Sin}) :
{y : Site d // y ∈ Sout} :=
⟨(x : Site d), hsub x.2⟩
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
Uses 1 · Used by 6
DefinitionBox edge set included into \(\Lambda_m\) and translated by \(v\)#✓fully proved
The edge set t of Λ_N, included into Λ_m and translated by v.
noncomputable def flc_transEdges (v : Site d) (N : ℕ) (t : Finset (Sym2 (boxVerts d N)))
(m : ℕ) (hNm : N ≤ m) : Finset (Sym2 (fvs_transBoxVerts d m v)) :=
(t.image (innerEdgeLE d hNm)).image (Sym2.map (fvs_transEquiv d m v))
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
abbrev fvs_transBoxVerts (d m : ℕ) (v : Site d) : Type :=
{y : Site d // y ∈ fvs_transBox d m v}
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:307
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
noncomputable def fvs_transEquiv (d m : ℕ) (v : Site d) :
boxVerts d m ≃ fvs_transBoxVerts d m v where
toFun := fun x => ⟨(x : Site d) + v, by
change ((x : Site d) + v - v) ∈ box d m
rw [add_sub_cancel_right]; exact x.2⟩
invFun := fun y => ⟨(y : Site d) - v, y.2⟩
left_inv := by intro x; apply Subtype.ext; simp
right_inv := by intro y; apply Subtype.ext; simp
PhyslibExt/StatisticalMechanics/RandomCluster/FiniteVolumeShift.lean:311
Uses 7 · Used by 3
TheoremTranslation invariance of the wired \(q = 2\) infinite-volume measure#✓fully proved
The wired q = 2 infinite-volume random-cluster measure on ℤ^d is translation invariant.
theorem flc_wiredIV_isTranslationInvariant {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
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
Uses 34 · Used by 2
LemmaDomain monotonicity of wired \(q = 2\) box measures#✓fully proved
For q = 2 and N ≤ m, the wired Λ_m measure of an increasing Λ_N cylinder event is at
most its wired Λ_N measure.
lemma fwm_wired_box_domain_monotone (N m : ℕ) (hNm : N ≤ m) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1)
{S : Set (ConfigSpace (Sym2 (boxVerts d N)))} (hS : IsIncreasing S) :
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S)
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (boxRestrict d N ⁻¹' S)
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 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
LemmaDomain monotonicity of wired multi-open probabilities#✓fully proved
For q = 2 and N ≤ m, the wired Λ_m probability that a set of Λ_N edges is open is at
most its wired Λ_N probability.
lemma fwm_wired_multiOpen_domain_monotone (N m : ℕ) (hNm : N ≤ m)
(t : Finset (Sym2 (boxVerts d N))) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(fmu_multiOpen (t.image (edgeIncl d N)))
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(fmu_multiOpen (t.image (edgeIncl d N)))
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
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 1
LemmaDomain monotonicity for edge sets realized in a box#✓fully proved
The same for an edge set of ℤ^d given as the image of Λ_N edges.
lemma fwm_wired_domain_monotone_of_realised {N m : ℕ} (hNm : N ≤ m)
{s : Finset (Sym2 (Site d))} (t : Finset (Sym2 (boxVerts d N)))
(hst : s = t.image (edgeIncl d N)) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen s)
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen s)
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 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
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
LemmaDomain monotonicity for translated pairs of multi-open events#✓fully proved
The same for the event "T open and g·T' open", when T ∪ g⁻¹·T' lies in Λ_N.
StatMech.FK.fwm_wired_cross_le_box_domain · 15 lines
lemma fwm_wired_cross_le_box_domain {N m : ℕ} (hNm : N ≤ m)
(g : Multiplicative (Site d)) (T T' : Finset (Sym2 (Site d)))
{t : Finset (Sym2 (boxVerts d N))}
(hreal : T ∪ T'.image (fun e => g⁻¹ • e) = t.image (edgeIncl d N))
{p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
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 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
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 8 · Used by 1
DefinitionDisjoint-box factorization bound for box measures#✓fully proved
The disjoint-box factorization bound for a family of box measures μbox: for every finite
family P of edge sets realized in Λ_N there are a translation g and r such that each
T ∪ g⁻¹·T' lies in Λ_(N+r) and μbox (N+r) (T open, g·T' open) ≤ μbox N (T open) ·
μbox N (T' open). The parameters p only index the family.
def fwm_WiredDisjointBoxFactorise {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
(∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)) →
∃ (g : Multiplicative (Site d)) (r : ℕ), ∀ T ∈ P, ∀ T' ∈ P,
(∃ t : Finset (Sym2 (boxVerts d (N + r))),
T ∪ T'.image (fun e => g⁻¹ • e) = t.image (edgeIncl d (N + r)))
∧ (μbox (N + r)).real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox N).real (fmu_multiOpen T) * (μbox N).real (fmu_multiOpen T')
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 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 fmu_multiOpen (T : Finset E) : Set (ConfigSpace E) := {ω | ∀ e ∈ T, ω e = true}
PhyslibExt/StatisticalMechanics/RandomCluster/ErgodicOfUpperDecay.lean:70
def shift (g : G) (ω : ConfigSpace E) : ConfigSpace E := fun e => ω (g⁻¹ • e)
MathlibExt/Probability/Configuration/Ergodicity.lean:54
Uses 6 · Used by 5
LemmaFinite-box product domination from the factorization bound#✓fully proved
Under the factorization bound for the wired measures, for some translation g and all large
m, φ¹_{Λ_m}(T open, g·T' open) ≤ φ¹_{Λ_N}(T open) φ¹_{Λ_N}(T' open) for all T, T' ∈ P.
StatMech.FK.fwm_finiteBoxDisjointProductDom_conclusion_of_factorise · 16 lines
lemma fwm_finiteBoxDisjointProductDom_conclusion_of_factorise {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hfac : fwm_WiredDisjointBoxFactorise hp hp1
(fun m => (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))))
(P : Finset (Finset (Sym2 (Site d)))) (N : ℕ)
(hreal : ∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)) :
∃ g : Multiplicative (Site d), ∀ᶠ m in atTop, ∀ T ∈ P, ∀ T' ∈ P,
(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real
(fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T)
* (wiredFiniteMeasure d N hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T')
def fwm_WiredDisjointBoxFactorise {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
(∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)) →
∃ (g : Multiplicative (Site d)) (r : ℕ), ∀ T ∈ P, ∀ T' ∈ P,
(∃ t : Finset (Sym2 (boxVerts d (N + r))),
T ∪ T'.image (fun e => g⁻¹ • e) = t.image (edgeIncl d (N + r)))
∧ (μbox (N + r)).real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox N).real (fmu_multiOpen T) * (μbox N).real (fmu_multiOpen T')
PhyslibExt/StatisticalMechanics/RandomCluster/FKWiredDomainMonotone.lean:133
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 9 · Used by 1
LemmaRealized edge sets stay realized in larger boxes#✓fully proved
An edge set realized in Λ_(N₀) is realized in every larger box.
lemma fwm_realised_box_mono {N₀ N : ℕ} (h : N₀ ≤ N) {s : Finset (Sym2 (Site d))}
{t : Finset (Sym2 (boxVerts d N₀))} (hst : s = t.image (edgeIncl d N₀)) :
s = (t.image (innerEdgeLE d h)).image (edgeIncl d N)
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 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
LemmaEvery finite family of edge sets is realized in some box#✓fully proved
Every finite family of finite edge sets is realized in some box.
lemma fwm_exists_realising_box (P : Finset (Finset (Sym2 (Site d)))) :
∃ N : ℕ, ∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)
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 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
Uses 4 · Used by 1
LemmaWired box products approximate infinite-volume products#✓fully proved
For q = 2, products of wired box probabilities of open-edge events approximate the wired
infinite-volume products within δ, for some box Λ_m with m ≥ N₀.
lemma fwm_exists_common_box_ge_wired (P : Finset (Finset (Sym2 (Site d)))) (N₀ : ℕ)
{p : ℝ} (hp : 0 < p) (hp1 : p < 1) {δ : ℝ} (hδ : 0 < δ) :
∃ m : ℕ, N₀ ≤ m ∧ ∀ T ∈ P, ∀ T' ∈ P,
|(wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T)
* (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T')
- (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T)
* (wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))).real (fmu_multiOpen T')| < δ
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
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 13 · Used by 1
LemmaUpper decorrelation of the wired measure from factorization#✓fully proved
The factorization bound for the wired q = 2 box measures gives upper decorrelation of the
wired infinite-volume measure.
lemma fwm_upperDecay_of_factorise {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hfac : fwm_WiredDisjointBoxFactorise hp hp1
(fun m => (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))))) :
fmu_UpperDecay (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
def fwm_WiredDisjointBoxFactorise {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
(∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)) →
∃ (g : Multiplicative (Site d)) (r : ℕ), ∀ T ∈ P, ∀ T' ∈ P,
(∃ t : Finset (Sym2 (boxVerts d (N + r))),
T ∪ T'.image (fun e => g⁻¹ • e) = t.image (edgeIncl d (N + r)))
∧ (μbox (N + r)).real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox N).real (fmu_multiOpen T) * (μbox N).real (fmu_multiOpen T')
PhyslibExt/StatisticalMechanics/RandomCluster/FKWiredDomainMonotone.lean:133
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 22 · Used by 1
LemmaWired \(q = 2\) measure is ergodic under the factorization bound#✓fully proved
If the wired q = 2 box measures satisfy the factorization bound, the wired infinite-volume measure is ergodic under translations of ℤ^d.
lemma fwm_wiredIV_isErgodic_of_factorise {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
(hfac : fwm_WiredDisjointBoxFactorise hp hp1
(fun m => (wiredFiniteMeasure d m hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d)))))) :
IsErgodic (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
def fwm_WiredDisjointBoxFactorise {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
(∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)) →
∃ (g : Multiplicative (Site d)) (r : ℕ), ∀ T ∈ P, ∀ T' ∈ P,
(∃ t : Finset (Sym2 (boxVerts d (N + r))),
T ∪ T'.image (fun e => g⁻¹ • e) = t.image (edgeIncl d (N + r)))
∧ (μbox (N + r)).real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox N).real (fmu_multiOpen T) * (μbox N).real (fmu_multiOpen T')
PhyslibExt/StatisticalMechanics/RandomCluster/FKWiredDomainMonotone.lean:133
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 27 · Used by 1
LemmaAll-open Dirac mass satisfies the factorization bound#✓fully proved
The factorization bound is satisfiable: the Dirac mass on the all-open configuration satisfies it.
lemma fwm_wiredDisjointBoxFactorise_dirac {p : ℝ} (hp : 0 < p) (hp1 : p < 1)
[MeasurableSingletonClass (ConfigSpace (Sym2 (Site d)))] :
fwm_WiredDisjointBoxFactorise hp hp1
(fun _ => (Measure.dirac (fun _ : Sym2 (Site d) => true)))
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 fwm_WiredDisjointBoxFactorise {p : ℝ} (_hp : 0 < p) (_hp1 : p < 1)
(μbox : ℕ → Measure (ConfigSpace (Sym2 (Site d)))) : Prop :=
∀ (P : Finset (Finset (Sym2 (Site d)))) (N : ℕ),
(∀ T ∈ P, ∃ t : Finset (Sym2 (boxVerts d N)), T = t.image (edgeIncl d N)) →
∃ (g : Multiplicative (Site d)) (r : ℕ), ∀ T ∈ P, ∀ T' ∈ P,
(∃ t : Finset (Sym2 (boxVerts d (N + r))),
T ∪ T'.image (fun e => g⁻¹ • e) = t.image (edgeIncl d (N + r)))
∧ (μbox (N + r)).real (fmu_multiOpen T ∩
(shift g : ConfigSpace (Sym2 (Site d)) → ConfigSpace (Sym2 (Site d)))
⁻¹' fmu_multiOpen T')
≤ (μbox N).real (fmu_multiOpen T) * (μbox N).real (fmu_multiOpen T')
PhyslibExt/StatisticalMechanics/RandomCluster/FKWiredDomainMonotone.lean:133
Uses 10
DefinitionEmpty boundary predicate#✓fully proved
The empty boundary predicate.
def bdp_noBdry (_v : Vout) : Prop := False
TheoremTranslation invariance of the free \(q = 2\) infinite-volume measure#✓fully proved
The free q = 2 infinite-volume random-cluster measure on ℤ^d is translation invariant.
theorem bdp_freeIV_isTranslationInvariant {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
ConfigSpace.IsTranslationInvariant (G := Multiplicative (Site d))
(freeInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
def IsTranslationInvariant (μ : Measure (ConfigSpace E)) : Prop :=
∀ g : G, MeasureTheory.MeasurePreserving (shift g : ConfigSpace E → ConfigSpace E) μ μ
MathlibExt/Probability/Configuration/Ergodicity.lean:89
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
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
Uses 59 · Used by 1
LemmaFree \(q = 2\) box edge marginals are at most the free density#✓fully proved
Edge marginals of the free box measure are at most the free infinite-volume density (the case
N = n of dfi_free_per_edge_le).
lemma bdp_free_per_edge_upper (n : ℕ) (e : Sym2 (boxVerts d n)) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) :
edgeMargProb (fkProb (boxGraph d n) p 2) e
≤ freeEdgeDensity d 2 (edgeIncl d n e) p
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
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
Uses 23 · Used by 1
LemmaWired \(q = 2\) box edge marginals are at least the wired density#✓fully proved
Edge marginals of the wired box measure are at least the wired infinite-volume density (the
case
N = n of dfi_wired_per_edge_ge).
lemma bdp_wired_per_edge_lower (n : ℕ) (e : Sym2 (boxVerts d n)) {p : ℝ}
(hp : 0 < p) (hp1 : p < 1) :
wiredEdgeDensity d 2 (edgeIncl d n e) p
≤ edgeMargProb (wiredFkProb (boxGraph d n) (boxBoundary d n) p 2) e
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
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
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
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
Uses 23 · Used by 1
DefinitionFree off-centre sandwich hypothesis#✓fully proved
For every edge e' of Λ_N and every t, there are interior edge sets I_n of Λ_n
carrying
asymptotically all edges on which the free density equals that of e' and the free box
marginals
are at least that density minus δ_n → 0.
def bdp_FreeOffCentreSandwich (N : ℕ) : Prop :=
∀ (e' : Sym2 (boxVerts d N)) (t : ℝ),
∃ (In : (n : ℕ) → Finset (Sym2 (boxVerts d n))) (δ : ℕ → ℝ),
(∀ n, In n ⊆ (boxGraph d n).edgeFinset) ∧
(∀ n, 0 ≤ δ n) ∧ Tendsto δ atTop (𝓝 0) ∧
(∀ n, ∀ e ∈ In n,
freeEdgeDensity d 2 (edgeIncl d n e) (fsc_logistic t)
= freeEdgeDensity d 2 (edgeIncl d N e') (fsc_logistic t)) ∧
(∀ n, ∀ e ∈ In n,
freeEdgeDensity d 2 (edgeIncl d N e') (fsc_logistic t) - δ n
≤ edgeMargProb (fkProb (boxGraph d n) (fsc_logistic t) 2) e) ∧
Tendsto (fun n =>
(((boxGraph d n).edgeFinset.card - (In n).card : ℝ)) / (boxGraph d n).edgeFinset.card)
atTop (𝓝 0)
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
noncomputable def freeEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(freeInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:136
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
noncomputable def fsc_logistic (t : ℝ) : ℝ := Real.exp t / (1 + Real.exp t)
PhyslibExt/StatisticalMechanics/RandomCluster/LogitFreeEnergyComparison.lean:76
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def fkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
fkWeight G p q ω / fkZ G p q
PhyslibExt/StatisticalMechanics/RandomCluster/RandomCluster.lean:172
Uses 9 · Used by 1
DefinitionWired off-centre sandwich hypothesis#✓fully proved
For every edge e' of Λ_N and every t, there are interior edge sets I_n of Λ_n
carrying
asymptotically all edges on which the wired density equals that of e' and the wired box
marginals
are at most that density plus δ_n → 0.
def bdp_WiredOffCentreSandwich (N : ℕ) : Prop :=
∀ (e' : Sym2 (boxVerts d N)) (t : ℝ),
∃ (In : (n : ℕ) → Finset (Sym2 (boxVerts d n))) (δ : ℕ → ℝ),
(∀ n, In n ⊆ (boxGraph d n).edgeFinset) ∧
(∀ n, 0 ≤ δ n) ∧ Tendsto δ atTop (𝓝 0) ∧
(∀ n, ∀ e ∈ In n,
wiredEdgeDensity d 2 (edgeIncl d n e) (fsc_logistic t)
= wiredEdgeDensity d 2 (edgeIncl d N e') (fsc_logistic t)) ∧
(∀ n, ∀ e ∈ In n,
edgeMargProb (wiredFkProb (boxGraph d n) (boxBoundary d n) (fsc_logistic t) 2) e
≤ wiredEdgeDensity d 2 (edgeIncl d N e') (fsc_logistic t) + δ n) ∧
Tendsto (fun n =>
(((boxGraph d n).edgeFinset.card - (In n).card : ℝ)) / (boxGraph d n).edgeFinset.card)
atTop (𝓝 0)
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
def boxGraph (d n : ℕ) : SimpleGraph (boxVerts d n) :=
SimpleGraph.comap Subtype.val (hypercubicLattice d)
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:142
noncomputable def wiredEdgeDensity (d : ℕ) (q : ℝ) (e : Sym2 (Site d)) (p : ℝ) : ℝ :=
if h : 0 < p ∧ p < 1 ∧ 0 < q then
(wiredInfiniteVolume d h.1 h.2.1 h.2.2 : Measure (ConfigSpace (Sym2 (Site d)))).real
(fkEdgeOpenEvent e)
else 0
PhyslibExt/StatisticalMechanics/RandomCluster/UniquenessOffCountable.lean:127
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
noncomputable def fsc_logistic (t : ℝ) : ℝ := Real.exp t / (1 + Real.exp t)
PhyslibExt/StatisticalMechanics/RandomCluster/LogitFreeEnergyComparison.lean:76
noncomputable def edgeMargProb (μ : ConfigSpace E → ℝ) (e : E) : ℝ :=
∑ ω : ConfigSpace E, (if ω e then (1 : ℝ) else 0) * μ ω
PhyslibExt/StatisticalMechanics/RandomCluster/EdgeMarginal.lean:59
noncomputable def wiredFkProb (p q : ℝ) (ω : ConfigSpace (Sym2 V)) : ℝ :=
wiredFkWeight G bdry p q ω / wiredFkZ G bdry p q
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:105
def boxBoundary (d n : ℕ) (x : boxVerts d n) : Prop := (x : Site d) ∈ vertexBoundary d n
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:151
Uses 10 · Used by 1
DefinitionShift vector moving \(\Lambda_N\) to a disjoint box#✓fully proved
The vector (2N + 1) e_{i₀}, which translates Λ_N to a disjoint box.
noncomputable def cbk_shiftVec {d : ℕ} (i₀ : Fin d) (N : ℕ) : Site d :=
fun i => if i = i₀ then (2 * N + 1 : ℤ) else 0
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
Uses 1 · Used by 1
DefinitionTranslate of a vertex of \(\Lambda_N\) as a vertex of \(\Lambda_{N+r}\)#✓fully proved
The vertex of Λ_{N+r} obtained by translating a vertex of Λ_N by v with ‖v‖_∞ ≤ r.
noncomputable def cbk_shiftBoxVert {N r : ℕ} (v : Site d) (hv : flc_vrad v ≤ r)
(a : boxVerts d N) : boxVerts d (N + r) :=
⟨v + (a : Site d), by
intro i
have ha : ((a : Site d) i).natAbs ≤ N := a.2 i
have hvi : (v i).natAbs ≤ flc_vrad v := flc_vrad_le v i
have : ((v + (a : Site d)) i) = v i + (a : Site d) i := by simp [Pi.add_apply]
rw [this]
calc (v i + (a : Site d) i).natAbs ≤ (v i).natAbs + ((a : Site d) i).natAbs :=
Int.natAbs_add_le _ _
_ ≤ flc_vrad v + N := Nat.add_le_add hvi ha
_ ≤ N + r := by omega⟩
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def flc_vrad (v : Site d) : ℕ := Finset.univ.sup (fun i => (v i).natAbs)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredTranslationInvariance.lean:71
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
Uses 4 · Used by 2
DefinitionTranslate of an edge of \(\Lambda_N\) as an edge of \(\Lambda_{N+r}\)#✓fully proved
The edge of Λ_{N+r} obtained by translating an edge of Λ_N by v with ‖v‖_∞ ≤ r.
noncomputable def cbk_shiftEdge {N r : ℕ} (v : Site d) (hv : flc_vrad v ≤ r) :
Sym2 (boxVerts d N) → Sym2 (boxVerts d (N + r)) :=
Sym2.map (cbk_shiftBoxVert v hv)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def flc_vrad (v : Site d) : ℕ := Finset.univ.sup (fun i => (v i).natAbs)
PhyslibExt/StatisticalMechanics/RandomCluster/WiredTranslationInvariance.lean:71
abbrev boxVerts (d n : ℕ) : Type := {x : Site d // x ∈ box d n}
PhyslibExt/StatisticalMechanics/RandomCluster/InfiniteVolume.lean:131
noncomputable def cbk_shiftBoxVert {N r : ℕ} (v : Site d) (hv : flc_vrad v ≤ r)
(a : boxVerts d N) : boxVerts d (N + r) :=
⟨v + (a : Site d), by
intro i
have ha : ((a : Site d) i).natAbs ≤ N := a.2 i
have hvi : (v i).natAbs ≤ flc_vrad v := flc_vrad_le v i
have : ((v + (a : Site d)) i) = v i + (a : Site d) i := by simp [Pi.add_apply]
rw [this]
calc (v i + (a : Site d) i).natAbs ≤ (v i).natAbs + ((a : Site d) i).natAbs :=
Int.natAbs_add_le _ _
_ ≤ flc_vrad v + N := Nat.add_le_add hvi ha
_ ≤ N + r := by omega⟩
PhyslibExt/StatisticalMechanics/RandomCluster/WiredErgodicity.lean:166
TheoremErgodicity of the wired random-cluster measure#✓fully proved
For d ≥ 1 and p ∈ (0, 1), the wired q = 2
infinite-volume random-cluster measure on ℤ^d is ergodic under translations
(Grimmett, The Random-Cluster Model, 2006, Theorem 4.19).
theorem cbk_wiredIV_isErgodic {d : ℕ} (hd : 1 ≤ d) {p : ℝ} (hp : 0 < p) (hp1 : p < 1) :
IsErgodic (G := Multiplicative (Site d))
(wiredInfiniteVolume d hp hp1 (by norm_num : (0 : ℝ) < 2)
: Measure (ConfigSpace (Sym2 (Site d))))
def IsErgodic (μ : Measure (ConfigSpace E)) : Prop :=
IsTranslationInvariant (G := G) μ ∧
∀ s : Set (ConfigSpace E), MeasurableSet s →
(∀ g : G, (shift g : ConfigSpace E → ConfigSpace E) ⁻¹' s = s) →
μ s = 0 ∨ μ s = μ Set.univ
MathlibExt/Probability/Configuration/Ergodicity.lean:95
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
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
Uses 74
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.