(** Preservation by an allocation *)

Lemma match_stacks_inside_alloc_left:
forall F m m' stk stk' f' ctx sp' rs',
match_stacks_inside F m m' stk stk' f' ctx sp' rs' ->
forall sz m1 b F1 delta,
Mem.alloc m 0 sz = (m1, b) ->
inject_incr F F1 ->
F1 b = Some(sp', delta) ->
(forall b1, b1 <> b -> F1 b1 = F b1) ->
delta >= ctx.(dstk) ->
match_stacks_inside F1 m1 m' stk stk' f' ctx sp' rs'.