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

Lemma match_cont_is_call_cont:
forall j tyret nbrk ncnt k tk tyret' nbrk' ncnt',
match_cont j tyret nbrk ncnt k tk ->
Clight.is_call_cont k ->
match_cont j tyret' nbrk' ncnt' k tk /\ is_call_cont tk.