X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Fdeclarative.mli;h=4693085d2746d3dabcb859d5732e7b6178505dd7;hb=780dd584632c362a0cd01149e23766b62037c971;hp=6e3a7b6960111d7eba970d579a0f1c4649641dde;hpb=36243ef64310a9ea2e51a0295744ab5de7abe055;p=helm.git diff --git a/components/tactics/declarative.mli b/components/tactics/declarative.mli index 6e3a7b696..4693085d2 100644 --- a/components/tactics/declarative.mli +++ b/components/tactics/declarative.mli @@ -27,12 +27,17 @@ val assume : string -> Cic.term -> ProofEngineTypes.tactic val suppose : Cic.term -> string -> Cic.term option -> ProofEngineTypes.tactic -val by_term_we_proved : Cic.term option -> Cic.term -> string -> Cic.term option ->ProofEngineTypes.tactic +val by_term_we_proved : + dbd:HMysql.dbd -> universe:Universe.universe -> Cic.term option -> Cic.term -> + string option -> Cic.term option -> ProofEngineTypes.tactic -val bydone : Cic.term option -> ProofEngineTypes.tactic +val bydone : dbd:HMysql.dbd -> universe:Universe.universe -> Cic.term option -> + ProofEngineTypes.tactic val we_need_to_prove : - Cic.term -> string -> Cic.term option -> ProofEngineTypes.tactic + Cic.term -> string option -> Cic.term option -> ProofEngineTypes.tactic + +val we_proceed_by_cases_on : Cic.term -> Cic.term -> ProofEngineTypes.tactic val we_proceed_by_induction_on : Cic.term -> Cic.term -> ProofEngineTypes.tactic @@ -49,5 +54,7 @@ val andelim : Cic.term -> string -> Cic.term -> string -> Cic.term -> ProofEngineTypes.tactic val rewritingstep : - Cic.term option -> Cic.term -> Cic.term option -> Cic.name option -> - ProofEngineTypes.tactic + dbd:HMysql.dbd -> universe:Universe.universe -> + (string option * Cic.term) option -> Cic.term -> + [ `Term of Cic.term | `Auto of (string * string) list ] -> + bool (* last step *) -> ProofEngineTypes.tactic