diff options
| author |  mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-06 13:30:43 +0000 |
|---|---|---|
| committer | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-03-06 13:30:43 +0000 |
| commit | 86e9bba21d7a5a2d9cb092476b94f1df2370cdfa (patch) | |
| tree | c27fbde1281efb0239e9136b8237253ebe24c397 /tactics | |
| parent | 6a02dbe7c38cdec8076a4d1db427c5b5095f34a3 (diff) | |
eta-expansion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1430 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eauto.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tactics/eauto.ml b/tactics/eauto.ml index a5c27329c..26467421f 100644 --- a/tactics/eauto.ml +++ b/tactics/eauto.ml @@ -153,10 +153,9 @@ and e_my_find_search db_list local_db hdc concl = let hdc = head_of_constr_reference hdc in let hintl = if occur_existential concl then - list_map_append (fun db -> Hint_db.map_all hdc db) (local_db::db_list) + list_map_append (Hint_db.map_all hdc) (local_db::db_list) else - list_map_append (fun db -> Hint_db.map_auto (hdc,concl) db) - (local_db::db_list) + list_map_append (Hint_db.map_auto (hdc,concl)) (local_db::db_list) in let tac_of_hint = fun ({pri=b; pat = p; code=t} as patac) -> |