fact: Definition pairing {A B : Type} (p : A * B) : p = (fst p, snd p) := match p with (x, y) => eq_refl end.
imports: Category.Lib Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Theory.Natural.Transformation Category.Structure.Cartesian Category.Structure.Cartesian.Closed Category.Instance.Fun Category.Instance.Cat Category.Instance.Cat.Cartesian Category.Instance.Sets