is a -fold loop space
OpenSmaleDiffS4.diffDisk_four_fiveFoldLoopSpaceLet be the group of diffeomorphisms of the -ball that are the identity on the boundary, with the topology. Then has the homotopy type of a -fold loop space: there is a pointed space with
In general the Cerf–Morlet comparison theorem gives ; for this is the stated -fold delooping (see also Budney, Little cubes and long knots). A consequence is that all homotopy groups of , including with its composition group structure, are abelian.
Formalization Note is Mathlib's space of generalized loops GenLoop (Fin 5) Y y: continuous maps sending the boundary of the cube to , with the compact-open topology. The space is only required to be some topological space; the source's is not formalized.
import Mathlib import Definitions.Def_SmaleDiffS4_Basic open SmaleDiffS4
namespace SmaleDiffS4
theorem diffDisk_four_fiveFoldLoopSpace :
∃ (Y : Type) (_ : TopologicalSpace Y) (y : Y),
Nonempty (ContinuousMap.HomotopyEquiv (DiffDisk 4) (GenLoop (Fin 5) Y y)) := by sorry
end SmaleDiffS4Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.