let quantify_at_label env label p =
try
let m = find_mem_at env label in
let l = match logic_of_mem m with
| None -> []
| Some tbl -> Varinfo.Hashtbl.fold (fun _ v l -> v::l) tbl []
in
let ma = valloc_of_mem m in
let mb = vbits_of_mem m in
let l = ma::mb::l in
D.forall l p
with Not_found -> p