proposition: Lemma cocone_compose_colimit_to_cocone : forall a b, is_cocone a -> is_colimit b -> cosocle a = cosocle b -> cocone_compose (colimit_to_cocone b a) b = a.
proof: Proof. ir. cp (colimit_to_cocone_pr H H0 H1). ee. am. Qed.
imports: Arith limits