Module Make.Pair

The pair interface lifted into the monad.

val fst : ('a * 'b) M.t -> 'a M.t

fst (x,y) computes x

val snd : ('a * 'b) M.t -> 'b M.t

snd (x,y) computes y