Freedman — a smooth contractible four-manifold that is simply connected at infinity is homeomorphic to
OpenSP4Mission.smooth_contractible_scAtInfinity_homeomorph_euclideanThis is the smooth case of the four-dimensional instance of the Stallings–Freedman characterization of Euclidean space, and precisely the second half of the proof of Freedman's Corollary 1.2, the half that follows the smoothing step.
Let be a Hausdorff, second countable topological space with a atlas modeled on , that is, a smooth -manifold without boundary. Assume that is contractible and that is simply connected at infinity: for every compact there is a compact such that every loop in contracts in . Then
The conclusion is a homeomorphism only. No diffeomorphism is asserted, and none can be in general: the exotic 's are smooth manifolds satisfying these hypotheses that are not diffeomorphic to . Contractibility forces to be nonempty, connected and noncompact. The smooth hypothesis is exactly what the smoothing theorem for connected noncompact -manifolds provides, so Corollary 1.2 in its topological form (any topological -manifold proper-homotopy equivalent to is homeomorphic to ) follows by combining that theorem with the present statement. In Guilbault's formulation: a contractible open -manifold, , is homeomorphic to if and only if it is simply connected at infinity, the case being Freedman's.
Formalization Note The smooth structure is the pair of instances ChartedSpace (EuclideanSpace ℝ (Fin 4)) V and IsManifold (𝓡 4) ∞ V; contractibility is Mathlib's ContractibleSpace V; simple connectivity at infinity is SP4Ends.SimplyConnectedAtInfinity V, Freedman's definition with based null-homotopies. The conclusion is Nonempty (V ≃ₜ EuclideanSpace ℝ (Fin 4)).
import Definitions.Def_SP4Sphere import Definitions.Def_SP4Ends set_option autoImplicit false open scoped Manifold ContDiff open SP4Mission
theorem SP4Mission.smooth_contractible_scAtInfinity_homeomorph_euclidean
(V : Type*) [TopologicalSpace V] [T2Space V] [SecondCountableTopology V]
[ChartedSpace (EuclideanSpace ℝ (Fin 4)) V] [IsManifold (𝓡 4) ∞ V]
[ContractibleSpace V] (hV : SP4Ends.SimplyConnectedAtInfinity V) :
Nonempty (V ≃ₜ EuclideanSpace ℝ (Fin 4)) := by sorry