morphism C (U IsTerminalMorphism_object) X := @IsInitialMorphism_morphism C^op D^op X U^op (op_object Ap) M.
Require Import Category.Core Functor.Core. Require Import Category.Dual Functor.Dual. Require Import Category.Objects. Require Import InitialTerminalCategory.Core InitialTerminalCategory.Functors. Import Comma.Core. Require Import Trunc Types.Sigma HoTT.Tactics. Require Import Basics.Tactics.