let fresh_addr lv : F.var =
debug "[fresh_addr] of %a" !Ast_printer.d_logic_var lv;
let tau = Formula.Pointer (M.tau_of_loc) in
let x = L.fresh lv.lv_name (Formula.Model tau) in
debug "[fresh_addr] of %a : %a" !Ast_printer.d_logic_var lv F.pp_var x;
x