sig
  type 'a setter = No_arg of 'a | Arg of (string -> 'a)
  type ('a, 'flag) t
  val flag : ('a, 'flag) Deprecated_command.Flags_ext.t -> 'flag
  val get : ('a, 'b) Deprecated_command.Flags_ext.t -> 'a
  val is_set : ('a, 'b) Deprecated_command.Flags_ext.t -> bool
  val create_optional :
    name:string ->
    doc:string ->
    'a Deprecated_command.Flags_ext.setter ->
    ('a option, unit Deprecated_command.Flag.t)
    Deprecated_command.Flags_ext.t
  val create :
    ?default:'a * ('a -> string) ->
    name:string ->
    doc:string ->
    'a Deprecated_command.Flags_ext.setter ->
    ('a, unit Deprecated_command.Flag.t) Deprecated_command.Flags_ext.t
  val create_many :
    ?at_least_one:bool ->
    name:string ->
    doc:string ->
    'a Deprecated_command.Flags_ext.setter ->
    ('a list, unit Deprecated_command.Flag.t) Deprecated_command.Flags_ext.t
  val create_choice :
    ?default:'a * ('a -> string) ->
    (string * string * 'a Deprecated_command.Flags_ext.setter) list ->
    ('a, unit Deprecated_command.Flag.t list) Deprecated_command.Flags_ext.t
  val create_choice_optional :
    (string * string * 'a Deprecated_command.Flags_ext.setter) list ->
    ('a option, unit Deprecated_command.Flag.t list)
    Deprecated_command.Flags_ext.t
  val create_set :
    name:string ->
    doc:string ->
    (bool, unit Deprecated_command.Flag.t) Deprecated_command.Flags_ext.t
  val create_rest :
    ?name:string ->
    doc:string ->
    unit ->
    (string list option, unit Deprecated_command.Flag.t)
    Deprecated_command.Flags_ext.t
end