1.1 --- a/src/HOL/Num.thy	Wed Sep 03 00:06:23 2014 +0200
     1.2 +++ b/src/HOL/Num.thy	Wed Sep 03 00:06:24 2014 +0200
     1.3 @@ -11,7 +11,7 @@
     1.4  
     1.5  subsection {* The @{text num} type *}
     1.6  
     1.7 -datatype num = One | Bit0 num | Bit1 num
     1.8 +datatype_new num = One | Bit0 num | Bit1 num
     1.9  
    1.10  text {* Increment function for type @{typ num} *}
    1.11