let mem () = 
    let x_t =  L.fresh "ta" (Formula.Model t_alloc) in
    {
      vars = Varinfo.Hashtbl.create 10;
      x_alloc = x_t ; 
      alloc = F.var x_t;
    }