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))