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

@@ -54,7 +54,11 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
PassV2 v = insertAdv (mkNP passive_s) (predV v v.part) ; ----
CompAP ap = insertObj (mkNP (ap.s ++ possessive_s)) (predV copula []) ; ---- hen / bu
CompAP ap = insertObj (mkNP ap.s) (
case ap.hasAdA of {
True => predV nocopula [] ;
False => predV hen_copula []}
) ;
CompNP np = insertObj np (predV copula []) ; ----