diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-23 03:35:36 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-23 03:35:36 -0300 |
| commit | 28c55a730d9a0a19a62d85c166dc879aebd7b772 (patch) | |
| tree | 25ebdd2f526078047574f28b03b53828eaeb9b33 /lib/concepts/Cardinality.ml | |
| parent | 882511dc8c0abded18ba6abdca64938db2652771 (diff) | |
| download | RNT-28c55a730d9a0a19a62d85c166dc879aebd7b772.tar.gz RNT-28c55a730d9a0a19a62d85c166dc879aebd7b772.zip | |
remove dead API
Diffstat (limited to 'lib/concepts/Cardinality.ml')
| -rw-r--r-- | lib/concepts/Cardinality.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lib/concepts/Cardinality.ml b/lib/concepts/Cardinality.ml index a87f9c8..d878aa9 100644 --- a/lib/concepts/Cardinality.ml +++ b/lib/concepts/Cardinality.ml @@ -10,16 +10,7 @@ let compare a b = let equal a b = compare a b = Utilities.Ordering.Equal let leq a b = compare a b <> Utilities.Ordering.Greater -let join a b = if leq a b then b else a let meet a b = if leq a b then a else b - -let product a b = - match a, b with - | Empty, _ | _, Empty -> Empty - | Countable, _ | _, Countable -> Countable - | Finite, _ | _, Finite -> Finite - | Bounded n, Bounded m -> if n > max_int / m then Finite else bounded (n * m) - let exhaustible = function Countable -> false | Empty | Bounded _ | Finite -> true let to_string = function |