# HG changeset patch
# User haftmann
# Date 1166021133 -3600
# Node ID 7fa19d17f4885d656399119e72925466d9686e47
# Parent  2f2b6a965ccc8414c270972cae32bf45134ed26f
authentic syntax for number_of

diff -r 2f2b6a965ccc -r 7fa19d17f488 src/HOL/Tools/numeral_syntax.ML
--- 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;