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