diff -r 25af24e1f37b -r 180f1b3508ed src/HOL/Nominal/Examples/Pattern.thy
--- a/src/HOL/Nominal/Examples/Pattern.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/Nominal/Examples/Pattern.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -38,7 +38,7 @@
 where
   "\<lambda>x:T. t \<equiv> Abs T x t"
 
-datatype pat =
+datatype_new pat =
     PVar name ty
   | PTuple pat pat  ("(1'\<langle>\<langle>_,/ _'\<rangle>\<rangle>)")