Subtractive.Medial_Quasigroup
include Interface.MEDIAL_MAGMA
include Interface.MAGMA
type t
val append : t -> t -> t