--- a/src/HOL/Tools/numeral_syntax.ML Sat Jun 11 22:15:48 2005 +0200
+++ b/src/HOL/Tools/numeral_syntax.ML Sat Jun 11 22:15:50 2005 +0200
@@ -55,8 +55,8 @@
(* theory setup *)
val setup =
- [Theory.hide_consts false ["Numeral.Pls", "Numeral.Min"],
- Theory.hide_consts false ["Numeral.bit.B0", "Numeral.bit.B1"],
+ [Theory.hide_consts_i false ["Numeral.Pls", "Numeral.Min"],
+ Theory.hide_consts_i false ["Numeral.bit.B0", "Numeral.bit.B1"],
Theory.add_trfuns ([], [("_Numeral", numeral_tr)], [], []),
Theory.add_trfunsT [("number_of", numeral_tr'), ("Numeral.number_of", numeral_tr')]];