Module Disjunctive.Semigroup

include Interface.MAGMA
type t
val append : t -> t -> t