Definition weq_is_adjoint_equivalence_help {X Y : one_types} (f : X --> Y) (Hf : isweq f) : left_equivalence f. Proof. use tpair. - refine (invmap (f ,, Hf) ,, _). split. + intros x. exact (!(homotinvweqweq (f ,, Hf) x)). + intros x. exact (homotweqinvweq (f ,, Hf) x). - split ; apply one_type_2cell_iso. 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.