--- a/Nominal/TySch.thy	Sat Mar 20 08:56:07 2010 +0100
+++ b/Nominal/TySch.thy	Sat Mar 20 09:27:28 2010 +0100
@@ -5,7 +5,7 @@
 atom_decl name
 
 ML {* val _ = cheat_fv_rsp := false *}
-ML {* val _ = cheat_const_rsp := false *}
+ML {* val _ = cheat_alpha_bn_rsp := false *}
 ML {* val _ = cheat_equivp := false *}
 
 nominal_datatype t =