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)