src/HOL/Tools/numeral_syntax.ML

 
 fun prefix_len _ [] = 0
   | prefix_len pred (x :: xs) =
       if pred x then 1 + prefix_len pred xs else 0;
 
-fun bin_of (Const ("bin.Pls", _)) = []
-  | bin_of (Const ("bin.Min", _)) = [~1]
+fun bin_of (Const ("Numeral.Pls", _)) = []
+  | bin_of (Const ("Numeral.Min", _)) = [~1]
   | bin_of (Const ("Bit", _) $ bs $ b) = dest_bit b :: bin_of bs
   | bin_of _ = raise Match;
 
 val dest_bin = HOLogic.int_of o bin_of;
 

 
 
 (* theory setup *)
 
 val setup =
- [Theory.hide_consts false ["Numeral.bin.Pls", "Numeral.bin.Min"],
+ [Theory.hide_consts false ["Numeral.Pls", "Numeral.Min"],
   Theory.add_trfuns ([], [("_Numeral", numeral_tr)], [], []),
   Theory.add_trfunsT [("number_of", numeral_tr'), ("Numeral.number_of", numeral_tr')]];
 
 
 end;