let
add_elt_a e s =
if
(
List
.mem) e s
then
s
else
(e::s)