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_right :
LoKan_Cone_Morph_compose (LoKan_id_Cone_Morph _) h = h.