determiners and extrapositions in Tha fixed

This commit is contained in:
aarne
2011-11-28 22:10:10 +00:00
parent ebcfad5ec3
commit e5de02733c
8 changed files with 62 additions and 44 deletions

View File

@@ -32,7 +32,7 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
-- Verb
VP = ResTha.VP ;
Comp = ResTha.VP ;
Comp = {s : Polarity => Str} ;
VPSlash = ResTha.VP ** {c2 : Str} ;
-- Adjective
@@ -43,9 +43,9 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
CN = ResTha.Noun ;
NP, Pron = ResTha.NP ;
Det = ResTha.Determiner ;
Det, Quant = ResTha.Determiner ;
Predet, Ord = {s : Str} ;
Num, Quant = {s : Str ; hasC : Bool} ;
Num = {s : Str ; hasC : Bool} ;
-- Numeral