src/HOL/Induct/Tree.thy
changeset 58249 180f1b3508ed
parent 46914 c2ca2c3d23a6
child 58310 91ea607a34d8
     1.1 --- a/src/HOL/Induct/Tree.thy	Tue Sep 09 17:51:07 2014 +0200
     1.2 +++ b/src/HOL/Induct/Tree.thy	Tue Sep 09 20:51:36 2014 +0200
     1.3 @@ -9,7 +9,7 @@
     1.4  imports Main
     1.5  begin
     1.6  
     1.7 -datatype 'a tree =
     1.8 +datatype_new 'a tree =
     1.9      Atom 'a
    1.10    | Branch "nat => 'a tree"
    1.11  
    1.12 @@ -34,7 +34,7 @@
    1.13  
    1.14  subsection{*The Brouwer ordinals, as in ZF/Induct/Brouwer.thy.*}
    1.15  
    1.16 -datatype brouwer = Zero | Succ "brouwer" | Lim "nat => brouwer"
    1.17 +datatype_new brouwer = Zero | Succ "brouwer" | Lim "nat => brouwer"
    1.18  
    1.19  text{*Addition of ordinals*}
    1.20  primrec add :: "[brouwer,brouwer] => brouwer"