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