Section CONSTRUCTORS.
Variable ge: genv.
Variable fn: function.
(** Properties of comparisons. *)
(** Loading a constant. *)
(** Add integer immediate. *)
(** And integer immediate. *)
(** Or integer immediate. *)
(** Xor integer immediate. *)
(** Rotate and mask. *)
(** Load int64 constant. *)

Lemma loadimm64_32s_correct:
forall r n k rs m,
exists rs',
exec_straight ge fn (loadimm64_32s r n k) rs m  k rs' m
/\ rs'#r = Vlong (Int64.sign_ext 32 n)
/\ forall r': preg, r' <> r -> r' <> PC -> rs'#r' = rs#r'.