some ParadigmsEng,Fin,Ger additions

src/english/ParadigmsEng.gf

@@ -138,6 +138,12 @@ oper
     mkPN : N -> PN --%
   } ;
 
+-- To extract the number of a noun phrase
+
+    ifPluralNP : NP -> Bool
+      = \np -> case (fromAgr np.a).n of {Sg => False ; Pl => True} ;
+
+
 --3 Determiners and quantifiers
 
   mkQuant : overload {

src/finnish/ParadigmsFin.gf

@@ -396,6 +396,8 @@ mkVS = overload {
       Part => lin Det (MorphoFin.mkDetPol isNeg nu (snoun2nounBind noun)) ** {isNum = True} ; --- works like "kolme autoa"
       _ => lin Det (MorphoFin.mkDetPol isNeg nu (snoun2nounBind noun)) ---- are there other cases?
       } ;
+    mkDet : Str -> Det -> Det -- add a string to a Det, e.g. "suunnilleen jokainen"
+      = \s,det -> det ** {s1 = \\c => s ++ det.s1 ! c} ;
     } ;
 
   mkQuant = overload {

src/german/ParadigmsGer.gf

@@ -143,8 +143,10 @@ mkN : overload {
 
     } ;
 
+-- To extract the number of a noun phrase
 
-
+    ifPluralNP : NP -> Bool
+      = \np -> case (numberAgr np.a) of {Sg => False ; Pl => True} ;
 
 
 --2 Adjectives