Definition make_multispan_diagram {J : category} (X : UU) (base : J) (endpoint : ∏ (x : X), J) (morphism : ∏ (x : X), J⟦ base, endpoint x ⟧) : diagram (multispan_graph X) J. Proof. use make_diagram. - exact(sumofmaps endpoint (λ _, base)). - use coprod_rect. + exact(λ _ _, empty_rect _). + apply unit_rect. use coprod_rect. * exact(λ (a : X) (_ : unit), morphism a). * exact(λ _, empty_rect _). Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Limits.Graphs.Colimits. Require Import UniMath.Combinatorics.StandardFiniteSets. Require Import UniMath.Combinatorics.FiniteSets.