src/Provers/classical.ML

--- a/src/Provers/classical.ML	Sat Sep 03 22:27:06 2005 +0200
+++ b/src/Provers/classical.ML	Mon Sep 05 08:14:35 2005 +0200
@@ -212,7 +212,7 @@
 fun dup_elim th =
   (case try (fn () =>
     rule_by_tactic (TRYALL (etac revcut_rl))
-      (th RSN (2, revcut_rl) |> assumption 2 |> Seq.hd)) () of
+      ((th RSN (2, revcut_rl)) |> assumption 2 |> Seq.hd)) () of
     SOME th' => th'
   | _ => error ("Bad format for elimination rule\n" ^ string_of_thm th));