fact: Definition make_fully_faithful {B : bicat} {a b : B} {f : a --> b} (Hf₁ : faithful_1cell f) (Hf₂ : ∏ (z : B) (g₁ g₂ : z --> a) (αf : g₁ · f ==> g₂ · f), ∑ (α : g₁ ==> g₂), α ▹ f = αf) : fully_faithful_1cell f := (Hf₁ ,, Hf₂).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells