let fp_size env s =
    if F.term_closed s then s else
      let x = F.fresh env.pool "n" (Model Integerin
      let s' = F.var x in
      env.vars <- x :: env.vars ;
      env.ctxt <- F.p_and env.ctxt (F.p_eq s' s) ; s'