fact: Definition slice_disp_adj_equiv_to_inv2cell {x : B} {f g : slice_disp_bicat x} (α : disp_adjoint_equivalence (internal_adjoint_equivalence_identity x) f g) : invertible_2cell f g := comp_of_invertible_2cell (pr1 α) (lunitor_invertible_2cell _).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.DisplayedCats.Core UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.EquivToAdjequiv UniMath.Bicategories.Core.Univalence UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.DispInvertibles UniMath.Bicategories.DisplayedBicats.DispAdjunctions UniMath.Bicategories.DisplayedBicats.DispUnivalence