diff -r f970ca9b5bec -r 4908db645f98 Nominal/Term5.thy --- a/Nominal/Term5.thy Wed Mar 17 20:42:22 2010 +0100 +++ b/Nominal/Term5.thy Wed Mar 17 20:42:42 2010 +0100 @@ -71,6 +71,8 @@ "(a \5 b \ b \5 a) \ (x \l y \ y \l x) \ (alpha_rbv5 x y \ alpha_rbv5 y x)" +apply (tactic {* symp_tac @{thm alpha_rtrm5_alpha_rlts_alpha_rbv5.induct} @{thms alpha5_inj} @{thms alpha5_eqvt} @{context} 1 *}) +(* apply (rule alpha_rtrm5_alpha_rlts_alpha_rbv5.induct) apply (simp_all add: alpha5_inj) apply (erule exE) @@ -89,7 +91,7 @@ apply (rotate_tac 6) apply simp apply (drule_tac p1="- pi" in permute_eq_iff[symmetric,THEN iffD1]) -apply (simp) +apply (simp)*) done lemma alpha5_transp: