Ger negation adjusted once more

lib/src/german/ResGer.gf

@@ -693,6 +693,22 @@ resource ResGer = ParamX ** open Prelude in {
           }
     } ;
 
+{-
+-- tests 27/5/2012
+
+  ich bin nicht alt
+  ich bin nicht hier
+  ich kenne dich nicht
+  ich kenne deine Frau nicht
+  ich bin nicht ein Kind / ich bin kein Kind (via no_Quant)
+  ich schlafe nicht hier
+  ich sage nicht, dass es regnet
+  ich male es nicht blau
+  ich schlafe nicht immer
+  ich kenne dich nicht immer
+  ich kann nicht schlafen
+  es wird nicht besser
+-}
 
   infVP : Bool -> VP -> ((Agr => Str) * Str * Str * Str) = \isAux, vp -> let vps = useVP vp in
     <

lib/src/german/VerbGer.gf

@@ -43,7 +43,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer 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 True (\\_ => appPrep vp.c2 np.s) vp ;
 
     SlashVV v vp = 
       let 
@@ -78,7 +78,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
       } ;
 
     AdvVP vp adv = insertAdv adv.s vp ;
-    AdVVP adv vp = insertAdV adv.s vp ;
+    AdVVP adv vp = insertAdv adv.s vp ; -- not AdV 27/5/2012: nicht immer
 
     ReflVP vp = insertObj (\\a => appPrep vp.c2 
       (\\k => usePrepC k (\c -> reflPron ! a ! c))) vp ;