(May) Form Det with numerals (NumCard, NumDigits etc.)

2026-06-28 20:36:29 -06:00 · 2020-09-01 17:51:49 +02:00
parent c79c113e01
commit e122aea3ad
5 changed files with 40 additions and 23 deletions
@@ -104,13 +104,17 @@ param

  CardOrd = NOrd | NCard ;

-  -- TODO see if this is needed
-  NumType = NoNum | IsDigit | IsNumber ;
+  NumType = NoNum Number | IsNumber ;

 oper
  isNum : NumType -> Bool = \nt -> case nt of {
-    NoNum => False ;
-    _     => True
+    NoNum _ => False ;
+    _       => True
+    } ;
+
+  toNum : NumType -> Number = \nt -> case nt of {
+    NoNum n => n ;
+    _       => Sg
    } ;
 --------------------------------------------------------------------------------
 -- Adjectives