Freedman 1.6, smoothing step — a punctured homotopy four-sphere is almost smooth
OpenSP4Mission.punctured_homotopy_sphere_smoothableThis is the smoothing step in Freedman's proof of the topological four-dimensional Poincaré theorem: a homotopy four-sphere is an almost-smooth manifold in Freedman's sense, that is, it carries a smooth structure in the complement of a single point.
Let be the standard four-sphere. Let be a compact Hausdorff space (a type in universe zero) equipped with a charted-space structure modeled on , so that is a closed topological -manifold, and assume that is homotopy equivalent to . Then for every point the punctured manifold , with its subspace topology, admits a smooth structure: there is an atlas of charts of modeled on whose transition maps are . Symbolically,
The statement asserts the existence of some smooth structure compatible with the given topology of . It makes no claim about uniqueness of that structure, about smoothness at , or about any relation between this structure and a homeomorphism to , and it does not by itself imply that is homeomorphic to . Together with the punctured uniqueness statement SP4Mission.punctured_almost_smooth_homotopy_sphere_homeomorph_euclidean and one-point compactification, it yields Freedman's Theorem 1.6; the same smoothability holds for every connected topological -manifold (Quinn), but only the homotopy-sphere case is stated here, exactly as used in the source.
Formalization Note The smooth structure is expressed as the existence of a ChartedSpace (EuclideanSpace ℝ (Fin 4)) instance on the subtype together with IsManifold (𝓡 4) ∞ for that instance. The topology of the subtype is the subspace topology inherited from , so the charts are automatically compatible with it. The hypothesis on is only a topological charted-space structure; no differentiability is assumed on .
import Definitions.Def_SP4Sphere set_option autoImplicit false open scoped Manifold ContDiff open SP4Mission
theorem SP4Mission.punctured_homotopy_sphere_smoothable
(M : Type) [TopologicalSpace M] [T2Space M] [CompactSpace M]
[ChartedSpace (EuclideanSpace ℝ (Fin 4)) M]
(hM : Nonempty (ContinuousMap.HomotopyEquiv M S4)) (p : M) :
∃ _ : ChartedSpace (EuclideanSpace ℝ (Fin 4)) {x : M // x ≠ p},
IsManifold (𝓡 4) ∞ {x : M // x ≠ p} := by sorry