Verify.Monoid_Any
M : Interface.MONOID_ANY
include sig ... end
module I : sig ... end
val identity : 'a M.t -> bool