Contours of clusters in a box and closed-walk encodings
A. Contours of clusters in a box
DefinitionSites reachable from the origin after deleting edges#✓fully proved
The set of sites reachable from the origin in the hypercubic lattice after deleting the edges in
F.
noncomputable def regionDel (d : ℕ) (F : Set (Sym2 (Site d))) : Set (Site d) :=
{x | ((hypercubicLattice d).deleteEdges F).Reachable (origin d) x}
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def hypercubicLattice (d : ℕ) : SimpleGraph (Site d) where
Adj := NearestNeighbour d
symm := ⟨fun _ _ h => nearestNeighbour_symm d h⟩
loopless := nearestNeighbour_irrefl d
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:76
def origin (d : ℕ) : Site d := fun _ => 0
PhyslibExt/CondensedMatter/IsingModel/Peierls.lean:195
Uses 3
B. Closed-walk encodings and the Peierls count
DefinitionConnected clusters in a box with contour length \(\ell\)#✓fully proved
The connected clusters in the box Λ_n whose contour has exactly ℓ bonds.
noncomputable def ccb_contourFiber (d n ℓ : ℕ) : Finset (Finset (Site d)) :=
(connClusterFamily (d := d) n).filter
(fun (K : Finset (Site d)) => contourLen (↑K) (bondFinsetTouch d n) = ℓ)
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
noncomputable def connClusterFamily (n : ℕ) : Finset (Finset (Site d)) :=
(clusterFamily (d := d) n).filter (fun K => IsConnectedCluster K)
PhyslibExt/CondensedMatter/IsingModel/PeierlsContourCount.lean:237
noncomputable def contourLen (K : Set (Site d)) (B : Finset (Sym2 (Site d))) : ℕ :=
(crossEdges K B).card
PhyslibExt/CondensedMatter/IsingModel/PeierlsContours.lean:116
noncomputable def bondFinsetTouch (d n : ℕ) : Finset (Sym2 (Site d)) :=
(bondPairsTouch d n).image (fun p => s(p.1, p.2))
PhyslibExt/CondensedMatter/IsingModel/InfiniteVolume.lean:114
Uses 4 · Used by 2
DefinitionInjective closed-walk encoding of clusters of contour length \(\ell\)#✓fully proved
The clusters with contour length ℓ admit an injective encoding by closed lattice walks of
length ℓ based at one of at most ℓ anchor sites.
def ccb_ContourEncodingExists (d n ℓ : ℕ) : Prop :=
∃ anchors : Finset (Site d),
anchors.card ≤ ℓ ∧
∃ enc : Finset (Site d) → Σ v : Site d, (hypercubicLattice d).Walk v v,
(∀ K ∈ ccb_contourFiber d n ℓ, (enc K).1 ∈ anchors ∧ (enc K).2.length = ℓ) ∧
Set.InjOn enc (↑(ccb_contourFiber d n ℓ))
abbrev Site (d : ℕ) : Type := Fin d → ℤ
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:55
def hypercubicLattice (d : ℕ) : SimpleGraph (Site d) where
Adj := NearestNeighbour d
symm := ⟨fun _ _ h => nearestNeighbour_symm d h⟩
loopless := nearestNeighbour_irrefl d
MathlibExt/Combinatorics/SimpleGraph/Lattice/HypercubicLattice.lean:76
noncomputable def ccb_contourFiber (d n ℓ : ℕ) : Finset (Finset (Site d)) :=
(connClusterFamily (d := d) n).filter
(fun (K : Finset (Site d)) => contourLen (↑K) (bondFinsetTouch d n) = ℓ)
PhyslibExt/CondensedMatter/IsingModel/Peierls/ClusterContourBijection.lean:149
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.