End MATCH_STACKS.
(** Preservation by assignment to a register *)

Lemma match_stacks_inside_set_reg:
forall F m m' stk stk' f' ctx sp' rs' r v,
match_stacks_inside F m m' stk stk' f' ctx sp' rs' ->
match_stacks_inside F m m' stk stk' f' ctx sp' (rs'#(sreg ctx r) <- v).