(** 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).