| changeset 58310 | 91ea607a34d8 |
| parent 58249 | 180f1b3508ed |
| child 58889 | 5b7a9633cfa8 |
--- a/src/HOL/Nominal/Examples/Pattern.thy Thu Sep 11 19:26:59 2014 +0200 +++ b/src/HOL/Nominal/Examples/Pattern.thy Thu Sep 11 19:32:36 2014 +0200 @@ -38,7 +38,7 @@ where "\<lambda>x:T. t \<equiv> Abs T x t" -datatype_new pat = +datatype pat = PVar name ty | PTuple pat pat ("(1'\<langle>\<langle>_,/ _'\<rangle>\<rangle>)")