Definition id_mor_of_internal_sfib_over {B : bicat} {e b : B} (p : e --> b) : mor_of_internal_sfib_over p p (id₁ _). Proof. use make_mor_of_internal_sfib_over. - exact (id₁ e). - apply id_mor_preserves_cartesian. - use make_invertible_2cell. + refine (runitor _ • linvunitor _). + is_iso. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.DisplayedCats.StreetFibration. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.Core.Univalence.