sig
  val send_time_event : Sent_message_map.msg_info_t -> unit Lazy.t
  val get_last_msg_sent :
    (Common_types.proc_info -> Host_info_map.ident_info_t) ->
    Common_types.proc_info -> Message_ident.message_id * float
end