author | paulson |
Wed, 08 Sep 1999 15:44:56 +0200 | |
changeset 7521 | a18adacbdbd2 |
parent 7520 | 65f0cec65fc6 |
child 7522 | d93b52bda2dd |
--- 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 ***)