Section Cone_Morph_to_Cone_for_LoKan_Unique.
Context {Cn : LoKan_Cone p F} (M M' : LoKan_Cone_Morph Cn Cone_for_LoKan).

(** Cone morph to the cone constructed is unique. *)
Theorem Cone_Morph_to_Cone_for_LoKan_Unique : (M = M' :> (_ –≻ _)%nattrans).