let fresh id vk =
match !context with
| [] ->
Wp_parameters.fatal "Bad context (for %S:%a)" id pp_vkind vk
| c::_ ->
F.p_fresh c.pool id
(match vk with
| Formula.Model t -> Model t
| Formula.Acsl (t,ty) -> Acsl (t,ty)
)