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