Verify.Semigroup_Any
S : Interface.SEMIGROUP_ANY
include sig ... end
module I : sig ... end
val associativity : 'a S.t -> 'a S.t -> 'a S.t -> bool