let quantify m p =
    let xs = Xmap.fold (fun _ vi xs -> vi.v_var::xs) m.vars [] in
       L.forall xs (M.quantify m.mem p)