--- a/Quot/Nominal/Terms.thy	Wed Feb 03 14:22:25 2010 +0100
+++ b/Quot/Nominal/Terms.thy	Wed Feb 03 14:28:00 2010 +0100
@@ -891,9 +891,9 @@
 apply (subst alpha5_INJ)
 apply (rule_tac x="(x \<leftrightarrow> y)" in exI)
 apply (simp only: alpha_gen)
-apply (simp add: permute_trm5_lts)
-sorry
-
+apply (simp add: permute_trm5_lts fresh_star_def)
+apply (simp add: insert_eqvt eqvts atom_eqvt)
+done
 
 text {* type schemes *} 
 datatype ty =