Lemma isotoid_comp (C : category) (H : is_univalent C) (a b c : ob C) (e : z_iso a b) (f : z_iso b c) : isotoid _ H (z_iso_comp e f) = isotoid _ H e @ isotoid _ H f. Proof. apply idtoiso_inj. assumption. rewrite idtoiso_concat. repeat rewrite idtoiso_isotoid. apply idpath. Qed.
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos.