proposition: Proposition indexed_cat_to_disp_cat_from_disp_iso_inv_right : f · indexed_cat_to_disp_cat_from_disp_iso_inv = identity _.
proof: Proof. unfold indexed_cat_to_disp_cat_from_disp_iso_inv. rewrite !assoc. refine (!_). use z_iso_inv_on_left. rewrite id_left. pose (inv_mor_after_z_iso_disp Hf) as p. cbn in p. unfold transportb in p. rewrite transportf_indexed_cat_to_disp_cat in p. use (cancel_z_iso _ _ (idtoiso (maponpaths (λ h, (Φ $ h) xx₁) (!(id_left (identity x)))))). refine (_ @ p) ; clear p. rewrite !assoc'. apply maponpaths. rewrite !assoc. refine (!_). etrans. { apply maponpaths_2. refine (!_). apply (nat_trans_ax (indexed_cat_id Φ x)). } cbn. rewrite !assoc'. apply maponpaths. apply (indexed_cat_runitor_alt Φ). Qed.
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.OppositeCategory.Core UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Isos UniMath.CategoryTheory.DisplayedCats.Fibrations UniMath.CategoryTheory.DisplayedCats.Fiber UniMath.CategoryTheory.DisplayedCats.Univalence UniMath.CategoryTheory.IndexedCategories.IndexedCategory