(Fin) add ApposNP, PresPartAP, PastPartAP

src/finnish/ExtendFin.gf

@@ -10,6 +10,8 @@ concrete ExtendFin of Extend =
     ,CardCNCard
     ,UttAccNP
     ,AdjAsCN, AdjAsNP
+    ,ApposNP
+    ,PresPartAP, PastPartAP
     ]
   with
     (Grammar = GrammarFin) **
@@ -240,5 +242,16 @@ lin CardCNCard card cn = {
 lin UttAccNP np = {s = P.addNegation np.isNeg ++ np.s ! NPAcc} ;
 lin AdjAsCN ap = {s = ap.s ! True ; postmod = \\_ => ap.p ; h = Back} ; ---- Harmony just a guess
 lin AdjAsNP ap = MassNP (AdjAsCN ap) ;
+lin ApposNP np1 np2 = np1 ** {s = \\npf => np1.s ! npf ++ np2.s ! NPSep} ;
+lin PresPartAP vp = {
+      s = \\_,nf => vp.s.s ! PresPartAct (AN nf) ;
+      p = [] ;
+      hasPrefix = False
+      } ;
+lin PastPartAP vps = {
+      s = \\_,nf => vps.s.s ! PastPartAct (AN nf) ;
+      p = vps.c2.s.p1 ;
+      hasPrefix = False
+      } ;
 
 }