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