Definition idoiso_2_0_onetypes (X Y : one_types) : X = Y ≃ adjoint_equivalence X Y := (adjequiv_to_weq X Y ∘ UA_for_HLevels 3 X Y)%weq.
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.