(*s Equality on [D] is decidable *)

(* Specifications: *)
Lemma D_dec : forall d d' : D, {d = d'} + {d <> d'}.
Lemma Dnotle_3_cases :
forall d d' : D, {Dle d d' = false} + {d = d'} + {Dle d' d = false}.
Lemma Dle_noteq_notle :
forall d d' : D, Dle d' d = true -> d <> d' -> Dle d d' = false.
Lemma Dnotle_not_refl : forall d : D, Dle d d <> false.
Lemma Dnotle_elim :
forall d d' : D, Dle d' d = false -> Dle d d' = true /\ d <> d'.