sig
  type t
  val compare : Model_intf.EVENT.t -> Model_intf.EVENT.t -> int
  val pp : Format.formatter -> Model_intf.EVENT.t -> unit
  val show : Model_intf.EVENT.t -> string
end