proposition: Lemma disp_nat_trans_comp_inv {α: nat_z_iso F G} {α': nat_z_iso G H} (β: disp_nat_z_iso DF DG α) (β': disp_nat_z_iso DG DH α') (c:C) (d:D c) : is_disp_inverse (nat_z_iso_pointwise_z_iso (nat_z_iso_comp α α') c) (disp_nat_trans_comp β β' c d) (disp_nat_trans_comp (disp_nat_z_iso_inv β') (disp_nat_z_iso_inv β) c d).
proof: Proof. split. - etrans. apply assoc_disp. apply PartA.transportb_transpose_left. etrans. apply assoc4_disp. apply PartA.transportb_transpose_left. etrans. apply id_conjugation_disp. * apply disp_nat_z_iso_inv_iso. * apply disp_nat_z_iso_inv_iso. * unfold transportb. repeat rewrite transport_f_f. apply two_arg_paths. -- apply uip. apply homset_property. -- reflexivity. - etrans. apply assoc_disp. apply PartA.transportb_transpose_left. etrans. apply assoc4_disp. apply PartA.transportb_transpose_left. etrans. apply id_conjugation_disp. * apply disp_nat_z_iso_iso_inv. * apply disp_nat_z_iso_iso_inv. * unfold transportb. repeat rewrite transport_f_f. 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