(** Rotate and mask. *)

(* Specifications: *)
Lemma rolm_correct:
forall r1 r2 amount mask k (rs : regset) m,
r1 <> GPR0 ->
exists rs',
exec_straight ge fn (rolm r1 r2 amount mask k) rs m  k rs' m
/\ rs'#r1 = Val.rolm rs#r2 amount mask
/\ forall r', important_preg r' = true -> r' <> r1 -> rs'#r' = rs#r'.