generalize (euclide a b H);intros.
elim s;intro q;intro.
elim p;intro r;intro.
tauto.
Qed.

(** Euclide division is unique *)
Lemma euclide_unique : forall (a b q r q' r':nat),(b<>O)->a=b*q+r->a=b*q'+r'->r<b->r'<b->(q=q')/\(r=r').
intros.