X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_disambiguation%2FgrafiteDisambiguate.mli;h=0babba2722ebd45c4023521dc506f3ab49be912e;hb=6d4277977478ef9bcadaffbef3d4bb04ac0250a5;hp=c75cfb3a53bdeee1871d9c5997420ca2dfee01e2;hpb=a2412e41cda18a25d780ae631ee02d6ae05c52b1;p=helm.git

diff --git a/matitaB/components/ng_disambiguation/grafiteDisambiguate.mli b/matitaB/components/ng_disambiguation/grafiteDisambiguate.mli
index c75cfb3a5..0babba272 100644
--- a/matitaB/components/ng_disambiguation/grafiteDisambiguate.mli
+++ b/matitaB/components/ng_disambiguation/grafiteDisambiguate.mli
@@ -39,15 +39,20 @@ class virtual status :
   method set_disambiguate_status: #g_status -> 'self
  end
 
-val eval_with_new_aliases:
+(* val eval_with_new_aliases:
  #status as 'status -> ('status -> 'a) ->
-  (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list * 'a
+  ((Stdpp.location * DisambiguateTypes.domain_item) * GrafiteAst.alias_spec) list * 'a
+*)
 
-val set_proof_aliases:
+val get_interpr : db -> GrafiteAst.alias_spec DisambiguateTypes.InterprEnv.t 
+
+val add_to_interpr:
+ #status as 'status ->
+  (Stdpp.location * GrafiteAst.alias_spec) list -> 'status 
+
+val add_to_disambiguation_univ:
  #status as 'status ->
-  implicit_aliases:bool -> (* implicit ones are made explicit *)
-  GrafiteAst.inclusion_mode ->
-  (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list -> 'status
+  (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list -> 'status 
 
 val aliases_for_objs:
  #NCic.status -> NUri.uri list ->
@@ -62,12 +67,12 @@ val disambiguate_nterm :
  #status as 'status ->
  NCic.term option -> NCic.context -> NCic.metasenv -> NCic.substitution ->
  NotationPt.term Disambiguate.disambiguator_input ->
-   NotationPt.term * NCic.metasenv * NCic.substitution * 'status * NCic.term
+   NCic.metasenv * NCic.substitution * 'status * NCic.term
 
 val disambiguate_nobj :
  #status as 'status -> ?baseuri:string ->
  (NotationPt.term NotationPt.obj) Disambiguate.disambiguator_input ->
-  'status * NCic.obj
+ 'status * NCic.obj
 
 type pattern = 
   NotationPt.term Disambiguate.disambiguator_input option *