{A B C : pType} {f g : A ->* B} (h : B ->* C) (p : f ==* g) : h o* f ==* h o* g. Proof. snrefine (Build_pHomotopy _ _); cbn. 1: exact (fun x => ap h (p x)). by pelim p f g h. Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.