sig
  class type progress_indicator =
    object
      method display : ?force:bool -> int * int -> unit
      method finish : unit
      method set_decimation : int -> unit
      method set_label : string -> unit
      method start : unit
      method warn : string -> unit
    end
  class indicator :
    decimation:int ->
    label:string ->
    channel:Pervasives.out_channel -> unit -> progress_indicator
  class formatter_indicator :
    decimation:int ->
    label:string -> fmt:Format.formatter -> unit -> progress_indicator
  val dummy : Progress.progress_indicator
end