(*s The order [Dle] extended to $D_{\infty}$ *)
Definition Ddle (dd dd' : option D) :=
  match dd, dd' with
  | _, None => true
  | None, _ => false
  | Some d, Some d' => Dle d d'
  end.

Lemma Ddmin_le_distr_l : forall dd dd' dd'' : option D, Ddle (Ddmin dd dd') dd'' = Ddle dd dd'' || Ddle dd' dd''.