intros; case (sumbool_of_bool (Dle d' d)); intro; auto.
Qed.
(*s Definition of the minimum function *)
Definition Dmin (d d' : D) := if Dle d d' then d else d'.

(* Specifications: *)
Lemma Dle_true_Dmin : forall d d' : D, Dle d d' = true -> Dmin d d' = d.
unfold Dmin in |- *; intros d d' H; rewrite H; trivial.