(** Code tail property for translations *)

(* Specifications: *)
Lemma is_tail_save_callee_save:
forall l ofs k,
is_tail k (save_callee_save_rec l ofs k).
Lemma is_tail_restore_callee_save:
forall l ofs k,
is_tail k (restore_callee_save_rec l ofs k).
Lemma is_tail_transl_instr:
forall fe i k,
is_tail k (transl_instr fe i k).
Lemma is_tail_transl_code:
forall fe c1 c2, is_tail c1 c2 -> is_tail (transl_code fe c1) (transl_code fe c2).
Lemma is_tail_transf_function:
forall f tf c,
transf_function f = OK tf ->
is_tail c (Linear.fn_code f) ->
is_tail (transl_code (make_env (function_bounds f)) c) (fn_code tf).