Fixpoint STexists_ (f : STelt -> bool) (s : STt) :=
match s with
| nil      => false
| hd :: tl => f hd || STexists_ f tl
end.
Fixpoint STmem elt l :=
match l with
| nil      => false
| hd :: tl => if eqST_dec hd elt then true else STmem elt tl
end.

Lemma STempty_b : forall y : STelt, STmem y STempty = false.