let fresh_local lv : F.var = let lt = lv.lv_type in let tau = M.tau_of_logic_type lt in L.fresh lv.lv_name (Formula.Acsl(tau,lt))