Parameter Add.M

type t
val zero : t
val (+) : t -> t -> t