--- a/src/HOL/String.thy Mon Sep 20 15:29:53 2010 +0200
+++ b/src/HOL/String.thy Mon Sep 20 16:05:25 2010 +0200
@@ -53,7 +53,8 @@
(fn n => fn m => Drule.instantiate' [] [SOME n, SOME m] @{thm nibble_pair_of_char.simps})
nibbles nibbles;
in
- PureThy.note_thmss Thm.definitionK [((@{binding nibble_pair_of_char_simps}, []), [(thms, [])])]
+ Global_Theory.note_thmss Thm.definitionK
+ [((@{binding nibble_pair_of_char_simps}, []), [(thms, [])])]
#-> (fn [(_, thms)] => fold_rev Code.add_eqn thms)
end
*}