Chi constructions (part of them), topicalized time adverbs

This commit is contained in:
aarne
2013-12-08 13:11:29 +00:00
parent 39cff5a66b
commit 01bf55f6c9
6 changed files with 45 additions and 21 deletions

View File

@@ -36,9 +36,9 @@ concrete ExtraChi of ExtraChiAbs = CatChi **
lincat
Aspect = {s : Str ; a : ResChi.Aspect} ;
lin
PredBareAP np ap = case ap.hasAdA of {
True => mkClause np.s (insertObj (mkNP ap.s) (predV nocopula [])) ;
False => mkClause np.s (insertObj (mkNP ap.s) (predV hen_copula []))
CompBareAP ap = case ap.hasAdA of {
True => insertObj (mkNP ap.s) (predV nocopula []) ;
False => insertObj (mkNP ap.s) (predV hen_copula [])
} ;
QuestRepV cl = {
s = \\p,a =>