Loop-space homology of a based homotopy retract embeds
ProvedbasedHomotopyRetract_additivelyEmbeds_loopHomologyLet and be based topological spaces and suppose is a based homotopy retract of : there are continuous maps
with , and a homotopy from to that fixes the basepoint at all times. (The identity is not assumed; it follows, since the basepoint-fixing homotopy forces .)
Then for every degree the integral singular homology of the based loop space embeds as an additive subgroup of that of :
The argument is that is functorial for based maps and takes basepoint-fixing homotopies to homotopies: if is a homotopy from to with for all , then is a homotopy of self-maps of from to the identity. Hence is a homotopy retract of , and the induced map on singular homology has a left inverse, so it is injective.
Formalization Note The based loop space is Mathlib's space of paths from the basepoint to itself, with the topology induced from the compact-open topology; the homotopy hypothesis is HomotopicRel relative to the singleton containing the basepoint; homology is integral singular homology, and the conclusion is an injective additive homomorphism.
import Definitions.Def_frame_2026_moment_angle_interfaces open MomentAngle
theorem basedHomotopyRetract_additivelyEmbeds_loopHomology
{X Y : Type} [TopologicalSpace X] [TopologicalSpace Y] {x₀ : X} {y₀ : Y}
(i : C(X, Y)) (r : C(Y, X)) (hi : i x₀ = y₀)
(hri : (r.comp i).HomotopicRel (ContinuousMap.id X) {x₀}) (q : ℕ) :
AdditivelyEmbeds (IntegralHomology q (Path x₀ x₀)) (IntegralHomology q (Path y₀ y₀)) := by
sorry