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. intros e. rewrite e. rewrite id_right. apply z_iso_after_z_iso_inv. 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.