diff -r 45a69c9cc4cc -r 9ca7b249760e Nominal/NewParser.thy
--- a/Nominal/NewParser.thy	Mon May 24 20:02:37 2010 +0100
+++ b/Nominal/NewParser.thy	Mon May 24 20:50:15 2010 +0100
@@ -2,7 +2,7 @@
 imports "../Nominal-General/Nominal2_Base" 
         "../Nominal-General/Nominal2_Eqvt" 
         "../Nominal-General/Nominal2_Supp" 
-        "Perm" "NewAlpha" "Tacs" "Equivp" "Lift"
+        "Perm" "Tacs" "Equivp" "Lift"
 begin
 
 
@@ -351,7 +351,7 @@
   (* definition of raw alphas *)
   val (alpha_ts, alpha_intros, alpha_cases, alpha_induct, lthy4) =
     if get_STEPS lthy > 4 
-    then define_raw_alpha descr sorts raw_bn_info raw_bclauses raw_fvs raw_fv_bns lthy3a
+    then define_raw_alpha descr sorts raw_bn_info raw_bclauses raw_fvs lthy3a
     else raise TEST lthy3a
   
   val (alpha_ts_nobn, alpha_ts_bn) = chop (length raw_fvs) alpha_ts