fact: Definition left_adjequiv_invertible_2cell {D : bicat} (HD : is_univalent_2_1 D) {a b : D} (f g : a --> b) (α : invertible_2cell f g) : left_adjoint_equivalence f → left_adjoint_equivalence g := J_2_1 HD (λ a b f g α, left_adjoint_equivalence f → left_adjoint_equivalence g) (λ _ _ _ p, p) α.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Groupoids UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Isos UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Core.BicategoryLaws