new theorem single_Diff_lessThan
authorpaulson
Wed, 08 Sep 1999 15:44:56 +0200
changeset 7521 a18adacbdbd2
parent 7520 65f0cec65fc6
child 7522 d93b52bda2dd
new theorem single_Diff_lessThan
src/HOL/UNITY/LessThan.ML
--- a/src/HOL/UNITY/LessThan.ML	Wed Sep 08 15:44:11 1999 +0200
+++ b/src/HOL/UNITY/LessThan.ML	Wed Sep 08 15:44:56 1999 +0200
@@ -43,6 +43,10 @@
 by (Blast_tac 1);
 qed "Compl_lessThan";
 
+Goal "{k} - lessThan k = {k}";
+by (Blast_tac 1);
+qed "single_Diff_lessThan";
+Addsimps [single_Diff_lessThan];
 
 (*** greaterThan ***)