{A} `{HasMorExt A} {a b : A} {f g : a $-> b} (p : f $== g) : f = g := GpdHom_path^-1 p. Global Instance is1cat_strong_hasmorext {A : Type} `{HasMorExt A} : Is1Cat_Strong A. Proof. rapply Build_Is1Cat_Strong; hnf; intros; apply . + apply cat_assoc. + apply cat_assoc_opp. + apply cat_idl. + apply cat_idr. Defined.
Require Import Basics.Overture Basics.Tactics.