src/Pure/thm.ML
changeset 33037 b22e44496dc2
parent 32810 f3466a5645fa
child 33038 8f9594c31de4
--- a/src/Pure/thm.ML	Tue Oct 20 13:37:56 2009 +0200
+++ b/src/Pure/thm.ML	Tue Oct 20 16:13:01 2009 +0200
@@ -1463,7 +1463,7 @@
     (case duplicates (op =) cs of
       a :: _ => (warning ("Can't rename.  Bound variables not distinct: " ^ a); state)
     | [] =>
-      (case cs inter_string freenames of
+      (case gen_inter (op =) (cs, freenames) of
         a :: _ => (warning ("Can't rename.  Bound/Free variable clash: " ^ a); state)
       | [] =>
         Thm (der,