X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fauto.mli;h=557d78194dcf7d82e2f39df30fb21414910718be;hb=5cfd68a5d9e73edb40e1cfe021a1426354767aa8;hp=7150a124687af4e7e72da23a5c4a3cdd0eb7a61f;hpb=beb4e1e9549d5b43e24907dc86c7ef899e487a3c;p=helm.git diff --git a/helm/software/components/tactics/auto.mli b/helm/software/components/tactics/auto.mli index 7150a1246..557d78194 100644 --- a/helm/software/components/tactics/auto.mli +++ b/helm/software/components/tactics/auto.mli @@ -23,21 +23,51 @@ * http://cs.unibo.it/helm/. *) -(* stops at the first solution *) -val auto: - AutoTypes.universe -> - AutoTypes.cache -> - Cic.context -> - Cic.metasenv -> - ProofEngineTypes.goal list -> (* goals in AND *) - AutoTypes.flags -> - (Cic.substitution * Cic.metasenv) option * AutoTypes.cache - -val auto_all_solutions: - AutoTypes.universe -> - AutoTypes.cache -> - Cic.context -> - Cic.metasenv -> - ProofEngineTypes.goal list -> - AutoTypes.flags -> - (Cic.substitution * Cic.metasenv) list * AutoTypes.cache +type auto_params = Cic.term list option * (string * string) list + +val auto_tac: + dbd:HSql.dbd -> + params:auto_params -> + automation_cache:AutomationCache.cache -> + ProofEngineTypes.tactic + +val applyS_tac: + dbd:HSql.dbd -> + term: Cic.term -> + params:auto_params -> + automation_cache:AutomationCache.cache -> + ProofEngineTypes.tactic + +val demodulate_tac : + dbd:HSql.dbd -> + params:auto_params -> + automation_cache:AutomationCache.cache -> + ProofEngineTypes.tactic + +val demodulate_theorem : + automation_cache:AutomationCache.cache -> + UriManager.uri -> + Cic.term * Cic.term + +type auto_status = + Cic.context * + (* or list: goalno, goaltype, grey, depth, candidates: (goalno, c) *) + (int * Cic.term * bool * int * (int * Cic.term Lazy.t) list) list * + (* and list *) + (int * Cic.term * int) list * + (* last moves *) + Cic.term Lazy.t 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 * + int + +val pp_proofterm: Cic.term -> string +val revision : string (* svn revision *) +val size_and_depth : Cic.context -> Cic.metasenv -> Cic.term -> int * int