--- a/src/Tools/Code/code_thingol.ML Wed May 04 10:19:01 2016 +0200
+++ b/src/Tools/Code/code_thingol.ML Mon May 09 14:37:47 2016 +0200
@@ -574,7 +574,7 @@
let
val raw_const = Const (c, map_type_tfree (K arity_typ') ty);
val dom_length = length (fst (strip_type ty))
- val thm = Axclass.unoverload_conv thy (Thm.cterm_of ctxt raw_const);
+ val thm = Axclass.unoverload_conv ctxt (Thm.cterm_of ctxt raw_const);
val const = (apsnd Logic.unvarifyT_global o dest_Const o snd
o Logic.dest_equals o Thm.prop_of) thm;
in