Hrv comparison forms

This commit is contained in:
Aarne Ranta
2022-09-30 18:12:48 +02:00
parent 60c733bd35
commit 8fc2460af6
9 changed files with 61 additions and 181 deletions
+3 -2
View File
@@ -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} ;