X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fauto.mli;h=cfb31a8c4c15a7f62d0b5405e89143ea7139dfe7;hb=18825eb46860edafe9b1082b2ed4c679778a4ce8;hp=f0bc752f670fe624e7be58be3fae4a7d6e190c69;hpb=750d027aedc76aac9def8885dc2bdb6ccdc049d9;p=helm.git diff --git a/helm/software/components/tactics/auto.mli b/helm/software/components/tactics/auto.mli index f0bc752f6..cfb31a8c4 100644 --- a/helm/software/components/tactics/auto.mli +++ b/helm/software/components/tactics/auto.mli @@ -25,30 +25,43 @@ (* stops at the first solution *) val auto_tac: - dbd:HMysql.dbd -> + dbd:HSql.dbd -> params:(string * string) list -> universe:Universe.universe -> ProofEngineTypes.tactic val applyS_tac: - dbd:HMysql.dbd -> + dbd:HSql.dbd -> term: Cic.term -> params:(string * string) list -> universe:Universe.universe -> ProofEngineTypes.tactic val demodulate_tac : - dbd:HMysql.dbd -> + dbd:HSql.dbd -> universe:Universe.universe -> ProofEngineTypes.tactic +val solve_rewrite_tac: + universe:Universe.universe -> + ?steps:int -> + unit -> + ProofEngineTypes.tactic + type auto_status = - Cic.context * (Cic.term * (int * Cic.term) list) list * Cic.term list * + Cic.context * (int * Cic.term * bool * int * (int * Cic.term) list) list * + (int * Cic.term * int) list * Cic.term list val get_auto_status : unit -> auto_status val pause: bool -> unit val step : unit -> unit val give_hint : int -> unit -(* -val cic2grafite : Cic.context -> Cic.metasenv -> Cic.term -> string -*) +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