proposition: Corollary uncurry_inj {x y z : C} (f g : x ~> y ⇒ z) : uncurry f ≈ uncurry g → f ≈ g.
proof: Proof. intros. rewrite <- (curry_uncurry f). rewrite <- (curry_uncurry g). rewrites; reflexivity. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Structure.Monoidal.Cartesian Category.Instance.Sets