src/Pure/Isar/args.ML
changeset 8549 851d39c10d9f
parent 8536 de307f5bc89a
child 8687 24bff69370f0
     1.1 --- a/src/Pure/Isar/args.ML	Tue Mar 21 17:32:44 2000 +0100
     1.2 +++ b/src/Pure/Isar/args.ML	Tue Mar 21 17:43:54 2000 +0100
     1.3 @@ -151,7 +151,8 @@
     1.4  val from_to =
     1.5    nat -- ($$$$ "-" |-- nat) >> (fn (i, j) => fn tac => Seq.INTERVAL tac i j) ||
     1.6    nat --| $$$$ "-" >> (fn i => fn tac => fn st => Seq.INTERVAL tac i (Thm.nprems_of st) st) ||
     1.7 -  nat >> (fn i => fn tac => tac i);
     1.8 +  nat >> (fn i => fn tac => tac i) ||
     1.9 +  $$$$ "!" >> K ALLGOALS;
    1.10  
    1.11  val goal = $$$$ "[" |-- !!! (from_to --| $$$$ "]");
    1.12  fun goal_spec def = Scan.lift (Scan.optional goal def);