case (sumbool_of_bool (Dle d d')); intro H'; rewrite H'; auto.
Qed.
Hint Resolve Dle_true_Dmin Dle_inv_Dmin.

Lemma Dmin_assoc :
forall d d' d'' : D, Dmin (Dmin d d') d'' = Dmin d (Dmin d' d'').