src/Provers/clasimp.ML

--- a/src/Provers/clasimp.ML	Wed Sep 01 21:46:01 1999 +0200
+++ b/src/Provers/clasimp.ML	Thu Sep 02 15:21:36 1999 +0200
@@ -167,7 +167,7 @@
 
 val setup =
  [Method.add_methods
-   [("clarsimp", clasimp_method' clarsimp_tac, "clarsimp (improper!)"),
+   [("clarsimp_tac", clasimp_method' clarsimp_tac, "clarsimp (improper!)"),
     ("auto", clasimp_method (CHANGED o auto_tac), "auto"),
     ("force", clasimp_method' force_tac, "force")]];