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