X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_disambiguation%2FgrafiteDisambiguate.mli;h=1f5553e912d31875cee67bcd654770c178b1f384;hb=432d0f324b7246c91f20545867c0da4bd25f588e;hp=15dc42ae42ca50333d477f02dc739a7a44fca7ec;hpb=791d52ba005e434be27cca1f8059d9f28da0183b;p=helm.git

diff --git a/matita/components/ng_disambiguation/grafiteDisambiguate.mli b/matita/components/ng_disambiguation/grafiteDisambiguate.mli
index 15dc42ae4..1f5553e91 100644
--- a/matita/components/ng_disambiguation/grafiteDisambiguate.mli
+++ b/matita/components/ng_disambiguation/grafiteDisambiguate.mli
@@ -31,7 +31,7 @@ class type g_status =
   method disambiguate_db: db
  end
 
-class status :
+class virtual status :
  object ('self)
   inherit g_status
   inherit Interpretations.status
@@ -49,7 +49,9 @@ val set_proof_aliases:
   GrafiteAst.inclusion_mode ->
   (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list -> 'status
 
-val add_aliases_for_objs: #status as 'status -> NUri.uri list -> 'status
+val aliases_for_objs:
+ #NCic.status -> NUri.uri list ->
+  (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list
 
 (* args: print function, message (may be empty), status *) 
 val dump_aliases: (string -> unit) -> string -> #status -> unit
@@ -72,7 +74,7 @@ type pattern =
   (string * NCic.term) list * NCic.term option
 
 val disambiguate_npattern:
-  GrafiteAst.npattern Disambiguate.disambiguator_input -> pattern
+ #NCic.status -> GrafiteAst.npattern Disambiguate.disambiguator_input -> pattern
 
 val disambiguate_cic_appl_pattern:
  #status ->