proposition: Corollary uncurry_comp_r {x y z w : C} (f : z ~> w) (g : x ~> z^y) : f ∘ uncurry g ≈ uncurry (curry (f ∘ eval) ∘ g).
proof: Proof. rewrite curry_comp_l; cat. rewrite <- comp_assoc. rewrite eval_first; reflexivity. Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Structure.Terminal Category.Structure.Cartesian Category.Instance.Sets