sig
  type 'a t
  val required : 'Command.Arg_type.t -> 'Command.Flag.t
  val optional : 'Command.Arg_type.t -> 'a option Command.Flag.t
  val optional_with_default :
    '-> 'Command.Arg_type.t -> 'Command.Flag.t
  val listed : 'Command.Arg_type.t -> 'a list Command.Flag.t
  val one_or_more : 'Command.Arg_type.t -> ('a * 'a list) Command.Flag.t
  val no_arg : bool Command.Flag.t
  val no_arg_register :
    key:'Core_kernel.Std.Univ_map.With_default.Key.t ->
    value:'-> bool Command.Flag.t
  val no_arg_abort :
    exit:(unit -> Core_kernel.Std.never_returns) -> unit Command.Flag.t
  val escape : string list option Command.Flag.t
end