Moment-angle complexes and total integral homology
Definitionframe_2026_moment_angle_interfacesThis definition bundle formalizes finite abstract simplicial complexes and their standard geometric realizations, the condition of being a simplicial -sphere, the disk/circle moment-angle subspace with its canonical basepoint, the based loop space, total integral singular homology, and injective additive embeddings. These are the transparent objects used in the arbitrary-torsion mission.
import Mathlib
/-!
# Concrete objects for the moment-angle-manifold theorem
This file gives transparent definitions for every object occurring in the
headline existence theorem of Han--Li. Mathlib's
`AbstractSimplicialComplex` records all nonempty faces and requires every
singleton to be a face. The helper `IsFaceOrEmpty` restores the conventional
empty face when defining the moment-angle complex.
-/
noncomputable section
open CategoryTheory
namespace MomentAngle
/-- A face in the usual convention: either the empty face or one of the
nonempty faces stored by Mathlib's `AbstractSimplicialComplex`. -/
def IsFaceOrEmpty {m : ℕ} (L : AbstractSimplicialComplex (Fin m))
(sigma : Finset (Fin m)) : Prop :=
sigma = ∅ ∨ sigma ∈ L
/-- The standard barycentric-coordinate geometric realization of a finite
abstract simplicial complex. -/
abbrev GeometricRealization {m : ℕ} (L : AbstractSimplicialComplex (Fin m)) : Type :=
{x : Fin m → ℝ //
(∀ i, 0 ≤ x i) ∧
(∑ i, x i) = 1 ∧
(Finset.univ.filter fun i => x i ≠ 0) ∈ L}
/-- The ordinary topological four-sphere, realized as the unit sphere in
five-dimensional Euclidean space. -/
abbrev FourSphere : Type :=
Metric.sphere (0 : EuclideanSpace ℝ (Fin 5)) 1
/-- A finite abstract simplicial complex is a simplicial four-sphere when its
standard geometric realization is homeomorphic to `S⁴`. -/
def IsSimplicialFourSphere {m : ℕ}
(L : AbstractSimplicialComplex (Fin m)) : Prop :=
Nonempty (GeometricRealization L ≃ₜ FourSphere)
/-- Membership in the moment-angle complex associated with `L`. A coordinate
belonging to the chosen face lies in `D²`; every other coordinate lies in
`S¹`. -/
def IsInMomentAngle {m : ℕ} (L : AbstractSimplicialComplex (Fin m))
(z : Fin m → ℂ) : Prop :=
∃ sigma : Finset (Fin m),
IsFaceOrEmpty L sigma ∧
∀ i, if i ∈ sigma then ‖z i‖ ≤ 1 else ‖z i‖ = 1
/-- The moment-angle complex `Z_L` as the corresponding subspace of
`(D²)^m`. -/
abbrev Complex {m : ℕ} (L : AbstractSimplicialComplex (Fin m)) : Type :=
{z : Fin m → ℂ // IsInMomentAngle L z}
/-- The all-ones point, used as the canonical basepoint of `Z_L`. -/
def basepoint {m : ℕ} (L : AbstractSimplicialComplex (Fin m)) : Complex L := by
refine ⟨fun _ => 1, ∅, Or.inl rfl, ?_⟩
simp
/-- The based loop space of `Z_L`. Mathlib equips `Path` with the topology
induced from the compact-open topology on continuous maps. -/
abbrev BasedLoopSpace {m : ℕ} (L : AbstractSimplicialComplex (Fin m)) : Type :=
Path (basepoint L) (basepoint L)
/-- Integral singular homology in degree `q`, using Mathlib's singular
homology functor with coefficients in the rank-one module `ℤ`. -/
abbrev IntegralHomology (q : ℕ) (X : Type) [TopologicalSpace X] : Type :=
(((AlgebraicTopology.singularHomologyFunctor (ModuleCat ℤ) q).obj
(ModuleCat.of ℤ ℤ)).obj (TopCat.of X))
/-- Total integral singular homology, regarded as the direct sum of its
nonnegative-degree homology groups. -/
abbrev TotalIntegralHomology (X : Type) [TopologicalSpace X] : Type :=
DirectSum ℕ (fun q => IntegralHomology q X)
/-- `G` occurs as an additive subgroup of `H`. -/
def AdditivelyEmbeds (G H : Type*) [AddZero G] [AddZero H] : Prop :=
∃ f : G →+ H, Function.Injective f
end MomentAngle
Read-back
What the Lean code literally says, in plain math · gpt-5.6-sol
IsFaceOrEmpty. For any natural number , any abstract simplicial complex on the vertex type , and any finite set of those vertices, IsFaceOrEmpty L σ means exactly that either is empty or is a face recorded by . No nonemptiness of is otherwise required.
GeometricRealization. For any natural number and abstract simplicial complex on , the geometric realization is the subtype of functions such that every , the finite sum of all coordinates is , and the finite set of indices at which belongs to . Thus the support is required to be an actual recorded face, not merely empty-or-a-face. When , no such exists because the empty sum is , not .
FourSphere. FourSphere is the metric sphere of radius centered at the zero vector in the Euclidean space ; its elements are exactly the vectors in that space whose distance from zero is .
IsSimplicialFourSphere. For any natural number and abstract simplicial complex on , IsSimplicialFourSphere L means that there exists a homeomorphism between the above geometric-realization subtype and the unit sphere in . It does not separately assert a combinatorial dimension, purity, a manifold structure, or any particular triangulation property beyond the existence of that homeomorphism.
IsInMomentAngle. For any natural number , abstract simplicial complex on , and function , IsInMomentAngle L z means that there exists a finite set of vertices such that is empty or is a face of , and, for every vertex , one has if and if . The witnessing face is not required to be unique; coordinates on its boundary may also have modulus . When , the empty witnesses the condition for the unique empty function, since the coordinate condition is vacuous.
Complex. For any natural number and abstract simplicial complex on , Complex L is the subtype of functions satisfying the preceding existential face-and-modulus condition. This declaration itself asserts no manifold property.
basepoint. For every such , basepoint L is the element of Complex L whose every coordinate is . Its membership is witnessed by the empty finite set: every coordinate is outside that set and has modulus . This also defines a point when .
BasedLoopSpace. For every such , BasedLoopSpace L is the type of parametrized continuous paths in Complex L whose initial and terminal points are both the all-ones basepoint. It is the path/loop space itself, not a set of homotopy classes.
IntegralHomology. For every natural degree and topological type , IntegralHomology q X is the underlying type of Mathlib’s degree- singular-homology object of with coefficients in the rank-one integer module . Only nonnegative degrees are represented because ranges over .
TotalIntegralHomology. For every topological type , TotalIntegralHomology X is the direct sum, indexed by all , of the preceding integral singular-homology groups. Its elements therefore have only finitely many nonzero degree components.
AdditivelyEmbeds. For types and equipped only with addition and zero, AdditivelyEmbeds G H means that there exists an injective map preserving addition and zero. It asserts neither surjectivity nor a splitting, and when is graded it imposes no requirement that the image lie in or preserve any one degree.
Confirmed by the mission captain (proposal self-audit).