src/HOL/Import/proof_kernel.ML
changeset 33038 8f9594c31de4
parent 33037 b22e44496dc2
child 33039 5018f6a76b3f
--- a/src/HOL/Import/proof_kernel.ML	Tue Oct 20 16:13:01 2009 +0200
+++ b/src/HOL/Import/proof_kernel.ML	Wed Oct 21 08:14:38 2009 +0200
@@ -1230,7 +1230,7 @@
           | add_consts (_, cs) = cs
         val t_consts = add_consts(t,[])
     in
-        fn th => gen_eq_set (op =) (t_consts, add_consts (prop_of th, []))
+        fn th => eq_set (op =) (t_consts, add_consts (prop_of th, []))
     end
 
 fun split_name str =