let define_comp comp =
      let pool = F.pool () in
      let name = D.Compinfo.basename comp in
      let path = comp.cname in
      let xm = F.fresh pool "m" (Model M.tau_of_mem) in
      let xr = F.fresh pool "r" (Model (Record comp)) in
      let xa,a = M.forall_loc pool in
      define_update name pool name path 
        (xm::xr::xa) (F.var xm) a (C_comp comp) (F.var xr)