foralls in newtypes