make use of CommonX.CAdv

This commit is contained in:
Krasimir Angelov
2018-07-10 13:59:01 +02:00
parent 5d734f9a6c
commit 43950360a6
5 changed files with 11 additions and 12 deletions
+2 -2
View File
@@ -29,8 +29,8 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
-- $SuperlA$ belongs to determiner syntax in $Noun$.
CAdvAP ad ap np = {
s = \\a,p => ad.s ++ ap.s ! a ! p ++ ad.sn ++ np.s ! RObj CPrep ;
adv = ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj CPrep ;
s = \\a,p => ad.s ++ ap.s ! a ! p ++ ad.p ++ np.s ! RObj CPrep ;
adv = ad.s ++ ap.adv ++ ad.p ++ np.s ! RObj CPrep ;
isPre = False
} ;