fact: Definition disp_left_biadj_right_triangle {L : psfunctor B₁ B₂} {e : left_biadj_unit_counit L} {LL : disp_psfunctor D₁ D₂ L} (ee : disp_left_biadj_unit_counit e LL) (e_lt : biadj_triangle_r_law e) : UU := let RR := right_adj_of_disp_left_biadj ee in disp_invmodification _ _ _ _ (disp_comp_pstrans (disp_pstrans_linvunitor RR) (disp_comp_pstrans (disp_right_whisker RR (unit_of_disp_left_biadj ee)) (disp_comp_pstrans (disp_pstrans_rassociator _ _ _) (disp_comp_pstrans (disp_left_whisker RR (counit_of_disp_left_biadj ee)) (disp_runitor_pstrans RR)) ) ) ) (disp_id_pstrans RR) e_lt.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Constructions UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.Unitors UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.DisplayedBicats.DispInvertibles UniMath.Bicategories.DisplayedBicats.DispAdjunctions UniMath.Bicategories.DisplayedBicats.DispUnivalence UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.PseudoFunctor UniMath.Bicategories.PseudoFunctors.Examples.Identity UniMath.Bicategories.PseudoFunctors.Examples.Composition UniMath.Bicategories.PseudoFunctors.Biadjunction UniMath.Bicategories.Transformations.PseudoTransformation UniMath.Bicategories.Transformations.Examples.Unitality UniMath.Bicategories.Transformations.Examples.Associativity UniMath.Bicategories.Modifications.Modification UniMath.Bicategories.DisplayedBicats.DispPseudofunctor UniMath.Bicategories.DisplayedBicats.DispTransformation UniMath.Bicategories.DisplayedBicats.DispModification