--- a/Nominal/Ex/Classical.thy	Tue May 04 05:36:43 2010 +0100
+++ b/Nominal/Ex/Classical.thy	Tue May 04 05:36:55 2010 +0100
@@ -12,6 +12,10 @@
 atom_decl name
 atom_decl coname
 
+ML {* val _ = cheat_alpha_eqvt := true *}
+ML {* val _ = cheat_equivp := true *}
+ML {* val _ = cheat_fv_rsp := true *}
+
 nominal_datatype trm =
    Ax "name" "coname"
 |  Cut n::"coname" t1::"trm" c::"coname" t2::"trm"              bind n in t1, bind c in t2