proposition: Corollary curry_inj {x y z : C} (f g : x × y ~> z) : curry f ≈ curry g → f ≈ g.
proof: Proof. intros. rewrite <- (uncurry_curry f). rewrite <- (uncurry_curry g). rewrites; reflexivity. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Structure.Terminal Category.Structure.Cartesian Category.Instance.Sets