proposition: Lemma disp_nat_z_iso_iso_inv {α: nat_z_iso F G} (β: disp_nat_z_iso DF DG α) (c:C) (d:D c) : (β c d) ;; (disp_nat_z_iso_to_trans_inv β c d) = transportb (mor_disp (DF c d) (DF c d)) (nat_z_iso_iso_inv α c d) (id_disp (DF c d)).
proof: Proof. etrans. apply (pr2 (pr2 (pr2 β c d))). apply two_arg_paths. - apply uip. apply homset_property. - reflexivity. Qed.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.PartA UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.whiskering UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Functors UniMath.CategoryTheory.DisplayedCats.Isos