X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fauto.mli;h=a40d00fc5970fa4bb569a0213c624ccdeb44f58e;hb=66faca1dc849662e27d760b950294ef66a5741b3;hp=eb612ac3a05221fdbe59be4f1deb1239f414fcc8;hpb=cf4088e2cabcbce9b112f1e1fd5cfd38fe16d427;p=helm.git diff --git a/helm/software/components/tactics/auto.mli b/helm/software/components/tactics/auto.mli index eb612ac3a..a40d00fc5 100644 --- a/helm/software/components/tactics/auto.mli +++ b/helm/software/components/tactics/auto.mli @@ -42,16 +42,31 @@ val demodulate_tac : universe:Universe.universe -> ProofEngineTypes.tactic +val solve_rewrite_tac: + universe:Universe.universe -> + ?steps:int -> + unit -> + ProofEngineTypes.tactic + type auto_status = - Cic.context * (int * Cic.term * bool * int * (int * Cic.term) list) list * + Cic.context * + (* or list: goalno, goaltype, grey, depth, candidates: (goalno, c) *) + (int * Cic.term * bool * int * (int * Cic.term) list) list * + (* and list *) (int * Cic.term * int) list * + (* last moves *) Cic.term list + val get_auto_status : unit -> auto_status val pause: bool -> unit val step : unit -> unit val give_hint : int -> unit +val give_prune_hint : int -> unit val lambda_close : - ?prefix_name:string -> Cic.term -> Cic.metasenv -> Cic.context -> Cic.term + ?prefix_name:string -> Cic.term -> Cic.metasenv -> Cic.context -> Cic.term * + int val pp_proofterm: Cic.term -> string +val revision : string (* svn revision *) +val size_and_depth : Cic.context -> Cic.metasenv -> Cic.term -> int * int