added ExtraFin.CompNomAP

src/finnish/ExtraFin.gf

@@ -161,6 +161,9 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
     CompPartAP ap = {
       s = \\agr => ap.s ! False ! NCase (complNumAgr agr) ResFin.Part
       } ;
+    CompNomAP ap = {
+      s = \\agr => ap.s ! False ! NCase (complNumAgr agr) ResFin.Nom
+      } ;
 
 ---- copied from VerbFin.CompAP, should be shared
     ICompAP ap = {

src/finnish/ExtraFinAbs.gf

@@ -28,7 +28,8 @@ abstract ExtraFinAbs = Extra [
 
     vai_Conj : Conj ;                     -- minä vai sinä? ("or" in question)
 
-    CompPartAP : AP -> Comp ;             -- kahvi on valmista
+    CompPartAP : AP -> Comp ;             -- kahvi on valmista: partitive complement also in singular
+    CompNomAP  : AP -> Comp ;             -- kengät ovat mustat: nominative complement also in plural
 
     ProDropPoss : Pron -> Quant ;         -- vaimoni