fact: Definition RoofTop {x y : ob C} (R1 R2 : Roof x y) : UU := ∑ D : (∑ w : ob C, C⟦w, R1⟧ × C⟦w, R2⟧), (SOM (pr1 D) x ((dirprod_pr1 (pr2 D)) · (RoofMor1 R1))) × ((dirprod_pr1 (pr2 D)) · (RoofMor1 R1) = (dirprod_pr2 (pr2 D)) · (RoofMor1 R2)) × ((dirprod_pr1 (pr2 D)) · (RoofMor2 R1) = (dirprod_pr2 (pr2 D)) · (RoofMor2 R2)).
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Functors