proposition: Corollary uncurry_comp {x y z w : C} (f : y ~> w^z) (g : x ~> y) : uncurry (f ∘ g) ≈ uncurry f ∘ first g.
proof: Proof. intros. apply curry_inj; cat. rewrite <- curry_comp_l; cat. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Structure.Terminal Category.Structure.Cartesian Category.Instance.Sets