1 files changed, 20 insertions, 0 deletions
diff --git a/lib/concepts/Cardinality.ml b/lib/concepts/Cardinality.ml
new file mode 100644
index 0000000..d878aa9
--- /dev/null
+++ b/lib/concepts/Cardinality.ml
@@ -0,0 +1,20 @@
+type t = Empty | Bounded of int | Finite | Countable
+
+let bounded n = if n <= 0 then Empty else Bounded n
+let rank = function Empty -> 0 | Bounded _ -> 1 | Finite -> 2 | Countable -> 3
+
+let compare a b =
+  match a, b with
+  | Bounded n, Bounded m -> Utilities.Ordering.of_int (Int.compare n m)
+  | _ -> Utilities.Ordering.of_int (Int.compare (rank a) (rank b))
+
+let equal a b = compare a b = Utilities.Ordering.Equal
+let leq a b = compare a b <> Utilities.Ordering.Greater
+let meet a b = if leq a b then a else b
+let exhaustible = function Countable -> false | Empty | Bounded _ | Finite -> true
+
+let to_string = function
+  | Empty -> "empty"
+  | Bounded n -> Printf.sprintf "bounded(%d)" n
+  | Finite -> "finite"
+  | Countable -> "countable"