genders in LexiconEng in exper

This commit is contained in:
aarne
2008-04-23 11:15:28 +00:00
parent c1bd7f2ba1
commit 137a25fd35
3 changed files with 23 additions and 23 deletions

View File

@@ -76,12 +76,12 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
DetArtSg art cn = {
s = \\c => art.s ! False ! Sg ++ cn.s ! Sg ! c ;
a = agrP3 Sg
a = agrgP3 Sg cn.g
} ;
DetArtPl art cn = {
s = \\c => art.s ! False ! Pl ++ cn.s ! Pl ! c ;
a = agrP3 Pl
a = agrgP3 Pl cn.g
} ;
DefArt = {s = \\c,n => artDef} ;