End LoKan_Cone_Morph_compose_assoc.
(** id_unit_left and id_unit_right for cone morphs *)
Section LoKan_id_Cone_Morph_unit.
Context {Cn Cn' : LoKan_Cone p F} (h : LoKan_Cone_Morph Cn Cn').

(* Specifications: *)
Theorem LoKan_id_Cone_Morph_unit_right :
LoKan_Cone_Morph_compose (LoKan_id_Cone_Morph _) h = h.
Theorem LoKan_id_Cone_Morph_unit_left :
LoKan_Cone_Morph_compose h (LoKan_id_Cone_Morph _) = h.