fixes in ExtraFin

lib/src/finnish/ExtraFin.gf

@@ -13,6 +13,8 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
       isNeg = False 
      } ;
 
+    GenIP ip = {s = \\_,_ => ip.s ! NPCase Gen} ;
+
     GenCN n1 n2 = {s = \\nf => n1.s ! NPCase Gen ++ n2.s ! nf} ;
 
   lincat
@@ -85,7 +87,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
 
     AdvPredNP  adv v np =
       mkClause (\_ -> adv.s) np.a (insertObj 
-        (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
+        (\\_,b,_ => subjForm np v.sc b) (predV v)) ;
 
     ICompExistNP adv np = 
       let cl = mkClause (\_ -> adv.s ! np.a) np.a (insertObj 

lib/src/finnish/ExtraFinAbs.gf

@@ -1,5 +1,5 @@
 abstract ExtraFinAbs = Extra [
-  GenNP,
+  GenNP,GenIP,
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
   VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,ConjVPS,Tense,Temp,Pol,S,
   VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, ProDrop] ** {