Freedman 1.5 (uniqueness, ) — a punctured almost-smooth homotopy four-sphere is homeomorphic to
OpenSP4Mission.punctured_almost_smooth_homotopy_sphere_homeomorph_euclideanThis is the -cobordism step in Freedman's proof of the topological four-dimensional Poincaré theorem: the uniqueness part of his classification theorem (Theorem 1.5) specialised to the zero intersection form, stated in the punctured form in which it is established in the source.
Let . Let be a compact Hausdorff space (a type in universe zero) with a charted-space structure modeled on , so that is a closed topological -manifold, and assume that is homotopy equivalent to . Let , and suppose that the punctured manifold , with its subspace topology, has been given a smooth structure — an atlas modeled on with transition maps — so that is an almost-smooth homotopy four-sphere in Freedman's sense. Then the punctured manifold is homeomorphic to Euclidean four-space:
Equivalently, is homeomorphic to the punctured standard sphere . The conclusion is purely topological: the smooth structure on enters only as a hypothesis, and no smoothness of the homeomorphism, no diffeomorphism , and no uniqueness of smooth structures is asserted or implied. Combined with the smoothability of punctured homotopy four-spheres (SP4Mission.punctured_homotopy_sphere_smoothable) and with the fact that a compact Hausdorff space is the one-point compactification of the complement of any of its points, this statement gives Freedman's Theorem 1.6, ; in the source the corresponding sentence is that the homeomorphism "extends to the 1-point compactification ".
Formalization Note The smooth structure is carried by the instance hypotheses ChartedSpace (EuclideanSpace ℝ (Fin 4)) {x : M // x ≠ p} and IsManifold (𝓡 4) ∞ {x : M // x ≠ p}; the topology of the subtype is the subspace topology from , so these charts are compatible with it. The conclusion is Nonempty ({x : M // x ≠ p} ≃ₜ EuclideanSpace ℝ (Fin 4)).
import Definitions.Def_SP4Sphere set_option autoImplicit false open scoped Manifold ContDiff open SP4Mission
theorem SP4Mission.punctured_almost_smooth_homotopy_sphere_homeomorph_euclidean
(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}] :
Nonempty ({x : M // x ≠ p} ≃ₜ EuclideanSpace ℝ (Fin 4)) := by sorry