End FIND_LABEL.
(** Properties of call continuations *)

(* Specifications: *)
Lemma match_cont_call_cont:
forall ce' tyret' nbrk' ncnt' ce tyret nbrk ncnt k tk,
match_cont ce tyret nbrk ncnt k tk ->
match_cont ce' tyret' nbrk' ncnt' (Clight.call_cont k) (call_cont tk).
Lemma match_cont_is_call_cont:
forall ce tyret nbrk ncnt k tk ce' tyret' nbrk' ncnt',
match_cont ce tyret nbrk ncnt k tk ->
Clight.is_call_cont k ->
match_cont ce' tyret' nbrk' ncnt' k tk /\ is_call_cont tk.