using le for AAnter in Chi; adjustments of CompAP rules in Chi

This commit is contained in:
aarne
2013-10-06 21:13:31 +00:00
parent 2623d53963
commit 6a5979a689
6 changed files with 17 additions and 12 deletions

View File

@@ -54,11 +54,10 @@ 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) (
case ap.hasAdA of {
True => predV nocopula [] ;
False => predV hen_copula []}
) ;
CompAP ap = case ap.hasAdA of {
True => insertObj (mkNP ap.s) (predV nocopula []) ;
False => insertObj (mkNP (ap.s ++ de_s)) (predV copula [])
} ;
CompNP np = insertObj np (predV copula []) ; ----