(** Memory accesses *)

Lemma storeind_ptr_correct:
forall (base: ireg) ofs (src: ireg) k (rs: regset) m m',
Mem.storev Mptr m (Val.offset_ptr rs#base ofs) rs#src = Some m' ->
base <> X31 -> src <> X31 ->
exists rs',
exec_straight ge fn (storeind_ptr src base ofs k) rs m k rs' m'
/\ forall r, r <> PC -> r <> X31 -> rs'#r = rs#r.