src/HOL/Tools/numeral_syntax.ML
changeset 16365 838c65dad23a
parent 15965 f422f8283491
child 18708 4b3dadb4fe33
--- 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')]];