Section MATCH_STACKS.
Variable F: meminj.
Variables m m': mem.
Variable F1: meminj.
Variables m1 m1': mem.
Hypothesis INCR: inject_incr F F1.
End MATCH_STACKS.
(** Preservation by assignment to a register *)
(** Preservation by a memory store *)
(** 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'.