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