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