# HG changeset patch
# User nipkow
# Date 878644741 -3600
# Node ID cf71befb65e86e510d35737836fd898f03a1527e
# Parent  42606637f87f593db19dd86e0db855c64ed1f4c1
Logic.loops -> Logic.rewrite_rule_ok

diff -r 42606637f87f -r cf71befb65e8 src/HOL/simpdata.ML
--- a/src/HOL/simpdata.ML	Tue Nov 04 12:58:10 1997 +0100
+++ b/src/HOL/simpdata.ML	Tue Nov 04 12:59:01 1997 +0100
@@ -85,7 +85,7 @@
   fun mk_meta_eq_simp r = case concl_of r of
           Const("==",_)$_$_ => r
       |   _$(Const("op =",_)$lhs$rhs) =>
-             (case fst(Logic.loops (#sign(rep_thm r)) (prems_of r) lhs rhs) of
+             (case fst(Logic.rewrite_rule_ok (#sign(rep_thm r)) (prems_of r) lhs rhs) of
                 None => mk_meta_eq r
               | Some _ => r RS P_imp_P_eq_True)
       |   _$(Const("Not",_)$_) => r RS not_P_imp_P_eq_False