X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fcomponents%2Fng_disambiguation%2FgrafiteDisambiguate.mli;h=019051255bd3f4dde76f8ea334f99ad3949972e6;hb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;hp=f19ea836a662afc1cb1a679a8b0a2e6774fdb619;hpb=2ab652e8e37ad8459510eeff3741b0b16e00d8fb;p=helm.git

diff --git a/matita/components/ng_disambiguation/grafiteDisambiguate.mli b/matita/components/ng_disambiguation/grafiteDisambiguate.mli
index f19ea836a..019051255 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
@@ -40,7 +40,7 @@ class status :
  end
 
 val eval_with_new_aliases:
- #status as 'status -> ('status -> 'a) ->
+ #status as 'status -> ('status -> (#status as 'a)) ->
   (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list * 'a
 
 val set_proof_aliases:
@@ -50,7 +50,8 @@ val set_proof_aliases:
   (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list -> 'status
 
 val aliases_for_objs:
-  NUri.uri list -> (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list
+ #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
@@ -59,7 +60,7 @@ exception BaseUriNotSetYet
 
 val disambiguate_nterm :
  #status as 'status ->
- NCic.term option -> NCic.context -> NCic.metasenv -> NCic.substitution ->
+ NCic.term NCicRefiner.expected_type -> NCic.context -> NCic.metasenv -> NCic.substitution ->
  NotationPt.term Disambiguate.disambiguator_input ->
    NCic.metasenv * NCic.substitution * 'status * NCic.term
 
@@ -73,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 ->