Section FIND_LABEL.
Variable ce: composite_env.
Variable lbl: label.
Variable tyret: type.
End FIND_LABEL.
(** Properties of call continuations *)

Lemma match_cont_is_call_cont:
forall ce tyret nbrk ncnt k tk ce' 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.