{X Y : pType} `{IsHSet Y} {f g : X ->* Y} (h : f == g) : f ==* g. Proof. apply (Build_pHomotopy h). apply path_ishprop. Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.