let intersection_size (k,r) dom = Biocaml_iset.( match Map.find dom k with | Some x -> inter Range.(add_range empty r.lo r.hi) x |! cardinal | None -> 0 )