Section LoKan_id_Cone_Morph_unit.
Context {Cn Cn' : LoKan_Cone p F} (h : LoKan_Cone_Morph Cn Cn').

Theorem LoKan_id_Cone_Morph_unit_left :
LoKan_Cone_Morph_compose h (LoKan_id_Cone_Morph _) = h.