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 xa,a = M.forall_loc pool in
define_access name pool name path (xm::xa) (F.var xm) a (C_comp comp)