sig
  type 'a transition = 'T.transition
  val empty : 'a transition
  val iter : ('-> unit) -> 'a transition -> unit
end