Module E := D.Definition compare (s s':t) := M.compare s s'.Definition min_elt (s:t) : option elt := M.min_elt s.Definition max_elt (s:t) : option elt := M.max_elt s.Definition lt (s s':t) := M.lt s s'.(** Specification of [lt] *)
  Instance lt_strorder : StrictOrder lt.Instance lt_compat : Proper (eq==>eq==>iff) lt.

Lemma choose_spec3 : choose s = Some x -> choose s' = Some y -> Equal s s' -> O.eq x y.