(** Properties of division *)

Lemma divu_modu_exists:
forall v1 v2,
Val.divu v1 v2 <> None \/ Val.modu v1 v2 <> None ->
exists n d q r,
v1 = Vint n /\ v2 = Vint d
/\ Int.divmodu2 Int.zero n d = Some(q, r)
/\ Val.divu v1 v2 = Some (Vint q) /\ Val.modu v1 v2 = Some (Vint r).