added UseCopula to Fin,Ger,romance since needed in YAQL

lib/src/finnish/VerbFin.gf

@@ -55,6 +55,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
     UseComp comp = 
       insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = True})) ;
 
+    UseCopula = predV (verbOlla ** {sc = NPCase Nom ; qp = True}) ;
+
     SlashVV v vp = 
       insertObj 
         (\\_,b,a => infVP v.sc b a vp v.vi) 

lib/src/german/VerbGer.gf

@@ -66,6 +66,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
 
     UseComp comp = insertObj comp.s (predV sein_V) ; -- agr not used
     -- we want to say "ich liebe sie nicht" but not "ich bin alt nicht"
+    UseCopula = predV sein_V ;
 
     CompAP ap = {s = \\_ => ap.s ! APred} ;
     CompNP np = {s = \\_ => np.s ! NPC Nom} ;

lib/src/romance/VerbRomance.gf

@@ -73,6 +73,8 @@ incomplete concrete VerbRomance of Verb =
 
     UseComp comp = insertComplement comp.s (predV copula) ;
 
+    UseCopula = predV copula ;
+
     CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n} ;
     CompCN cn = { s = \\ag => 
       let agr = complAgr ag in