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

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