val disambiguate_command:
LexiconEngine.status ->
- baseuri:string option ->
+ ?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
LexiconEngine.status ref ->
Cic.metasenv ->
Cic.context ->
- (CicNotationPt.term GrafiteAst.macro) Disambiguate.disambiguator_input ->
- Cic.metasenv * Cic.term GrafiteAst.macro
+ ((CicNotationPt.term,CicNotationPt.term) GrafiteAst.macro) Disambiguate.disambiguator_input ->
+ Cic.metasenv * (Cic.term,Cic.lazy_term) GrafiteAst.macro