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