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

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