exception BaseUriNotSetYet
+type tactic =
+ (CicNotationPt.term, CicNotationPt.term,
+ CicNotationPt.term GrafiteAst.reduction, string)
+ GrafiteAst.tactic
+
+type lazy_tactic =
+ (Cic.term, Cic.lazy_term, Cic.lazy_term GrafiteAst.reduction, string)
+ GrafiteAst.tactic
+
val disambiguate_tactic:
LexiconEngine.status ref ->
Cic.context ->
Cic.metasenv ->
- (CicNotationPt.term, CicNotationPt.term, CicNotationPt.term GrafiteAst.reduction, string) GrafiteAst.tactic ->
- Cic.metasenv *
- (Cic.term, Cic.lazy_term, Cic.lazy_term GrafiteAst.reduction, string) GrafiteAst.tactic
+ tactic Disambiguate.disambiguator_input ->
+ Cic.metasenv * lazy_tactic
val disambiguate_command:
LexiconEngine.status ->
baseuri:string option ->
Cic.metasenv ->
- CicNotationPt.obj GrafiteAst.command ->
+ (CicNotationPt.obj GrafiteAst.command) Disambiguate.disambiguator_input ->
LexiconEngine.status * Cic.metasenv * Cic.obj GrafiteAst.command
val disambiguate_macro:
LexiconEngine.status ref ->
Cic.metasenv ->
Cic.context ->
- CicNotationPt.term GrafiteAst.macro ->
+ (CicNotationPt.term GrafiteAst.macro) Disambiguate.disambiguator_input ->
Cic.metasenv * Cic.term GrafiteAst.macro