Definition weq_is_adjoint_equivalence {X Y : one_types} (f : X --> Y) (Hf : isweq f) : left_adjoint_equivalence f. Proof. apply equiv_to_isadjequiv. exact (weq_is_adjoint_equivalence_help f Hf). Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Univalence. Require Import UniMath.Bicategories.Morphisms.Adjunctions. Require Import UniMath.Bicategories.Core.EquivToAdjequiv. Require Import UniMath.Bicategories.Core.AdjointUnique.