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