src/Pure/axclass.ML
changeset 52230 1105b3b5aa77
parent 51685 385ef6706252
child 52788 da1fdbfebd39
--- a/src/Pure/axclass.ML	Thu May 30 08:27:51 2013 +0200
+++ b/src/Pure/axclass.ML	Thu May 30 12:35:40 2013 +0200
@@ -292,8 +292,8 @@
 
 fun get_inst_tyco consts = try (#1 o dest_Type o the_single o Consts.typargs consts);
 
-fun unoverload thy = Raw_Simplifier.simplify true (inst_thms thy);
-fun overload thy = Raw_Simplifier.simplify true (map Thm.symmetric (inst_thms thy));
+fun unoverload thy = rewrite_rule (inst_thms thy);
+fun overload thy = rewrite_rule (map Thm.symmetric (inst_thms thy));
 
 fun unoverload_conv thy = Raw_Simplifier.rewrite true (inst_thms thy);
 fun overload_conv thy = Raw_Simplifier.rewrite true (map Thm.symmetric (inst_thms thy));