fact: Definition comp_cat_comp_mor {C : comp_cat} {Γ : C} {A B : ty Γ} (s : A -->[ identity _ ] B) : Γ & A --> Γ & B := comprehension_functor_mor (comp_cat_comprehension C) s.
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