fact: Definition fully_faithful_1cell {B : bicat} {a b : B} (f : a --> b) : UU := (∏ (z : B) (g₁ g₂ : z --> a) (α₁ α₂ : g₁ ==> g₂), α₁ ▹ f = α₂ ▹ f → α₁ = α₂) × (∏ (z : B) (g₁ g₂ : z --> a) (αf : g₁ · f ==> g₂ · f), ∑ (α : g₁ ==> g₂), α ▹ f = αf).
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