Mercurial Mercurial > repos > Old_HOL / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
HOL/HOL.ML/notE: tidied
authorlcp
Wed, 25 May 1994 12:25:40 +0200
changeset 75 74bc51d20112
parent 74 97d49eef9f4b
child 76 fb4fe9f8c3cd
HOL/HOL.ML/notE: tidied
HOL.ML file | annotate | diff | comparison | revisions 
--- a/HOL.ML	Thu May 19 17:07:19 1994 +0200
+++ b/HOL.ML	Wed May 25 12:25:40 1994 +0200
@@ -168,7 +168,7 @@
  (fn prems=> [rtac impI 1, eresolve_tac prems 1]);
 
 val notE = prove_goalw HOL.thy [not_def] "[| ~P;  P |] ==> R"
- (fn prems => [rtac (mp RS FalseE) 1, REPEAT(resolve_tac prems 1)]);
+ (fn prems => [rtac (prems MRS mp RS FalseE) 1]);
 
 (** Implication **)
Old_HOL