let quantify m p = let xs = Varinfo.Hashtbl.fold (fun _ v xs -> v::xs) m.vars [] in L.forall (m.x_alloc::xs) p