Process.PiSourcetype Resource.pi += | Process : ('t,
(module PROCESS
with type t = 't
and type tag = 'tag),
[> 'tag ty ])
Resource.pitype Resource.pi += | Mgr : ('t, (module MGR with type t = 't and type tag = 'tag), [> 'tag mgr_ty ])
Resource.pi