proposition: Lemma comp_fiprod_eq : forall a u v, has_fiprod a u v -> comp a u (fipr1 a u v) = comp a v (fipr2 a u v).
proof: Proof. ir. cp (is_fiprod_fiprod H). uh H0; ee. uh H0; ee. am. Qed.
imports: Arith colimits little_cat fc_limits cardinal