diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.ml | 2 | ||||
| -rw-r--r-- | tactics/eauto.ml | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 2a98b8e2fb..067d610fec 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -510,7 +510,7 @@ let fmt_hint_term cl = in if valid_dbs = [] then [<'sTR "No hint applicable for current goal" >] - else + else [< 'sTR "Applicable Hints :"; prlist (fun (name,db,hintlist) -> [< 'sTR " In the database "; 'sTR name; diff --git a/tactics/eauto.ml b/tactics/eauto.ml index 69d4e59c62..74d49114ba 100644 --- a/tactics/eauto.ml +++ b/tactics/eauto.ml @@ -16,8 +16,7 @@ open Pattern open Clenv open Auto -let e_give_exact c gl = - tclTHEN (unify (pf_type_of gl c)) (Tactics.exact c) gl +let e_give_exact c gl = tclTHEN (unify (pf_type_of gl c)) (Tactics.exact c) gl let assumption id = e_give_exact (VAR id) |