fact: Definition internal_right_adj_counit {a b : B} {g : b --> a} (αd : internal_right_adj_data g) : g · internal_right_adj_left_adjoint αd ==> identity b := pr22 αd.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells