(** The identity natural transformation. The arrow family are just all identity arrows: *)
Program Definition NatTrans_id (F : (C –≻ C')%functor) : F –≻ F :=
{|
Trans := fun x : Obj => id
|}.

(* Specifications: *)
Theorem NatTrans_id_unit_left {F G : (C –≻ C')%functor} (N : F –≻ G)
: (NatTrans_id G) ∘ N = N.
Theorem NatTrans_id_unit_right {F G : (C –≻ C')%functor} (N : F –≻ G)
: N ∘ (NatTrans_id F) = N.