Hrv comparison forms

2022-09-30 18:12:48 +02:00
parent 60c733bd35
commit 8fc2460af6
9 changed files with 61 additions and 181 deletions
@@ -26,7 +26,7 @@ concrete CatHrv of Cat =
    V2 = {s : VerbForms ; c : ComplementCase} ;
    VS,VQ  = {s : VerbForms} ;

-    A  = ResHrv.AdjForms ;
+    A  = {posit, compar, superl : AdjForms} ;
    AP = ResHrv.Adjective ** {isPost : Bool} ; -- {s : Gender => Number => Case => Str}
    A2 = ResHrv.AdjForms ** {c : ComplementCase} ;
    
@@ -62,7 +62,8 @@ concrete CatHrv of Cat =

  linref
    N = \s -> s.snom ;
-    A = \s -> s.msnom ;
+    A = \s -> s.posit.msnom ;
+    V = \v -> v.s ! VInf ;


  lincat Numeral = {s : AdjForms ; size : NumSize} ;