Spec.Argmodule D = DeadlockDomain.MayLockEventsmodule V : sig ... endmodule G : sig ... endval side_lock_event_pair :
('a, G.t, 'b, ValueDomain.Addr.t) Analyses.man ->
(ValueDomain.Addr.t * Node.t * MCPAccess.A.t) ->
(G.key * Node.t * MCPAccess.A.t) ->
unitval part_access : ('a, 'b, 'c, 'd) Analyses.man -> MCPAccess.A.tval add :
(D.t, G.t, 'a, ValueDomain.Addr.t) Analyses.man ->
LockDomain.AddrRW.t ->
D.tval remove : (D.t, 'a, 'b, 'c) Analyses.man -> ValueDomain.Addr.t -> D.t