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; }