proposition: Corollary uncurry_curry {x y z} (f : x ⨂ y ~> z) : uncurry (curry f) ≈ f.
proof: Proof. sapply (iso_from_to (@exp_iso _ x y z)). Qed.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Structure.Monoidal.Cartesian Category.Instance.Sets