intros.
case (Dle_total d d'); intro H'; auto.
case diff_true_false.
rewrite <- H'; trivial.
Qed.

Lemma Dnotle_plus_mono :
forall d d' d'' d''' : D,
Dle d d' = false ->
Dle d'' d''' = false -> Dle (Dplus d d'') (Dplus d' d''') = false.