val fst : ('a * 'b * 'c) t -> 'a t
fst (x,y,z) computes x
fst (x,y,z)
x
val snd : ('a * 'b * 'c) t -> 'b t
snd (x,y,z computes y
snd (x,y,z
y
val trd : ('a * 'b * 'c) t -> 'c t
trd (x,y,z) computes z
trd (x,y,z)
z
