| 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 =