module Invariant: sig .. end
sig
end
type 'a t = 'a -> unit
'a
'a -> unit
type 'a inv = 'a t
'a t
module type S1 = sig .. end
module type S2 = sig .. end
module type S3 = sig .. end