diff options
| author | delahaye | 2000-06-28 14:33:06 +0000 |
|---|---|---|
| committer | delahaye | 2000-06-28 14:33:06 +0000 |
| commit | 8d595e0592972d29ccf4cbbd6b61f6b1aa06a952 (patch) | |
| tree | 9b4874910cc4fe7cff170e034d0b6369fea287f6 /tactics | |
| parent | 603111ab1d61d87640222dec37e02199f2f8cb52 (diff) | |
Modifs de presentation.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@520 85f007b7-540e-0410-9357-904b9bb8a0f7
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) |