more fine-grained place of German negation

This commit is contained in:
aarne
2013-03-07 20:47:21 +00:00
parent 988d5970d6
commit 949d03f90b
2 changed files with 9 additions and 1 deletions

View File

@@ -43,7 +43,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
SlashV2A v ap =
insertObj (\\_ => ap.s ! APred) (predV v) ** {c2 = v.c2} ;
ComplSlash vp np = insertObjNP np.isPron (\\_ => appPrep vp.c2 np.s) vp ;
ComplSlash vp np = insertObjNP (isLightComplement np.isPron vp.c2) (\\_ => appPrep vp.c2 np.s) vp ;
SlashVV v vp =
let