Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/axclass.ML
changeset 54742 7a86358a3c0b
parent 53171 a5e54d4d9081
child 54931 88cf06038e37 
--- a/src/Pure/axclass.ML	Fri Dec 13 23:53:02 2013 +0100
+++ b/src/Pure/axclass.ML	Sat Dec 14 17:28:05 2013 +0100
@@ -291,11 +291,17 @@
 
 fun get_inst_tyco consts = try (#1 o dest_Type o the_single o Consts.typargs consts);
 
-fun unoverload thy = rewrite_rule (inst_thms thy);
-fun overload thy = rewrite_rule (map Thm.symmetric (inst_thms thy));
+fun unoverload thy =
+  rewrite_rule (Proof_Context.init_global thy) (inst_thms thy);
+
+fun overload thy =
+  rewrite_rule (Proof_Context.init_global thy) (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));
+fun unoverload_conv thy =
+  Raw_Simplifier.rewrite (Proof_Context.init_global thy) true (inst_thms thy);
+
+fun overload_conv thy =
+  Raw_Simplifier.rewrite (Proof_Context.init_global thy) true (map Thm.symmetric (inst_thms thy));
 
 fun lookup_inst_param consts params (c, T) =
   (case get_inst_tyco consts (c, T) of
isabelle