X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FgrafiteDisambiguate.mli;h=6565a4d9f0e4887091929e8fec214662597d6a1f;hb=b367de0252e88d6b0476648d5ceac7e4aeffca27;hp=1543387ee355af220bd16cef49974519505dfe82;hpb=154cbc049da8d8c3dd090a919a40c90eb23cc24e;p=helm.git diff --git a/helm/software/components/grafite_parser/grafiteDisambiguate.mli b/helm/software/components/grafite_parser/grafiteDisambiguate.mli index 1543387ee..6565a4d9f 100644 --- a/helm/software/components/grafite_parser/grafiteDisambiguate.mli +++ b/helm/software/components/grafite_parser/grafiteDisambiguate.mli @@ -42,11 +42,11 @@ val disambiguate_tactic: Cic.metasenv * lazy_tactic val disambiguate_command: - LexiconEngine.status -> + LexiconEngine.status as 'status -> ?baseuri:string -> Cic.metasenv -> ((CicNotationPt.term,CicNotationPt.term CicNotationPt.obj) GrafiteAst.command) Disambiguate.disambiguator_input -> - LexiconEngine.status * Cic.metasenv * (Cic.term,Cic.obj) GrafiteAst.command + 'status * Cic.metasenv * (Cic.term,Cic.obj) GrafiteAst.command val disambiguate_macro: LexiconEngine.status ref -> @@ -54,3 +54,25 @@ val disambiguate_macro: Cic.context -> ((CicNotationPt.term,CicNotationPt.term) GrafiteAst.macro) Disambiguate.disambiguator_input -> Cic.metasenv * (Cic.term,Cic.lazy_term) GrafiteAst.macro + +val disambiguate_nterm : + NCic.term option -> + (#NEstatus.status as 'status) -> + NCic.context -> NCic.metasenv -> NCic.substitution -> + CicNotationPt.term Disambiguate.disambiguator_input -> + NCic.metasenv * NCic.substitution * 'status * NCic.term + +val disambiguate_nobj : + #NEstatus.status as 'status -> + ?baseuri:string -> + (CicNotationPt.term CicNotationPt.obj) Disambiguate.disambiguator_input -> + 'status * NCic.obj + +type pattern = + CicNotationPt.term Disambiguate.disambiguator_input option * + (string * NCic.term) list * NCic.term option + +val disambiguate_npattern: + GrafiteAst.npattern Disambiguate.disambiguator_input -> pattern + +