The explicit radial disk collar is a closed embedding
ProvedSPC4Disk.diskCollar_isClosedEmbeddingFor every nonnegative integer m, let D be the closed unit ball in real Euclidean (m+1)-space, S its unit sphere, and c : S × [0,1] → D the map c(u,t)=(1−t/2)u. Then c is a closed topological embedding. The interval includes both endpoints, and m=0 is included. This is the stated explicit disk map, not a collar theorem for arbitrary manifolds.
import Mathlib
import Definitions.Def_SPC4DiskCharts
import Definitions.Def_SPC4DiskCollar
set_option autoImplicit false
open Set Metric SPC4Disk
open scoped ContDiff Manifold
noncomputable section
variable {m : ℕ}
local instance : Fact (Module.finrank ℝ (EuclideanSpace ℝ (Fin (m + 1))) = m + 1) :=
⟨finrank_euclideanSpace_fin⟩theorem SPC4Disk.diskCollar_isClosedEmbedding :
Topology.IsClosedEmbedding (SPC4Disk.diskCollar (m := m)) := by sorryRead-back
What the Lean code literally says, in plain math · Codex; the exact underlying model identifier is not exposed in this session.
For every natural number , including , let with its Euclidean norm, , and , with their subspace topologies. The map , , where the domain has the product of the indicated subspace topologies, is a closed topological embedding: it is injective, identifies its domain homeomorphically with its image equipped with the topology inherited from , and that image is closed in . The entire closed interval of parameters is used, including and ; when the sphere is the two-point unit sphere in .
Confirmed by the mission captain (proposal self-audit).