(** Saving the link register *)

(* Specifications: *)
Lemma save_lr_correct:
forall ofs k (rs: regset) m m',
Mem.storev Mint32 m (Val.offset_ptr rs#IR13 ofs) (rs#IR14) = Some m' ->
exists rs',
exec_straight ge fn (save_lr ofs k) rs m k rs' m'
/\ (forall r, if_preg r = true -> r <> IR12 -> rs'#r = rs#r)
/\ (save_lr_preserves_R12 ofs = true -> rs'#IR12 = rs#IR12).