diff -r a44479bde681 -r 017e33849f4d Nominal/Nominal2_Abs.thy --- a/Nominal/Nominal2_Abs.thy Tue Mar 22 12:18:30 2016 +0000 +++ b/Nominal/Nominal2_Abs.thy Thu Apr 19 13:57:17 2018 +0100 @@ -854,7 +854,7 @@ moreover { assume *: "a \ b" and **: "x = (a \ b) \ y \ atom a \ y" have "[{atom a}]set. x = [{atom a}]set. ((a \ b) \ y)" using ** by simp - also have "\ = (a \ b) \ ([{atom b}]set. y)" by (simp add: permute_set_def assms) + also have "\ = (a \ b) \ ([{atom b}]set. y)" by (simp add: permute_set_def) also have "\ = [{atom b}]set. y" by (rule flip_fresh_fresh) (simp add: Abs_fresh_iff **, simp add: Abs_fresh_iff) finally have "[{atom a}]set. x = [{atom b}]set. y" . @@ -869,7 +869,7 @@ moreover { assume *: "a \ b" and **: "Abs_res {atom a} x = Abs_res {atom b} y" have #: "atom a \ Abs_res {atom b} y" by (simp add: **[symmetric] Abs_fresh_iff) - have "Abs_res {atom a} ((a \ b) \ y) = (a \ b) \ (Abs_res {atom b} y)" by (simp add: assms) + have "Abs_res {atom a} ((a \ b) \ y) = (a \ b) \ (Abs_res {atom b} y)" by simp also have "\ = Abs_res {atom b} y" by (rule flip_fresh_fresh) (simp add: #, simp add: Abs_fresh_iff) also have "\ = Abs_res {atom a} x" using ** by simp @@ -878,7 +878,7 @@ moreover { assume *: "a \ b" and **: "x = (a \ b) \ y \ atom a \ y" have "Abs_res {atom a} x = Abs_res {atom a} ((a \ b) \ y)" using ** by simp - also have "\ = (a \ b) \ Abs_res {atom b} y" by (simp add: permute_set_def assms) + also have "\ = (a \ b) \ Abs_res {atom b} y" by (simp add: permute_set_def) also have "\ = Abs_res {atom b} y" by (rule flip_fresh_fresh) (simp add: Abs_fresh_iff **, simp add: Abs_fresh_iff) finally have "Abs_res {atom a} x = Abs_res {atom b} y" . @@ -893,7 +893,7 @@ moreover { assume *: "a \ b" and **: "Abs_lst [atom a] x = Abs_lst [atom b] y" have #: "atom a \ Abs_lst [atom b] y" by (simp add: **[symmetric] Abs_fresh_iff) - have "Abs_lst [atom a] ((a \ b) \ y) = (a \ b) \ (Abs_lst [atom b] y)" by (simp add: assms) + have "Abs_lst [atom a] ((a \ b) \ y) = (a \ b) \ (Abs_lst [atom b] y)" by simp also have "\ = Abs_lst [atom b] y" by (rule flip_fresh_fresh) (simp add: #, simp add: Abs_fresh_iff) also have "\ = Abs_lst [atom a] x" using ** by simp @@ -902,7 +902,7 @@ moreover { assume *: "a \ b" and **: "x = (a \ b) \ y \ atom a \ y" have "Abs_lst [atom a] x = Abs_lst [atom a] ((a \ b) \ y)" using ** by simp - also have "\ = (a \ b) \ Abs_lst [atom b] y" by (simp add: assms) + also have "\ = (a \ b) \ Abs_lst [atom b] y" by simp also have "\ = Abs_lst [atom b] y" by (rule flip_fresh_fresh) (simp add: Abs_fresh_iff **, simp add: Abs_fresh_iff) finally have "Abs_lst [atom a] x = Abs_lst [atom b] y" . @@ -918,7 +918,7 @@ shows "[{atom a}]set. x = [{atom b}]set. y \ (a = b \ x = y) \ (a \ b \ (b \ a) \ x = y \ atom b \ x)" and "[{atom a}]res. x = [{atom b}]res. y \ (a = b \ x = y) \ (a \ b \ (b \ a) \ x = y \ atom b \ x)" and "[[atom a]]lst. x = [[atom b]]lst. y \ (a = b \ x = y) \ (a \ b \ (b \ a) \ x = y \ atom b \ x)" -using assms by (auto simp: Abs1_eq_iff fresh_permute_left) +by (auto simp: Abs1_eq_iff fresh_permute_left) ML {*