`(p : morphism C x y) `(q : morphism C x z) `(@IsIsomorphism C z y r) : p = (r o q) -> (r^-1 o p) = q. Proof. iso_concat_t. Qed.
Require Import Category.Core Functor.Core. Require Import HoTT.Tactics Basics.Trunc Basics.Tactics Types.Sigma Equivalences.