# HG changeset patch
# User wenzelm
# Date 935063317 -7200
# Node ID 2f454e1fd372c83896c05f132100157b439d4177
# Parent  9c7f17a259fc6bdf9c81f8d468174a9787fb3cba
renamed 'some_rule' to 'rule';

diff -r 9c7f17a259fc -r 2f454e1fd372 src/Provers/classical.ML
--- a/src/Provers/classical.ML	Thu Aug 19 13:42:40 1999 +0200
+++ b/src/Provers/classical.ML	Thu Aug 19 13:48:37 1999 +0200
@@ -1145,8 +1145,11 @@
       in trace rules i; fn st => Seq.flat (Seq.map (fn rule => Tactic.rtac rule i st) ruleq) end);
   in tac end;
 
+fun rule_tac [] cs facts = some_rule_tac cs facts
+  | rule_tac rules _ facts = Method.rule_tac rules facts;
+
 in
-  val some_rule = METHOD_CLASET' some_rule_tac;
+  val rule = METHOD_CLASET' o rule_tac;
 end;
 
 
@@ -1204,10 +1207,10 @@
 (** setup_methods **)
 
 val setup_methods = Method.add_methods
- [("default", Method.no_args some_rule, "apply some standard rule"),
-  ("some_rule", Method.no_args some_rule, "apply some standard rule"),
-  ("intro", Method.thms_args intro, "apply some introduction rule"),
-  ("elim", Method.thms_args elim, "apply some elimination rule"),
+ [("default", Method.thms_args rule, "apply some rule (chain facts)"),
+  ("rule", Method.thms_args rule, "apply some rule (chain facts)"),
+  ("intro", Method.thms_args intro, "apply some introduction rule (cut facts)"),
+  ("elim", Method.thms_args elim, "apply some elimination rule (cut facts)"),
   ("contradiction", Method.no_args contradiction, "proof by contradiction"),
   ("safe_tac", cla_method safe_tac, "safe_tac (improper!)"),
   ("safe_step_tac", cla_method' safe_step_tac, "safe_step_tac (improper!)"),