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