apply div_unic_r with (a := x * y) (b := y) (q1 := q) (q2 := x);
auto with arith.
apply is_div_def; inversion_clear H'; auto with arith.
apply le_lt_trans with (m := r); auto with arith.
Qed.

Lemma diveucl_divex :
forall a b : nat,
diveucl a b -> exists q : _, (exists r : _, is_div a b q r).