Section cocone_nt.
Variable T : forall a : J, F a --> c.
Definition CoCone_law :=
forall (i j : J) (g : i --> j), FMor F g o T j =_S T i.
(* comment construire un coCone *)
Coercion Prf_CoCone_nt_law : CoCone_law >-> NT_law.
Variable p : CoCone_law.
Canonical Structure Build_CoCone : CoCone := Build_NT (Prf_CoCone_nt_law p).
End cocone_nt.
Coercion Build_CoCone : CoCone_law >-> CoCone.
(*** rewrite rules ***)

Lemma Co_EqC :
forall (tau : CoCone) (i j : J) (g : i --> j), FMor F g o tau j =_S tau i.