let
quantify m p =
L
.forall [m.vbits;m.valloc] p