constructor PositAdAAdj in Adverb, for most langs

This commit is contained in:
aarne
2010-11-19 16:49:30 +00:00
parent 48a327ddee
commit 94d818c60a
9 changed files with 23 additions and 3 deletions

View File

@@ -14,6 +14,8 @@ concrete AdverbGer of Adverb = CatGer ** open ResGer, Prelude in {
AdAdv = cc2 ;
PositAdAAdj a = {s = a.s ! Posit ! APred} ;
SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
AdnCAdv cadv = {s = cadv.s ++ conjThan} ;