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