(** Cancelable delayed actions *)

type t

val create : {Milliseconds : int,
              Action : transaction {}} -> transaction t
val cancel : t -> transaction {}