diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eauto.ml4 | 7 | ||||
| -rw-r--r-- | tactics/eauto.mli | 6 |
2 files changed, 11 insertions, 2 deletions
diff --git a/tactics/eauto.ml4 b/tactics/eauto.ml4 index 706ba98401..ab62aa9cf5 100644 --- a/tactics/eauto.ml4 +++ b/tactics/eauto.ml4 @@ -365,7 +365,10 @@ let e_search_auto debug (in_depth,p) lems db_list gl = open Evd -let eauto debug np lems dbnames = +let eauto_with_bases debug np lems db_list = + tclTRY (e_search_auto debug np lems db_list) + +let eauto debug np lems dbnames = let db_list = List.map (fun x -> @@ -374,7 +377,7 @@ let eauto debug np lems dbnames = ("core"::dbnames) in tclTRY (e_search_auto debug np lems db_list) - + let full_eauto debug n lems gl = let dbnames = current_db_names () in let dbnames = list_subtract dbnames ["v62"] in diff --git a/tactics/eauto.mli b/tactics/eauto.mli index 34655b1341..d1883aa664 100644 --- a/tactics/eauto.mli +++ b/tactics/eauto.mli @@ -29,3 +29,9 @@ val e_give_exact_constr : constr -> tactic val gen_eauto : bool -> bool * int -> constr list -> hint_db_name list option -> tactic + + +val eauto_with_bases : + bool -> + bool * int -> + Term.constr list -> Auto.Hint_db.t list -> Proof_type.tactic |