adjectival predication now without copula by default in Chi

This commit is contained in:
aarne
2013-10-03 07:37:17 +00:00
parent e09104c6d9
commit 84c1422e6f
6 changed files with 29 additions and 18 deletions

View File

@@ -2,7 +2,7 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
lin
PositA a = a ;
PositA a = a ** {hasAdA = False} ;
--ComparA a np = complexAP (a.s ++ than_s ++ np.s) ;
ComparA a np = complexAP (than_s ++ np.s ++ a.s) ;
@@ -20,9 +20,9 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
SentAP ap sc = complexAP (ap.s ++ sc.s) ;
AdAP ada ap = complexAP (ada.s ++ ap.s) ;
AdAP ada ap = {s = ada.s ++ ap.s ; monoSyl = False ; hasAdA = True} ;
UseA2 a = a ;
UseA2 a = a ** {hasAdA = False} ;
AdvAP ap adv = complexAP (adv.s ++ ap.s) ; ----