sig
  type 'a t
  val name : 'a Deprecated_command.Flag.t -> string
  type ('a, 'b) create =
      string ->
      ?aliases:string list ->
      ?full_flag_required:bool ->
      'b -> doc:string -> 'a Deprecated_command.Flag.t
  val of_arg : Core.Std.Arg.t -> unit Deprecated_command.Flag.t
  val noarg : (unit, unit -> unit) Deprecated_command.Flag.create
  val string : (unit, string -> unit) Deprecated_command.Flag.create
  val int : (unit, int -> unit) Deprecated_command.Flag.create
  val float : (unit, float -> unit) Deprecated_command.Flag.create
  val bool : (unit, bool -> unit) Deprecated_command.Flag.create
  val gen :
    (string -> 'gen) -> (unit, 'gen -> unit) Deprecated_command.Flag.create
  val set_string :
    (unit, string Pervasives.ref) Deprecated_command.Flag.create
  val set_string_opt :
    (unit, string option Pervasives.ref) Deprecated_command.Flag.create
  val set_int : (unit, int Pervasives.ref) Deprecated_command.Flag.create
  val set_int_opt :
    (unit, int option Pervasives.ref) Deprecated_command.Flag.create
  val set_float : (unit, float Pervasives.ref) Deprecated_command.Flag.create
  val set_float_opt :
    (unit, float option Pervasives.ref) Deprecated_command.Flag.create
  val set_date :
    (unit, Core.Std.Date.t Pervasives.ref) Deprecated_command.Flag.create
  val set_date_opt :
    (unit, Core.Std.Date.t option Pervasives.ref)
    Deprecated_command.Flag.create
  val set : (unit, bool Pervasives.ref) Deprecated_command.Flag.create
  val clear : (unit, bool Pervasives.ref) Deprecated_command.Flag.create
  val set_gen :
    (string -> 'gen) ->
    (unit, 'gen Pervasives.ref) Deprecated_command.Flag.create
  val set_gen_opt :
    (string -> 'gen) ->
    (unit, 'gen option Pervasives.ref) Deprecated_command.Flag.create
  val noarg_acc : ('a, 'a -> 'a) Deprecated_command.Flag.create
  val string_acc : ('a, 'a -> string -> 'a) Deprecated_command.Flag.create
  val int_acc : ('a, 'a -> int -> 'a) Deprecated_command.Flag.create
  val bool_acc : ('a, 'a -> bool -> 'a) Deprecated_command.Flag.create
  val float_acc : ('a, 'a -> float -> 'a) Deprecated_command.Flag.create
  val date_acc :
    ('a, 'a -> Core.Std.Date.t -> 'a) Deprecated_command.Flag.create
  val rest_acc : ('a, 'a -> string list -> 'a) Deprecated_command.Flag.create
  val gen_acc :
    (string -> 'gen) -> ('a, 'a -> 'gen -> 'a) Deprecated_command.Flag.create
  val noarg_mut : ('a, 'a -> unit) Deprecated_command.Flag.create
  val arg_mut : ('a, 'a -> string -> unit) Deprecated_command.Flag.create
  val string_mut : ('a, 'a -> string -> unit) Deprecated_command.Flag.create
  val int_mut : ('a, 'a -> int -> unit) Deprecated_command.Flag.create
  val bool_mut : ('a, 'a -> bool -> unit) Deprecated_command.Flag.create
  val float_mut : ('a, 'a -> float -> unit) Deprecated_command.Flag.create
  val date_mut :
    ('a, 'a -> Core.Std.Date.t -> unit) Deprecated_command.Flag.create
  val rest_mut :
    ('a, 'a -> string list -> unit) Deprecated_command.Flag.create
  val gen_mut :
    (string -> 'gen) ->
    ('a, 'a -> 'gen -> unit) Deprecated_command.Flag.create
  module Action :
    sig
      type 'accum t
      val noarg : ('accum -> unit) -> 'accum Deprecated_command.Flag.Action.t
      val arg :
        ('accum -> string -> unit) -> 'accum Deprecated_command.Flag.Action.t
      val rest :
        ('accum -> string list -> unit) ->
        'accum Deprecated_command.Flag.Action.t
      val int :
        ('accum -> int -> unit) -> 'accum Deprecated_command.Flag.Action.t
      val bool :
        ('accum -> bool -> unit) -> 'accum Deprecated_command.Flag.Action.t
      val float :
        ('accum -> float -> unit) -> 'accum Deprecated_command.Flag.Action.t
    end
  val create :
    ?aliases:string list ->
    ?full_flag_required:bool ->
    name:string ->
    doc:string ->
    'a Deprecated_command.Flag.Action.t -> 'a Deprecated_command.Flag.t
  val lift :
    'a Deprecated_command.Flag.t ->
    project:('b -> 'a * ('a -> 'b)) -> 'b Deprecated_command.Flag.t
  val lift_unit :
    unit Deprecated_command.Flag.t -> 'any Deprecated_command.Flag.t
  val to_spec :
    ('accum -> 'accum) Pervasives.ref ->
    'accum Deprecated_command.Flag.t -> ('c, 'c) Core.Std.Command.Spec.t
  val to_spec_unit :
    unit Deprecated_command.Flag.t -> ('c, 'c) Core.Std.Command.Spec.t
  val to_spec_units :
    unit Deprecated_command.Flag.t list -> ('c, 'c) Core.Std.Command.Spec.t
end