(** Preservation by a memory store *)

Lemma match_stacks_inside_store:
forall F m m' stk stk' f' ctx sp' rs' chunk b ofs v m1 chunk' b' ofs' v' m1',
match_stacks_inside F m m' stk stk' f' ctx sp' rs' ->
Mem.store chunk m b ofs v = Some m1 ->
Mem.store chunk' m' b' ofs' v' = Some m1' ->
match_stacks_inside F m1 m1' stk stk' f' ctx sp' rs'.