Interface.GROUP_ANY
include LOOP_ANY
include QUASIGROUP_ANY
include MAGMA_ANY
type 'a t
val append : 'a t -> 'a t -> 'a t
val empty : 'a t
include MONOID_ANY with type 'a t := 'a t
include SEMIGROUP_ANY
val inverse : 'a t -> 'a t