src/Pure/thm.ML
changeset 33038 8f9594c31de4
parent 33037 b22e44496dc2
child 33049 c38f02fdf35d
     1.1 --- a/src/Pure/thm.ML	Tue Oct 20 16:13:01 2009 +0200
     1.2 +++ b/src/Pure/thm.ML	Wed Oct 21 08:14:38 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 gen_inter (op =) (cs, freenames) of
     1.8 +      (case inter (op =) (cs, freenames) of
     1.9          a :: _ => (warning ("Can't rename.  Bound/Free variable clash: " ^ a); state)
    1.10        | [] =>
    1.11          Thm (der,