some ParadigmsEng,Fin,Ger additions

2021-07-30 09:29:19 +02:00
parent da443a79af
commit cb502488d1
3 changed files with 11 additions and 1 deletions
--- a/src/german/ParadigmsGer.gf
+++ b/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