fact: Definition coslice_category_over_projection (a : A) : Functor (a \ A) A := Eval simpl in snd o comma_category_projection _ 1.
imports: Category.Core Functor.Core Category.Prod Functor.Prod.Core Functor.Composition.Core Functor.Identity InitialTerminalCategory.Functors Types.Prod