let mem h node =
  let hkey = Hashtbl.hash_param 10 100 node in
  try 
    let _ = find h node hkey in
    true
  with 
      Not_found -> false