# HG changeset patch
# User wenzelm
# Date 861782931 -7200
# Node ID 0d683397b74b5e8c9926c55e978c24a3c1875664
# Parent  a3b73ba44a11a99b134bfeff1cb631eb1bf148ac
simprocs called with eta contracted subterm;

diff -r a3b73ba44a11 -r 0d683397b74b src/Pure/thm.ML
--- a/src/Pure/thm.ML	Wed Apr 23 09:14:56 1997 +0200
+++ b/src/Pure/thm.ML	Wed Apr 23 10:08:51 1997 +0200
@@ -1611,7 +1611,7 @@
 (* del_simprocs *)
 
 fun del_simproc (mss as Mss {rules, congs, procs, bounds, prems, mk_rews, termless},
-    (sign, lhs, proc, id)) =
+    (sign:Sign.sg, lhs, proc, id)) =
   mk_mss (rules, congs,
     Net.delete_term ((lhs, (proc, id)), procs, eq_simproc) handle Net.DELETE =>
       (trace_warning "simplification procedure not in simpset"; procs),
@@ -1765,14 +1765,14 @@
       in sort rrs ([],[]) 
       end
 
-      fun proc_rews [] = None
-        | proc_rews ((f, _) :: fs) =
-            (case f signt t of
-              None => proc_rews fs
+      fun proc_rews _ [] = None
+        | proc_rews eta_t ((f, _) :: fs) =
+            (case f signt eta_t of
+              None => proc_rews eta_t fs
             | Some raw_thm =>
                 (trace_thm "Proved rewrite rule: " raw_thm;
                  (case rews (mk_procrule raw_thm) of
-                   None => proc_rews fs
+                   None => proc_rews eta_t fs
                  | some => some)));
   in
     (case t of
@@ -1780,7 +1780,7 @@
         Some (shypst, hypst, maxt, subst_bound (u, body), ders)
      | _ =>
       (case rews (sort_rrules (Net.match_term rules t)) of
-        None => proc_rews (Net.match_term procs t)
+        None => proc_rews (Pattern.eta_contract t) (Net.match_term procs t)
       | some => some))
   end;