Bastet__Dual.Semigroup
S : Bastet.Interface.SEMIGROUP
include Bastet.Interface.MAGMA
type t
val append : t -> t -> t