src/HOL/UNITY/LessThan.thy

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/UNITY/LessThan.thy	Fri Apr 03 12:34:33 1998 +0200
@@ -0,0 +1,25 @@
+(*  Title:      HOL/UNITY/LessThan
+    ID:         $Id$
+    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
+    Copyright   1998  University of Cambridge
+
+lessThan, greaterThan, atLeast, atMost
+*)
+
+LessThan = List +
+
+constdefs
+
+  lessThan   :: "nat => nat set"
+     "lessThan n == {i. i<n}"
+
+  atMost   :: "nat => nat set"
+     "atMost n == {i. i<=n}"
+ 
+  greaterThan   :: "nat => nat set"
+     "greaterThan n == {i. n<i}"
+
+  atLeast   :: "nat => nat set"
+     "atLeast n == {i. n<=i}"
+
+end