End EXTCALL.
(** Change of context corresponding to an inlined tailcall *)

(* Specifications: *)
Lemma align_unchanged:
forall n amount, amount > 0 -> (amount | n) -> align n amount = n.
Lemma match_stacks_inside_inlined_tailcall:
forall fenv F m m' stk stk' f' ctx sp' rs' ctx' f,
match_stacks_inside F m m' stk stk' f' ctx sp' rs' ->
context_below ctx ctx' ->
context_stack_tailcall ctx f ctx' ->
ctx'.(retinfo) = ctx.(retinfo) ->
range_private F m m' sp' ctx.(dstk) f'.(fn_stacksize) ->
tr_funbody fenv f'.(fn_stacksize) ctx' f f'.(fn_code) ->
match_stacks_inside F m m' stk stk' f' ctx' sp' rs'.