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