let define_array arr =
      let pool = F.pool () in
      let name = F.Arrayinfo.basename arr in
      let path = "array" in
      let xm = F.p_fresh pool "m" (Model M.tau_of_mem) in
      let xa,a = M.forall_loc pool in
      define_access name pool name path (xm::xa) (F.var xm) a (C_array arr)