Definition make_mor_of_internal_sfib_over {B : bicat} {e₁ b₁ : B} {p₁ : e₁ --> b₁} {e₂ b₂ : B} {p₂ : e₂ --> b₂} {fb : b₁ --> b₂} (fe : e₁ --> e₂) (fc : mor_preserves_cartesian p₁ p₂ fe) (f_com : invertible_2cell (p₁ · fb) (fe · p₂)) : mor_of_internal_sfib_over p₁ p₂ fb := (fe ,, fc ,, f_com).
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.