src/HOL/Library/RBT_Impl.thy
changeset 58249 180f1b3508ed
parent 57983 6edc3529bb4e
child 58257 0662f35534fe
--- a/src/HOL/Library/RBT_Impl.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/Library/RBT_Impl.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -16,8 +16,8 @@
 
 subsection {* Datatype of RB trees *}
 
-datatype color = R | B
-datatype ('a, 'b) rbt = Empty | Branch color "('a, 'b) rbt" 'a 'b "('a, 'b) rbt"
+datatype_new color = R | B
+datatype_new ('a, 'b) rbt = Empty | Branch color "('a, 'b) rbt" 'a 'b "('a, 'b) rbt"
 
 lemma rbt_cases:
   obtains (Empty) "t = Empty" 
@@ -1728,7 +1728,7 @@
 where
   "skip_black t = (let t' = skip_red t in case t' of Branch color.B l k v r \<Rightarrow> l | _ \<Rightarrow> t')"
 
-datatype compare = LT | GT | EQ
+datatype_new compare = LT | GT | EQ
 
 partial_function (tailrec) compare_height :: "('a, 'b) rbt \<Rightarrow> ('a, 'b) rbt \<Rightarrow> ('a, 'b) rbt \<Rightarrow> ('a, 'b) rbt \<Rightarrow> compare"
 where