--- a/Nominal/Rsp.thy Wed Mar 17 09:57:54 2010 +0100
+++ b/Nominal/Rsp.thy Wed Mar 17 11:11:25 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 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))
*}
ML {*