- LexiconAst merged into GrafiteAst

[helm.git] / matita / components / grafite_parser / grafiteDisambiguate.mli

diff --git a/matita/components/grafite_parser/grafiteDisambiguate.mli b/matita/components/grafite_parser/grafiteDisambiguate.mli
index 2de3a1b6d7ec4880a4014a73dd6f66453dbb2d23..0074b291668f9690936b5571ccc39aa7e0bb5d3e 100644 (file)
--- a/matita/components/grafite_parser/grafiteDisambiguate.mli
+++ b/matita/components/grafite_parser/grafiteDisambiguate.mli
@@ -25,20 +25,28 @@
 
 exception BaseUriNotSetYet
 
-val disambiguate_command: 
- LexiconEngine.status as 'status ->
- GrafiteAst.command Disambiguate.disambiguator_input ->
-  'status * GrafiteAst.command
+class type g_status =
+ object
+  inherit LexiconTypes.g_status
+  inherit NCicCoercion.g_status
+ end
+
+class status :
+ object ('self)
+  inherit LexiconTypes.status
+  inherit NCicCoercion.status
+  method set_grafite_disambiguate_status: #g_status -> 'self
+ end
 
 val disambiguate_nterm :
  NCic.term option -> 
- (#NEstatus.status as 'status) ->
+ (#status as 'status) ->
  NCic.context -> NCic.metasenv -> NCic.substitution ->
  NotationPt.term Disambiguate.disambiguator_input ->
    NCic.metasenv * NCic.substitution * 'status * NCic.term
 
 val disambiguate_nobj :
- #NEstatus.status as 'status ->
+ #status as 'status ->
  ?baseuri:string ->
  (NotationPt.term NotationPt.obj) Disambiguate.disambiguator_input ->
   'status * NCic.obj
@@ -49,5 +57,3 @@ type pattern =
 
 val disambiguate_npattern:
   GrafiteAst.npattern Disambiguate.disambiguator_input -> pattern
-    
-