fact: Definition make_RoofTop {x y : ob C} {R1 R2 : Roof x y} (w : ob C) (s : w --> R1) (f : w --> R2) (e : SOM w x (s · RoofMor1 R1)) (H1 : s · (RoofMor1 R1) = f · (RoofMor1 R2)) (H2 : s · (RoofMor2 R1) = f · (RoofMor2 R2)) : RoofTop R1 R2 := tpair _ (tpair _ w (s,,f)) (e,,(H1,,H2)).
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Functors