sig
  type 'a t
  val create :
    ?complete:(Core_kernel.Std.Univ_map.t -> part:string -> string list) ->
    ?key:'a Core_kernel.Std.Univ_map.Multi.Key.t ->
    (string -> 'a) -> 'a Command.Spec.Arg_type.t
  val of_map :
    ?key:'a Core_kernel.Std.Univ_map.Multi.Key.t ->
    'a Core_kernel.Std.String.Map.t -> 'a Command.Spec.Arg_type.t
  val of_alist_exn :
    ?key:'a Core_kernel.Std.Univ_map.Multi.Key.t ->
    (string * 'a) list -> 'a Command.Spec.Arg_type.t
end