fact: Definition Build_IsInitialMorphism_uncurried : forall (univ : { A : D | { p : morphism C X (U A) | let Ap := CommaCategory.Build_object !X U tt A p in forall (A' : D) (p' : morphism C X (U A')), { m : morphism D A A' | { H : U _1 m o p = p' | forall m', U _1 m' o p = p' -> m = m' }}}}), IsInitialMorphism (CommaCategory.Build_object !X U tt univ.1 univ.2.1) := @make_uncurried _ _ _ _ _ _ _ _ (@Build_IsInitialMorphism_curried).
imports: Category.Core Functor.Core Category.Dual Functor.Dual Category.Objects InitialTerminalCategory.Core InitialTerminalCategory.Functors Trunc Types.Sigma HoTT.Tactics Basics.Tactics