X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_disambiguation%2FgrafiteDisambiguate.mli;h=bedfc4119696b11de816b45f2ec58e841dbf9847;hb=8a5c30a914d7ff665218b31853c6fb4bcf58aa08;hp=019051255bd3f4dde76f8ea334f99ad3949972e6;hpb=d7aca3eacb4bd8dc56223098f92e5370c82f92ff;p=helm.git

diff --git a/matita/components/ng_disambiguation/grafiteDisambiguate.mli b/matita/components/ng_disambiguation/grafiteDisambiguate.mli
index 019051255..bedfc4119 100644
--- a/matita/components/ng_disambiguation/grafiteDisambiguate.mli
+++ b/matita/components/ng_disambiguation/grafiteDisambiguate.mli
@@ -40,11 +40,11 @@ class virtual status :
  end
 
 val eval_with_new_aliases:
- #status as 'status -> ('status -> (#status as 'a)) ->
+ (#status as 'status) -> ('status -> (#status as 'a)) ->
   (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list * 'a
 
 val set_proof_aliases:
- #status as 'status ->
+ (#status as 'status) ->
   implicit_aliases:bool -> (* implicit ones are made explicit *)
   GrafiteAst.inclusion_mode ->
   (DisambiguateTypes.domain_item * GrafiteAst.alias_spec) list -> 'status
@@ -59,13 +59,13 @@ val dump_aliases: (string -> unit) -> string -> #status -> unit
 exception BaseUriNotSetYet
 
 val disambiguate_nterm :
- #status as 'status ->
+ (#status as 'status) ->
  NCic.term NCicRefiner.expected_type -> NCic.context -> NCic.metasenv -> NCic.substitution ->
  NotationPt.term Disambiguate.disambiguator_input ->
    NCic.metasenv * NCic.substitution * 'status * NCic.term
 
 val disambiguate_nobj :
- #status as 'status -> ?baseuri:string ->
+ (#status as 'status) -> ?baseuri:string ->
  (NotationPt.term NotationPt.obj) Disambiguate.disambiguator_input ->
   'status * NCic.obj