Definition elements (s : t) : list elt := let (l, _) := elements s in l.

(* Specifications: *)
Lemma elements_1 : forall (s : t) (x : elt), In x s -> InA E.eq x (elements s).
Lemma elements_2 : forall (s : t) (x : elt), InA E.eq x (elements s) -> In x s.
Lemma elements_3 : forall s : t, sort E.lt (elements s).
Lemma elements_3w : forall s : t, NoDupA E.eq (elements s).