fact: Definition comma_category_induced_functor_object_of s d (m : morphism ((A -> C)^op * (B -> C)) s d) (x : fst s / snd s) : (fst d / snd d) := CommaCategory.Build_object (fst d) (snd d) (CommaCategory.a x) (CommaCategory.b x) ((snd m) (CommaCategory.b x) o CommaCategory.f x o (fst m) (CommaCategory.a x)).
imports: Category.Core Functor.Core NaturalTransformation.Core Category.Dual Category.Prod NaturalTransformation.Identity FunctorCategory.Core Cat.Core InitialTerminalCategory.Core InitialTerminalCategory.Functors HoTT.Tactics Basics.Tactics