Module type Async.S2

type ('a, 'b) t
val invariant : 'a Async.inv -> 'b Async.inv -> ('a'b) t Async.inv