(Est) Improve interrogative agreement

This commit is contained in:
Inari Listenmaa
2022-05-02 20:39:03 +08:00
parent 263ee4319d
commit f1e14bbd5f
4 changed files with 36 additions and 38 deletions
+3 -3
View File
@@ -22,7 +22,7 @@ concrete CatEst of Cat = CommonX ** open HjkEst, ResEst, Prelude in {
QCl = {s : ResEst.Tense => Anteriority => Polarity => Str} ;
IP = ResEst.IPhrase ;
IComp = {s : Agr => Str} ;
IDet = {s : Case => Str ; n : Number ; isNum : Bool} ;
IDet = ResEst.IDeterminer ;
IQuant = {s : Number => Case => Str} ;
-- Relative
@@ -98,8 +98,8 @@ concrete CatEst of Cat = CommonX ** open HjkEst, ResEst, Prelude in {
NP = linNP (NPCase Nom) ;
CN = linCN (NCase Sg Nom) ;
V,VS,VQ = linV ;
V2,VA,V2S,V2Q = linV2 ;
V2,VA,V2S,V2Q,V3 = linV2 ;
IDet = linIDet ;
}