src/HOL/Decision_Procs/langford_data.ML
changeset 61476 1884c40f1539
parent 55792 687240115804
child 69597 ff784d5a5bfb
--- a/src/HOL/Decision_Procs/langford_data.ML	Sun Oct 18 20:48:24 2015 +0200
+++ b/src/HOL/Decision_Procs/langford_data.ML	Sun Oct 18 21:30:01 2015 +0200
@@ -84,7 +84,7 @@
   fun keyword k = Scan.lift (Args.$$$ k -- Args.colon) >> K ();
   val any_keyword = keyword qeN || keyword gatherN || keyword atomsN;
 
-  val thms = Scan.repeat (Scan.unless any_keyword Attrib.multi_thm) >> flat;
+  val thms = Scan.repeats (Scan.unless any_keyword Attrib.multi_thm);
   val terms = thms >> map Drule.dest_term;
 in