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)
              )