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

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'.