let rec list_assoc_id x = function
  | (a, b) :: t when x.vd_ident = a.vd_ident -> b
  | _ :: t -> list_assoc_id x t
  | [] -> raise Not_found