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