#[global]
  Instance lt_strorder : StrictOrder lt.Local Instance compare_compat_1 : Proper (eq==>Logic.eq==>Logic.eq) compare.#[global]
  Instance compare_compat : Proper (eq==>eq==>Logic.eq) compare.Local Instance lt_compat : Proper (eq==>eq==>iff) lt.

Lemma for_all_spec: forall s f, @compat_bool elt E.eq f -> (for_all f s = true <-> For_all (fun x => f x = true) s).