Standard four-sphere and smooth Poincaré predicates
DefinitionSP4SphereThe standard four-sphere is the unit sphere in Euclidean five-space. SPC4 says that every compact Hausdorff Type-0 manifold with a given boundaryless smooth real four-dimensional atlas, if homeomorphic to this sphere, is smoothly diffeomorphic to it. SPC4Homotopy replaces homeomorphism by homotopy equivalence. These are propositions, not proofs.
-- Derived from frozen local sources; exact source/hash provenance in items.json.
import Mathlib
set_option autoImplicit false
namespace SP4Mission
open scoped Manifold ContDiff
noncomputable section
abbrev S4 : Type := Metric.sphere (0 : EuclideanSpace ℝ (Fin (4 + 1))) 1
def SPC4 : Prop :=
∀ (M : Type) [TopologicalSpace M] [T2Space M] [CompactSpace M]
[ChartedSpace (EuclideanSpace ℝ (Fin 4)) M] [IsManifold (𝓡 4) ∞ M],
Nonempty (M ≃ₜ S4) →
Nonempty (M ≃ₘ⟮𝓡 4, 𝓡 4⟯ S4)
def SPC4Homotopy : Prop :=
∀ (M : Type) [TopologicalSpace M] [T2Space M] [CompactSpace M]
[ChartedSpace (EuclideanSpace ℝ (Fin 4)) M] [IsManifold (𝓡 4) ∞ M],
Nonempty (ContinuousMap.HomotopyEquiv M S4) →
Nonempty (M ≃ₘ⟮𝓡 4, 𝓡 4⟯ S4)
section Transport
variable {N : Type} [TopologicalSpace N]
end Transport
section Bridge
open Set ChartedSpace
variable {𝕜 : Type*} [NontriviallyNormedField 𝕜] {E : Type*} [NormedAddCommGroup E]
[NormedSpace 𝕜 E] {H' : Type*} [TopologicalSpace H'] {I : ModelWithCorners 𝕜 E H'}
{X : Type*} [TopologicalSpace X] [ChartedSpace H' X]
{X' : Type*} [TopologicalSpace X'] [ChartedSpace H' X']
{m : ℕ∞ω} [IsManifold I m X] [IsManifold I m X']
end Bridge
end
end SP4Mission
Read-back
What the Lean code literally says, in plain math · Codex; the exact underlying model identifier is not exposed in this session.
Let , with its subspace topology and standard stereographic smooth structure modeled on . The proposition says that for every type in the base universe and every choice on of topology, Hausdorff and compactness structures, and a charted-space structure modeled on with -compatible transitions, existence of a homeomorphism implies existence of a diffeomorphism , meaning a bijection for which both the forward map and the inverse are in the specified manifold charts. The proposition has exactly the same quantified spaces and structures and the same conclusion, but its premise is existence of a continuous homotopy equivalence between and , meaning a pair of continuous maps in opposite directions whose two composites are continuously homotopic to the corresponding identity maps. Both propositions require existence, without uniqueness or a prescribed underlying map for the diffeomorphism. No separate nonemptiness hypothesis on is imposed; an empty is included in the universal quantifier, and in that case neither a homeomorphism nor a homotopy equivalence to the nonempty sphere exists.
Confirmed by the mission captain (proposal self-audit).