
diff -r 2b0cc308fd6a -r 9eab1dfc14d2 Nominal/Ex/TypeSchemes.thy
--- a/Nominal/Ex/TypeSchemes.thy	Wed Apr 21 21:52:30 2010 +0200
+++ b/Nominal/Ex/TypeSchemes.thy	Thu Apr 22 05:16:23 2010 +0200
@@ -108,10 +108,9 @@
     apply (simp add: fin_fset_to_set)
     apply (simp add: finite_supp)
     apply (simp add: eqvts finite_supp)
-    apply (subst atom_eqvt_raw[symmetric])
-    apply (subst fmap_eqvt[symmetric])
-    apply (subst fset_to_set_eqvt[symmetric])
-    apply (simp only: fresh_star_permute_iff)
+    apply (rule_tac p=" -p" in permute_boolE)
+    apply(simp add: eqvts)
+    apply(simp add: permute_fun_def atom_eqvt)
     apply (simp add: fresh_star_def)
     apply clarify
     apply (simp add: fresh_def)




