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