(*s Definition of the minimum function *)

Definition Dmin (d d' : D) := if Dle d d' then d else d'.

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.