fact: Definition left_adjoint_unit {a b : B} {f : a --> b} (αd : left_adjoint_data f) : identity a ==> f · left_adjoint_right_adjoint αd := pr12 αd.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells