src/HOL/Tools/old_primrec.ML
changeset 36610 bafd82950e24
parent 35845 e5980f0ad025
child 36692 54b64d4ad524
--- a/src/HOL/Tools/old_primrec.ML	Mon May 03 07:59:51 2010 +0200
+++ b/src/HOL/Tools/old_primrec.ML	Mon May 03 14:25:56 2010 +0200
@@ -214,7 +214,7 @@
                                 fs @ map Bound (0 ::(length ls downto 1))))
     val def_name = Long_Name.base_name fname ^ "_" ^ Long_Name.base_name tname ^ "_def";
     val def_prop =
-      singleton (Syntax.check_terms (ProofContext.init thy))
+      singleton (Syntax.check_terms (ProofContext.init_global thy))
         (Logic.mk_equals (Const (fname, dummyT), rhs));
   in (def_name, def_prop) end;