PPartNP and AdvNP.

This commit is contained in:
aarne
2006-05-16 22:13:12 +00:00
parent 39f6049f2d
commit ddfd57fe7d
7 changed files with 79 additions and 7 deletions

View File

@@ -21,6 +21,16 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = np.a
} ;
PPartNP np v2 = {
s = \\c => np.s ! c ++ v2.s ! VPastPart APred ; --- invar part
a = np.a
} ;
AdvNP np adv = {
s = \\c => np.s ! c ++ adv.s ;
a = np.a
} ;
DetSg quant ord =
let
n = Sg ;