(** Memory accesses *)

Lemma loadind_ptr_correct:
forall (base: ireg) ofs (dst: ireg) k (rs: regset) m v,
Mem.loadv Mptr m (Val.offset_ptr rs#base ofs) = Some v ->
base <> X31 ->
exists rs',
exec_straight ge fn (loadind_ptr base ofs dst k) rs m k rs' m
/\ rs'#dst = v
/\ forall r, r <> PC -> r <> X31 -> r <> dst -> rs'#r = rs#r.