let
rec
list_mem_assoc_id x l =
try
ignore (list_assoc_id x l);
true
with
|
Not_found
->
false