proposition: Lemma comp_cofiprod_eq : forall a u v, has_cofiprod a u v -> comp a (cofipr1 a u v) u = comp a (cofipr2 a u v) v.
proof: Proof. ir. cp (cofiprod_hypothesis_cofiprod H). uh H0; ee. am. Qed.
imports: Arith colimits little_cat fc_limits cardinal