X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaEngine.mli;h=a3c54dea6a22537954f744fd4917965552528d6a;hb=aa0d60227b785da3355b31519ba11cb4fbd2c925;hp=f0730bcca1ddb193a819a880b0ada527e636c878;hpb=358cefe50cccd4cb7d8e2a9cecb7efcb5780b8a3;p=helm.git diff --git a/helm/matita/matitaEngine.mli b/helm/matita/matitaEngine.mli index f0730bcca..a3c54dea6 100644 --- a/helm/matita/matitaEngine.mli +++ b/helm/matita/matitaEngine.mli @@ -23,24 +23,46 @@ * http://helm.cs.unibo.it/ *) -(*val eval_ast:*) +val eval_ast : + ?do_heavy_checks:bool -> + ?clean_baseuri:bool -> + LexiconEngine.status -> + GrafiteTypes.status -> + (CicNotationPt.term, CicNotationPt.term, + CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string) + GrafiteAst.statement -> + ((GrafiteTypes.status * LexiconEngine.status) * + (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option + ) list -val eval_string: MatitaTypes.status -> string -> MatitaTypes.status -val eval_from_stream: - MatitaTypes.status -> char Stream.t -> - (MatitaTypes.status -> - (CicAst.term,TacticAst.obj,string) TacticAst.statement -> unit) -> - MatitaTypes.status - -val eval_ast: - MatitaTypes.status -> - (CicAst.term,TacticAst.obj,string) TacticAst.statement -> - MatitaTypes.status - -val eval: - MatitaTypes.status -> (Cic.term,Cic.obj,string) TacticAst.statement -> - MatitaTypes.status - -val initial_status: MatitaTypes.status lazy_t +(* heavy checks slow down the compilation process but give you some interesting + * infos like if the theorem is a duplicate *) +val eval_string : + first_statement_only:bool -> + include_paths:string list -> + ?do_heavy_checks:bool -> + ?clean_baseuri:bool -> + LexiconEngine.status -> + GrafiteTypes.status -> + string -> + ((GrafiteTypes.status * LexiconEngine.status) * + (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option + ) list +val eval_from_stream : + first_statement_only:bool -> + include_paths:string list -> + ?prompt:bool -> + ?do_heavy_checks:bool -> + ?clean_baseuri:bool -> + LexiconEngine.status -> + GrafiteTypes.status -> + Ulexing.lexbuf -> + (GrafiteTypes.status -> + (CicNotationPt.term, CicNotationPt.term, + CicNotationPt.term GrafiteAst.reduction, CicNotationPt.obj, string) + GrafiteAst.statement -> unit) -> + ((GrafiteTypes.status * LexiconEngine.status) * + (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) option + ) list