proposition: Lemma is_z_iso_arrow_right_inv : inv_arrow · f = identity y.
proof: Proof. use subtypePath. { intro. apply homset_property. } use pathsdirprod ; cbn. - exact (z_iso_after_z_iso_inv (make_z_iso' _ Hf1)). - exact (z_iso_after_z_iso_inv (make_z_iso' _ Hf2)). Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Equivalences.Core UniMath.CategoryTheory.CommaCategories UniMath.CategoryTheory.Adjunctions.Core