"distinct" predicate

[Abhinav-Bhardwaj]

hi,
is there any way by which i can specify a rule say
distinct..which succeeds only when all the terms in a list
are distinct.
for eg:
?- distinct([a, b, c, d]).
yes
?- distinct([a, b, a, d]).
no

thanks in advance,
regards,
Abhinav