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

Lemma Dmin_le_5 :
forall d d' d'' : D,
Dle d d' = true -> Dle d d'' = true -> Dle d (Dmin d' d'') = true.