Random (work_selector.Work_selector.Selection

val remove : 
  State.t ->
  ( Transaction_witness.t, Ledger_proof.t ) Snark_work_lib.Work.Single.Spec.t
    One_or_two.t ->
  unit

val work : 
  snark_pool:Network_pool.Snark_pool.t ->
  fee:Currency.Fee.t ->
  logger:Logger.t ->
  State.t ->
  ( Transaction_witness.t, Ledger_proof.t ) Snark_work_lib.Work.Single.Spec.t
    One_or_two.t
    option

val pending_work_statements : 
  snark_pool:Network_pool.Snark_pool.t ->
  fee_opt:Currency.Fee.t option ->
  State.t ->
  Transaction_snark.Statement.t One_or_two.t list