proposition: Lemma has_cofipr_has_fipr : forall a u v, Category.axioms a -> has_cofiprod a u v = has_fiprod (opp a) (flip u) (flip v).
proof: Proof. ir. ap iff_eq; ir. uh H0; ee. am. uhg; ee. uh H0; ee. rwi vee_hypothesis_opp_flip H0. am. am. am. Qed.
imports: Arith colimits little_cat fc_limits cardinal