and environment = codomain_item Environment.t
+(** adds a (name,uri) list l to a disambiguation environment e **)
+let env_of_list l e =
+ List.fold_left
+ (fun e (name,descr,t) -> Environment.add (Id name) (descr,fun _ _ _ -> t) e)
+ e l
+
module type Callbacks =
sig
val interactive_user_uri_choice: