Lemma disp_functor_on_z_iso_disp_aux1 {C C'} {F} {D : disp_cat C} {D' : disp_cat C'} (FF : disp_functor F D D') {x y} {xx : D x} {yy} {f : z_iso x y} (ff : xx -->[f] yy) (Hff : is_z_iso_disp f ff) : transportf _ (functor_on_inv_from_z_iso F f) (♯ FF (inv_mor_disp_from_z_iso Hff)) ;; ♯ FF ff = transportb _ (z_iso_after_z_iso_inv _) (id_disp _). Proof. etrans. apply mor_disp_transportf_postwhisker. etrans. apply maponpaths, @pathsinv0, disp_functor_comp_var. etrans. apply transport_f_f. etrans. apply maponpaths, maponpaths, z_iso_disp_after_inv_mor. etrans. apply maponpaths, disp_functor_transportf. etrans. apply transport_f_f. etrans. apply maponpaths, disp_functor_id. etrans. apply transport_f_b. unfold transportb. apply maponpaths_2, homset_property. Qed.
Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.CategoryTheory.DisplayedCats.Isos.