Functor Monoid.Pair

module Pair: 
functor (M1 : S) ->
functor (M2 : S) -> S with type t = M1.t * M2.t
Parameters:
M1 : S
M2 : S

type t 
val append : t -> t -> t
val zero : t