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