fact: Definition is_contravariant {B : bicat} (comp_B : comprehension_bicat_structure B) : UU := let D := ty_of comp_B in let χ := comp_of comp_B in local_cleaving D × lwhisker_cartesian D × rwhisker_cartesian D × local_cartesian_disp_psfunctor χ.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.DisplayedBicats.DispBicat UniMath.Bicategories.DisplayedBicats.DispPseudofunctor UniMath.Bicategories.DisplayedBicats.CleavingOfBicat UniMath.Bicategories.DisplayedBicats.CartesianPseudoFunctor UniMath.Bicategories.DisplayedBicats.Examples.Codomain UniMath.Bicategories.PseudoFunctors.Display.PseudoFunctorBicat UniMath.Bicategories.PseudoFunctors.PseudoFunctor UniMath.Bicategories.PseudoFunctors.Examples.Identity