Module Note.E.Pair

module Pair: sig .. end
Pair events.

val fst : ('a * 'b) Note.event -> 'a Note.event
fst e is map e fst.
val snd : ('a * 'b) Note.event -> 'b Note.event
snd e is map e snd.
val v : 'a Note.event -> 'b Note.event -> ('a * 'b) Note.event
v e0 e1 pair simultaneous occurences of e0 and e1: