let mem () =
let x_m = L.fresh "m" (Formula.Model t_memory) in
let x_t = L.fresh "ta" (Formula.Model t_alloc) in
{
x_store = x_m ;
x_alloc = x_t ;
store = F.var x_m ;
alloc = F.var x_t ;
}