{X : Type u} →
  [inst : TopologicalSpace X] →
    (hmul : C(X × X, X)) →
      (e : X) →
        hmul (e, e) = e →
          (hmul.comp ((ContinuousMap.const X e).prodMk (ContinuousMap.id X))).HomotopyRel (ContinuousMap.id X) {e} →
            (hmul.comp ((ContinuousMap.id X).prodMk (ContinuousMap.const X e))).HomotopyRel (ContinuousMap.id X) {e} →
              HSpace X