--- a/Nominal/Rsp.thy	Thu Mar 18 00:17:21 2010 +0100
+++ b/Nominal/Rsp.thy	Thu Mar 18 07:26:36 2010 +0100
@@ -186,7 +186,7 @@
   (split_conjs THEN_ALL_NEW TRY o resolve_tac
     @{thms fresh_star_permute_iff[of "- p", THEN iffD1] permute_eq_iff[of "- p", THEN iffD1]})
   THEN_ALL_NEW
-  asm_full_simp_tac (HOL_ss addsimps (@{thms split_conv permute_minus_cancel permute_plus permute_eqvt[symmetric]} @ all_eqvts ctxt))
+  asm_full_simp_tac (HOL_ss addsimps (@{thms split_conv permute_minus_cancel permute_plus permute_eqvt[symmetric]} @ all_eqvts ctxt @ simps))
 *}
 
 ML {*