fact: Definition Build_IsTerminalMorphism : forall (A : D) (p : morphism C (U A) X) (Ap := CommaCategory.Build_object U !X A tt p) (UniversalProperty : forall (A' : D) (p' : morphism C (U A') X), Contr { m : morphism D A' A | p o U _1 m = p' }), IsTerminalMorphism Ap := @Build_IsInitialMorphism (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