module P2Map: Map.S with type key = Ph_types.process * Ph_types.process
Map.S
with type key = Ph_types.process * Ph_types.process