Module 1-Machine.Pair

The pair interface lifted into the monad.

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

fst (x,y) computes x

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

snd (x,y) computes y