(** Loading a constant. *)

(* Specifications: *)
Lemma loadimm_correct:
forall r n k rs m,
exists rs',
exec_straight ge fn (loadimm r n k) rs m  k rs' m
/\ rs'#r = Vint n
/\ forall r': preg, r' <> r -> r' <> PC -> rs'#r' = rs#r'.
Lemma loadimm_correct:
forall r n k rs m,
exists rs',
exec_straight ge fn (loadimm r n k) rs m  k rs' m
/\ rs'#r = Vint n
/\ forall r': preg, r' <> r -> if_preg r' = true -> rs'#r' = rs#r'.