let term_such_that tau phi =
    match !context with
      | [] -> Wp_parameters.fatal "No context opened for constraints"
      | c::_ ->
          let x = F.p_fresh c.pool "X" (Model tau) in
          let t = F.var x in
          c.bindings <- Any(x,phi t) :: c.bindings ; t