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.

(* Specifications: *)
Lemma Eq_coCone : forall tau : CoCone, CoCone_law (ApNT tau).
(*** rewrite rules ***)
Lemma Co_EqC :
forall (tau : CoCone) (i j : J) (g : i --> j), FMor F g o tau j =_S tau i.
Lemma Co_EqC1 :
forall (tau : CoCone) (i j : J) (g : i --> j), tau i =_S FMor F g o tau j.