(Som) Add superlatives

2019-09-27 11:14:23 +02:00
parent 9b9d6ebdd2
commit a520c9659f
4 changed files with 26 additions and 10 deletions
@@ -66,7 +66,10 @@ concrete CatSom of Cat = CommonX - [Adv,IAdv] ** open ResSom, Prelude in {
    Predet = {s : Str ; da : DefArticle ; isPoss : Bool} ;
    Quant = ResSom.Quant ;
    Num = ResSom.Num ;
-    Ord = {s : Str ; n : Number} ;
+    Ord = {
+      s : AForm => Str ; -- Ord can came from AP and become AP again
+      n : Number -- Ord can come from Num, which has inherent number
+      } ;
    DAP = ResSom.Determiner ;