fact: Definition duality_involution_data : UU := ∑ (η : pstrans (id_psfunctor B) (comp_psfunctor L R)) (ηinv : pstrans (comp_psfunctor L R) (id_psfunctor B)), (invertible_modification (id₁ _) (η · ηinv)) × (invertible_modification (ηinv · η) (id₁ _)) × (∏ (x : op2_bicat B), invertible_2cell (η (L x)) (#L (η x))).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Unitors UniMath.Bicategories.Core.BicategoryLaws UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Core.UnivalenceOp UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Core.EquivToAdjequiv UniMath.Bicategories.Core.Examples.OpCellBicat UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.PseudoFunctor UniMath.Bicategories.PseudoFunctors.Examples.Identity UniMath.Bicategories.PseudoFunctors.Examples.Composition UniMath.Bicategories.PseudoFunctors.Examples.Op2OfPseudoFunctor UniMath.Bicategories.Transformations.PseudoTransformation UniMath.Bicategories.Transformations.Examples.Unitality UniMath.Bicategories.Transformations.Examples.Associativity UniMath.Bicategories.Transformations.Examples.Whiskering UniMath.Bicategories.Modifications.Modification