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