fact: Definition adj_equivalence_from_right_adjoint {A B : category} (F : functor A B) (H1 : is_right_adjoint F) (H2 : ∏ a, is_z_isomorphism ((unit_from_right_adjoint H1) a)) (H3 : ∏ a, is_z_isomorphism ((counit_from_right_adjoint H1) a)) : adj_equivalence_of_cats F := make_adj_equivalence_of_cats' F (left_adjoint H1) (unit_from_right_adjoint H1) (counit_from_right_adjoint H1) (pr2 (pr2 H1)) H2 H3.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.whiskering UniMath.CategoryTheory.Adjunctions.Core