Definition adjoint_equivalence_is_pregroupoid : is_pregroupoid adjoint_equivalence_precategory. Proof. intros a b f. use is_iso_qinv. - exact (inv_adjoint_equivalence a b f). - split. + exact (adjoint_equivalence_rinv a b f). + exact (adjoint_equivalence_linv a b f). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Groupoids. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Univalence. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.Bicategories.Core.Bicat. Import Bicat.Notations. Require Import UniMath.Bicategories.Core.Unitors. Require Import UniMath.Bicategories.Core.Invertible_2cells. Require Import UniMath.Bicategories.Morphisms.Adjunctions. Require Import UniMath.Bicategories.Core.BicategoryLaws.