proposition: Lemma mor_cofipr_dotted : forall a u v y1 y2, has_cofiprod a u v -> cofiprod_hypothesis a u v y1 y2 -> mor a (cofipr_dotted a u v y1 y2).
proof: Proof. ir. rwi has_cofipr_has_fipr H. rwi cofi_hyp_fi_hyp H0. uf cofipr_dotted. wr mor_opp. app mor_fipr_dotted. uh H0; ee. uh H1; ee; am. uh H0; ee. uh H1; ee; am. Qed.
imports: Arith colimits little_cat fc_limits cardinal