--- a/Nominal/Ex/Lambda.thy	Thu Jan 06 20:25:40 2011 +0000
+++ b/Nominal/Ex/Lambda.thy	Thu Jan 06 23:06:45 2011 +0000
@@ -5,6 +5,8 @@
 
 atom_decl name
 
+ML {* suffix *}
+
 nominal_datatype lam =
   Var "name"
 | App "lam" "lam"