(*
    ||M||  This file is part of HELM, an Hypertextual, Electronic        
    ||A||  Library of Mathematics, developed at the Computer Science     
    ||T||  Department, University of Bologna, Italy.                     
    ||I||                                                                
    ||T||  HELM is free software; you can redistribute it and/or         
    ||A||  modify it under the terms of the GNU General Public License   
    \   /  version 2 or (at your option) any later version.      
     \ /   This software is distributed as is, NO WARRANTY.     
      V_______________________________________________________________ *)

(* $Id$ *)

exception Ambiguous_input
exception DisambiguationError of
 int *
 ((Stdpp.location list * string * string) list *
  (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list *
  (Stdpp.location * string) Lazy.t * bool) list list
  (** parameters are: option name, error message *)
type choose_uris_callback = 
  id:string -> UriManager.uri list -> UriManager.uri list
type choose_interp_callback = 
  string -> int -> (Stdpp.location list * string * string) list list -> 
    int list

val set_choose_uris_callback:   choose_uris_callback -> unit
val set_choose_interp_callback: choose_interp_callback -> unit

val disambiguate_term :
    ?fresh_instances:bool ->
    dbd:HSql.dbd ->
    context:NCic.context ->
    metasenv:NCic.metasenv ->
    subst:NCic.substitution ->
    aliases:DisambiguateTypes.environment ->(* previous interpretation status *)
    universe:DisambiguateTypes.multiple_environment option ->
    ?goal: int ->
    CicNotationPt.term Disambiguate.disambiguator_input ->
    ((DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list *
     NCic.metasenv *                  (* new metasenv *)
     NCic.substitution *
     NCic.term) list *  (* disambiguated term *)
    bool