proposition: Lemma wrap_inverse' {M : precategory} {x y : M} (g : x --> x) (f : z_iso y x) : g = identity x -> f · g · z_iso_inv f = identity y.
proof: Proof. intros e. rewrite e. rewrite id_right. apply z_iso_inv_after_z_iso. Defined.
imports: UniMath.Foundations.PartA UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories