(** * Elements *)

Notation eqk := (PX.eqk (elt:= elt)).Notation eqke := (PX.eqke (elt:= elt)).Notation ltk := (PX.ltk (elt:= elt)).

Lemma elements_aux_sort : forall (s:t elt) acc, bst s -> sort ltk acc -> (forall x e y, InA eqke (x,e) acc -> In y s -> X.lt y x) -> sort ltk (elements_aux acc s).