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