diff --git a/lib/resource-1.0/finnish/ExtraFin.gf b/lib/resource-1.0/finnish/ExtraFin.gf
index 37580d32e..eb039d2f7 100644
--- a/lib/resource-1.0/finnish/ExtraFin.gf
+++ b/lib/resource-1.0/finnish/ExtraFin.gf
@@ -9,4 +9,12 @@ concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in {
       isDef  = True  --- "Jussin kolme autoa ovat" ; thus "...on" is missing
       } ;
 
+    AdvExistNP adv np = 
+      mkClause (\_ -> adv.s) np.a (insertObj 
+        (\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom}))) ;
+
+    AdvPredNP  adv v np =
+      mkClause (\_ -> adv.s) np.a (insertObj 
+        (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
+
 } 
diff --git a/lib/resource-1.0/finnish/ExtraFinAbs.gf b/lib/resource-1.0/finnish/ExtraFinAbs.gf
index 0a9b562b4..ae4580976 100644
--- a/lib/resource-1.0/finnish/ExtraFinAbs.gf
+++ b/lib/resource-1.0/finnish/ExtraFinAbs.gf
@@ -1,3 +1,7 @@
 abstract ExtraFinAbs = Extra [GenNP] ** {
 
+  fun
+    AdvExistNP : Adv -> NP -> Cl ;        -- kuvassa olemme me
+    AdvPredNP  : Adv -> V  -> NP -> Cl ;  -- kuvassa hymyilee Veikko
+
 }