diff -r 43c4589a9a78 -r 9d51fad6bb1f src/Pure/Proof/proof_rewrite_rules.ML
--- a/src/Pure/Proof/proof_rewrite_rules.ML	Wed Nov 16 17:45:30 2005 +0100
+++ b/src/Pure/Proof/proof_rewrite_rules.ML	Wed Nov 16 17:45:31 2005 +0100
@@ -225,7 +225,7 @@
               val vs = vars_of prop;
               val tvars = term_tvars prop;
               val (_, rhs) = Logic.dest_equals prop;
-              val rhs' = Library.foldl betapply (subst_TVars (map fst tvars ~~ Ts)
+              val rhs' = Term.betapplys (subst_TVars (map fst tvars ~~ Ts)
                 (foldr (fn p => Abs ("", dummyT, abstract_over p)) rhs vs),
                 map valOf ts);
             in