fact: Definition lax_slice_category_over : PreCategory := @lax_slice_category _ cat a (Pseudofunctor.Identity.identity P) _.
imports: Functor.Core Category.Dual InitialTerminalCategory.Core InitialTerminalCategory.Pseudofunctors Cat.Core Category.Strict NaturalTransformation.Paths Pseudofunctor.Core