(** [match_cont] and call continuations. *)

(* Specifications: *)
Lemma match_cont_change_cenv:
forall f cenv k tk m bound tbound cenv',
match_cont f cenv k tk m bound tbound ->
is_call_cont k ->
match_cont f cenv' k tk m bound tbound.
Lemma match_cont_is_call_cont:
forall f cenv k tk m bound tbound,
match_cont f cenv k tk m bound tbound ->
is_call_cont k ->
is_call_cont tk.
Lemma match_cont_call_cont:
forall f cenv k tk m bound tbound,
match_cont f cenv k tk m bound tbound ->
forall cenv',
match_cont f cenv' (call_cont k) (call_cont tk) m bound tbound.