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