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