changeset 58310 | 91ea607a34d8 |
parent 58305 | 57752a91eec4 |
child 58889 | 5b7a9633cfa8 |
--- a/src/HOL/Induct/QuoDataType.thy Thu Sep 11 19:26:59 2014 +0200 +++ b/src/HOL/Induct/QuoDataType.thy Thu Sep 11 19:32:36 2014 +0200 @@ -10,7 +10,7 @@ subsection{*Defining the Free Algebra*} text{*Messages with encryption and decryption as free constructors.*} -datatype_new +datatype freemsg = NONCE nat | MPAIR freemsg freemsg | CRYPT nat freemsg