diff -r 9a63d90d1752 -r f7c4b8e6918b Nominal/Nominal2_Abs.thy --- a/Nominal/Nominal2_Abs.thy Tue Jan 03 01:42:10 2012 +0000 +++ b/Nominal/Nominal2_Abs.thy Tue Jan 03 11:43:27 2012 +0000 @@ -365,7 +365,7 @@ then have a: "p \ x = p' \ x" using supp_perm_perm_eq by auto from * have "\b \ as. p \ b = p' \ b" by blast then have zb: "p \ as = p' \ as" - apply(auto simp add: permute_set_eq) + apply(auto simp add: permute_set_def) apply(rule_tac x="xa" in exI) apply(simp) done @@ -800,7 +800,7 @@ moreover { assume *: "a \ b" and **: "Abs_set {a} x = Abs_set {b} y" have #: "a \ Abs_set {b} y" by (simp add: **[symmetric] Abs_fresh_iff) - have "Abs_set {a} ((a \ b) \ y) = (a \ b) \ (Abs_set {b} y)" by (simp add: permute_set_eq assms) + have "Abs_set {a} ((a \ b) \ y) = (a \ b) \ (Abs_set {b} y)" by (simp add: permute_set_def assms) also have "\ = Abs_set {b} y" by (rule swap_fresh_fresh) (simp add: #, simp add: Abs_fresh_iff) also have "\ = Abs_set {a} x" using ** by simp @@ -809,7 +809,7 @@ moreover { assume *: "a \ b" and **: "x = (a \ b) \ y \ a \ y" have "Abs_set {a} x = Abs_set {a} ((a \ b) \ y)" using ** by simp - also have "\ = (a \ b) \ Abs_set {b} y" by (simp add: permute_set_eq assms) + also have "\ = (a \ b) \ Abs_set {b} y" by (simp add: permute_set_def assms) also have "\ = Abs_set {b} y" by (rule swap_fresh_fresh) (simp add: Abs_fresh_iff **, simp add: Abs_fresh_iff) finally have "Abs_set {a} x = Abs_set {b} y" . @@ -824,7 +824,7 @@ moreover { assume *: "a \ b" and **: "Abs_res {a} x = Abs_res {b} y" have #: "a \ Abs_res {b} y" by (simp add: **[symmetric] Abs_fresh_iff) - have "Abs_res {a} ((a \ b) \ y) = (a \ b) \ (Abs_res {b} y)" by (simp add: permute_set_eq assms) + have "Abs_res {a} ((a \ b) \ y) = (a \ b) \ (Abs_res {b} y)" by (simp add: permute_set_def assms) also have "\ = Abs_res {b} y" by (rule swap_fresh_fresh) (simp add: #, simp add: Abs_fresh_iff) also have "\ = Abs_res {a} x" using ** by simp @@ -833,7 +833,7 @@ moreover { assume *: "a \ b" and **: "x = (a \ b) \ y \ a \ y" have "Abs_res {a} x = Abs_res {a} ((a \ b) \ y)" using ** by simp - also have "\ = (a \ b) \ Abs_res {b} y" by (simp add: permute_set_eq assms) + also have "\ = (a \ b) \ Abs_res {b} y" by (simp add: permute_set_def assms) also have "\ = Abs_res {b} y" by (rule swap_fresh_fresh) (simp add: Abs_fresh_iff **, simp add: Abs_fresh_iff) finally have "Abs_res {a} x = Abs_res {b} y" .