--- a/Nominal/Ex/ExLetRec.thy	Mon May 10 15:11:19 2010 +0200
+++ b/Nominal/Ex/ExLetRec.thy	Mon May 10 15:14:02 2010 +0200
@@ -7,6 +7,9 @@
 
 atom_decl name
 
+ML {* val _ = cheat_alpha_eqvt := true *}
+ML {* val _ = cheat_equivp := true *}
+
 nominal_datatype trm =
   Vr "name"
 | Ap "trm" "trm"