let
nset_mem set n =
try
let
_ =
IntMap
.find (get_id n) set
in
true
with
Not_found
->
false