type 'a t =
  1. | Flush : Tezos_crypto.Block_hash.t -> unit t
  2. | Notify : Tezos_base.P2p_peer.Id.t * Tezos_base.Mempool.t -> unit t
  3. | Leftover : unit t
  4. | Inject : Tezos_base.Operation.t -> unit t
  5. | Arrived : Tezos_crypto.Operation_hash.t * Tezos_base.Operation.t -> unit t
  6. | Advertise : unit t
type view =
  1. | View : _ t -> view
val view : 'a t -> view
val encoding : view Data_encoding.t
val pp : Format.formatter -> view -> unit