Section CONSTRUCTORS.
Variable ge: genv.
Variable fn: function.
(** 32-bit integer constants and arithmetic *)
(** 64-bit integer constants and arithmetic *)

Lemma load_hilo64_correct:
forall rd hi lo k rs m,
exists rs',
exec_straight ge fn (load_hilo64 rd hi lo k) rs m k rs' m
/\ rs'#rd = Vlong (Int64.add (Int64.sign_ext 32 (Int64.shl hi (Int64.repr 12))) lo)
/\ forall r, r <> PC -> r <> rd -> rs'#r = rs#r.