| changeset 21821 | 7fa19d17f488 |
| parent 21789 | c4f6bb392030 |
| child 22997 | d4f3b015b50b |
--- 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;