--- a/Nominal/Ex/Classical.thy	Mon May 03 15:38:20 2010 +0200
+++ b/Nominal/Ex/Classical.thy	Mon May 03 15:47:30 2010 +0200
@@ -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