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 compare_spec : CompSpec eq lt s s' (compare s s').