authentic syntax for number_of

--- a/src/HOL/Tools/numeral_syntax.ML	Wed Dec 13 15:45:31 2006 +0100
+++ b/src/HOL/Tools/numeral_syntax.ML	Wed Dec 13 15:45:33 2006 +0100
@@ -13,7 +13,6 @@
 structure NumeralSyntax: NUMERAL_SYNTAX =
 struct
 
-
 (* parse translation *)
 
 local
@@ -90,6 +89,6 @@
 
 val setup =
   Theory.add_trfuns ([], [("_Numeral", numeral_tr)], [], []) #>
-  Theory.add_trfunsT [("number_of", numeral_tr'), ("Numeral.number_of", numeral_tr')];
+  Theory.add_trfunsT [("\\<^const>Numeral.number_of", numeral_tr')];
 
 end;