let quantify m p =
    L.forall [m.x_store;m.x_alloc] p