Description: Define the diagonal functor, which is the functor C --> ( D Func C )
whose object part is x e. C |-> ( y e. D |-> x ) . The value of the
functor at an object x is the constant functor which maps all
objects in D to x and all morphisms to 1 ( x ) . The
morphism part is a natural transformation between these functors, which
takes f : x --> y to the natural transformation with every component
equal to f . (Contributed by Mario Carneiro, 6-Jan-2017)