fact: Definition psfunctor_preserves_adjequiv {C D : bicat} (HC : is_univalent_2_0 C) (HD : is_univalent_2_1 D) (F : psfunctor C D) (a b : C) (f : adjoint_equivalence a b) : left_adjoint_equivalence (#F f) := J_2_0 HC (λ a b f, left_adjoint_equivalence (#F (pr1 f))) (λ a0, left_adjequiv_invertible_2cell HD _ _ (psfunctor_id F a0) (pr2 (internal_adjoint_equivalence_identity (F a0)))) f.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Equivalences.FullyFaithful UniMath.CategoryTheory.DisplayedCats.Core UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Examples.BicatOfUnivCats UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Core.EquivToAdjequiv UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.PseudoFunctors.Display.Base UniMath.Bicategories.PseudoFunctors.Display.Map1Cells UniMath.Bicategories.PseudoFunctors.Display.Map2Cells UniMath.Bicategories.PseudoFunctors.Display.Identitor UniMath.Bicategories.PseudoFunctors.Display.Compositor UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat