diff -r 130f3d891fb2 -r c2bd39a2c0ee src/HOL/Finite.ML
--- a/src/HOL/Finite.ML	Wed Sep 23 10:11:18 1998 +0200
+++ b/src/HOL/Finite.ML	Wed Sep 23 10:12:01 1998 +0200
@@ -93,7 +93,7 @@
 by (rtac (major RS finite_induct) 1);
 by (stac Diff_insert 2);
 by (ALLGOALS (asm_simp_tac
-                (simpset() addsimps (prems@[Diff_subset RS finite_subset]))));
+                (simpset() addsimps prems@[Diff_subset RS finite_subset])));
 val lemma = result();
 
 val prems = Goal