Section CONSTRUCTORS.
Variable ge: genv.
Variable fn: function.
(** Smart constructor for moves. *)
(** Properties of division *)

Lemma divlu_modlu_exists:
forall v1 v2,
Val.divlu v1 v2 <> None \/ Val.modlu v1 v2 <> None ->
exists n d q r,
v1 = Vlong n /\ v2 = Vlong d
/\ Int64.divmodu2 Int64.zero n d = Some(q, r)
/\ Val.divlu v1 v2 = Some (Vlong q) /\ Val.modlu v1 v2 = Some (Vlong r).