Module type Invariant.S1

type 'a t
val invariant : ( 'a -> unit ) -> 'a t -> unit