src/HOL/Library/RBT_Impl.thy
changeset 58310 91ea607a34d8
parent 58257 0662f35534fe
child 58881 b9556a055632
     1.1 --- a/src/HOL/Library/RBT_Impl.thy	Thu Sep 11 19:26:59 2014 +0200
     1.2 +++ b/src/HOL/Library/RBT_Impl.thy	Thu Sep 11 19:32:36 2014 +0200
     1.3 @@ -16,8 +16,8 @@
     1.4  
     1.5  subsection {* Datatype of RB trees *}
     1.6  
     1.7 -datatype_new color = R | B
     1.8 -datatype_new ('a, 'b) rbt = Empty | Branch color "('a, 'b) rbt" 'a 'b "('a, 'b) rbt"
     1.9 +datatype color = R | B
    1.10 +datatype ('a, 'b) rbt = Empty | Branch color "('a, 'b) rbt" 'a 'b "('a, 'b) rbt"
    1.11  
    1.12  lemma rbt_cases:
    1.13    obtains (Empty) "t = Empty" 
    1.14 @@ -1728,7 +1728,7 @@
    1.15  where
    1.16    "skip_black t = (let t' = skip_red t in case t' of Branch color.B l k v r \<Rightarrow> l | _ \<Rightarrow> t')"
    1.17  
    1.18 -datatype_new compare = LT | GT | EQ
    1.19 +datatype compare = LT | GT | EQ
    1.20  
    1.21  partial_function (tailrec) compare_height :: "('a, 'b) rbt \<Rightarrow> ('a, 'b) rbt \<Rightarrow> ('a, 'b) rbt \<Rightarrow> ('a, 'b) rbt \<Rightarrow> compare"
    1.22  where