module type ARITH = sig .. end
sig
end
type t
val zero : t
t
val one : t
val add : t -> t -> t
t -> t -> t