`{Funext} {A B : pType} (m : forall (a : A), (point A) = (point A) -> a = a) (q : m pt == idmap) {f g : B ->* A} (K : f == g) : f ==* g := (phomotopy_from_path_arrow m q (path_forall _ _ K)).
Require Import Basics Types Pointed WildCat.Core. Require Import Truncations.Core Truncations.Connectedness.