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