diff -r c22947214948 -r a3db645bbfda Nominal/FSet.thy --- a/Nominal/FSet.thy Mon Apr 19 11:04:31 2010 +0200 +++ b/Nominal/FSet.thy Mon Apr 19 11:32:33 2010 +0200 @@ -335,10 +335,7 @@ apply (rule_tac [!] impI) apply (simp add: in_set_code memb_cons_iff memb_def) apply (metis) - apply (metis Nitpick.list_size_simp(2) ffold_raw.simps(2) - length_Suc_conv memb_absorb memb_cons_iff nil_not_cons(2)) - defer - apply (metis Nitpick.list_size_simp(2) ffold_raw.simps(2) + apply (metis Nitpick.list_size_simp(2) ffold_raw.simps(2) length_Suc_conv memb_absorb memb_cons_iff nil_not_cons(2)) apply (subgoal_tac "ffold_raw f z b = f a1 (ffold_raw f z (delete_raw b a1))") apply (simp only:) @@ -350,6 +347,8 @@ apply (erule memb_commute_ffold_raw) apply (drule_tac x="a1" in spec) apply (simp add: memb_cons_iff) + apply (metis Nitpick.list_size_simp(2) ffold_raw.simps(2) + length_Suc_conv memb_absorb memb_cons_iff nil_not_cons(2)) done lemma [quot_respect]: