let forall_loc pool = let p = F.fresh pool "p" (Formula.Model Formula.Integer) in [p] , (Tint.xaddr_of_integer (F.var p))