fact: Definition adjunction (a b : B) : UU := ∑ (f : a --> b), left_adjoint f.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells