fact: Definition contains_equiv_over_id : UU := ∏ (e₁ e₂ b : B) (p₁ : e₁ --> b) (p₂ : e₂ --> b) (fe : e₁ --> e₂), left_adjoint_equivalence fe → invertible_2cell p₁ (fe · p₂) → P₁ p₁ p₂ fe.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Bicategories.Core.Bicat UniMath.Bicategories.Core.Invertible_2cells UniMath.Bicategories.Core.Univalence UniMath.Bicategories.Morphisms.Adjunctions UniMath.Bicategories.Morphisms.FullyFaithful UniMath.Bicategories.Morphisms.DiscreteMorphisms UniMath.Bicategories.Morphisms.InternalStreetFibration UniMath.Bicategories.Morphisms.InternalStreetOpFibration UniMath.Bicategories.Morphisms.Properties.ContainsAdjEquiv UniMath.Bicategories.Morphisms.Properties.Composition UniMath.Bicategories.Morphisms.Properties.ClosedUnderPullback UniMath.Bicategories.Morphisms.Properties.FromInitial UniMath.Bicategories.Colimits.Initial UniMath.Bicategories.Limits.Pullbacks