src/HOL/ex/Termination.thy

--- a/src/HOL/ex/Termination.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/ex/Termination.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -118,7 +118,7 @@
   
 subsection {* Simple examples with other datatypes than nat, e.g. trees and lists *}
 
-datatype tree = Node | Branch tree tree
+datatype_new tree = Node | Branch tree tree
 
 fun g_tree :: "tree * tree \<Rightarrow> tree"
 where