fact: Definition functor_uncurried : object ((cat^op * cat) -> cat) := Eval cbv zeta in let object_of := (fun CD => (((fst CD).1 -> (snd CD).1); has_functor_categories (fst CD) (snd CD))) in Build_Functor (cat^op * cat) cat object_of (fun CD C'D' FG => pointwise (fst FG) (snd FG)) (fun _ _ _ _ _ => Functor.Pointwise.Properties.composition_of _ _ _ _) (fun _ => Functor.Pointwise.Properties.identity_of _ _).
imports: Category.Core Functor.Core FunctorCategory.Core Functor.Pointwise.Core Functor.Pointwise.Properties Category.Dual Category.Prod Cat.Core ExponentialLaws.Law4.Functors