let is_q q a =
  try
    let p = d_num a in
      Q.equal q p
  with
      Not_found -> false