(** Commutation between [find_label] and compilation *)
Section FIND_LABEL.
Variable lbl: label.
Variable cenv: compilenv.
Variable cs: callstack.

Lemma transl_lblstmt_find_label_context:
forall xenv ls body ts tk1 tk2 ts' tk',
transl_lblstmt cenv (switch_env ls xenv) ls body = OK ts ->
transl_lblstmt_cont cenv xenv ls tk1 tk2 ->
find_label lbl body tk2 = Some (ts', tk') ->
find_label lbl ts tk1 = Some (ts', tk').