Dual.Semigroup_Any
S : Interface.SEMIGROUP_ANY
include Interface.MAGMA_ANY
type 'a t
val append : 'a t -> 'a t -> 'a t