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. intros e. rewrite e. rewrite id_right. apply z_iso_inv_after_z_iso. Defined.
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.Propositions. Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.CategoryTheory.Core.Categories.