module type AbelianGroup = sig .. end
sig
end
type t
val equal : t -> t -> bool
t -> t -> bool
val add : t -> t -> t
t -> t -> t
val negate : t -> t
t -> t
val zero : t
t