author | paulson |
Wed, 28 Jun 2000 10:55:38 +0200 | |
changeset 9171 | cfc6fecbb1e9 |
parent 9170 | 0bfe5354d5e7 |
child 9172 | 2dbb80d4fdb7 |
--- a/src/Provers/classical.ML Wed Jun 28 10:54:47 2000 +0200 +++ b/src/Provers/classical.ML Wed Jun 28 10:55:38 2000 +0200 @@ -27,6 +27,7 @@ signature CLASSICAL_DATA = sig + val make_elim : thm -> thm (* Tactic.make_elim or a classical version*) val mp : thm (* [| P-->Q; P |] ==> Q *) val not_elim : thm (* [| ~P; P |] ==> R *) val classical : thm (* (~P ==> P) ==> P *)