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

(** Composition of cone morphs is associative. *)
Theorem LoKan_Cone_Morph_compose_assoc :
LoKan_Cone_Morph_compose h (LoKan_Cone_Morph_compose h' h'') =
LoKan_Cone_Morph_compose (LoKan_Cone_Morph_compose h h') h''.