proposition: Lemma cofiprod_hypothesis_cofiprod : forall a u v, has_cofiprod a u v -> cofiprod_hypothesis a u v (cofipr1 a u v) (cofipr2 a u v).
proof: Proof. ir. uf cofipr1; uf cofipr2. rw cofi_hyp_fi_hyp. rw flip_flip. rw flip_flip. ap fiprod_hypothesis_fiprod. uh H. ee; am. uh H; ee. uh H; ee. uh H; ee; am. Qed.
imports: Arith colimits little_cat fc_limits cardinal