fact: Definition cartesian_to_is_pullback {C : comp_cat} {Γ₁ Γ₂ : C} {s : Γ₁ --> Γ₂} {A₁ : ty Γ₁} {A₂ : ty Γ₂} (t : A₁ -->[ s ] A₂) (Ht : is_cartesian t) : isPullback (comprehension_functor_mor_comm (comp_cat_comprehension C) t) := cartesian_isPullback_in_cod_disp _ (cartesian_disp_functor_on_cartesian (comp_cat_comprehension C) Ht).
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Isos UniMath.CategoryTheory.DisplayedCats.Univalence UniMath.CategoryTheory.DisplayedCats.Functors UniMath.CategoryTheory.DisplayedCats.Fiber UniMath.CategoryTheory.DisplayedCats.Fibrations UniMath.CategoryTheory.DisplayedCats.Total UniMath.CategoryTheory.DisplayedCats.Codomain UniMath.CategoryTheory.Limits.Terminal UniMath.CategoryTheory.Limits.Preservation UniMath.CategoryTheory.Limits.Pullbacks UniMath.Bicategories.ComprehensionCat.BicatOfCompCat