clause working with vp

lib/resource/scandinavian/ClauseScand.gf

@@ -28,6 +28,8 @@ incomplete concrete ClauseScand of Clause = CategoriesScand **
   SPredAV np v x = predVerbGroupClause np (complVerbAdj v x) ;
   SPredObjA2V np v x y = predVerbGroupClause np (complVerbAdj2 True v x y) ;
 
+  SPredProgVP = progressiveClause ;
+
 
   QPredV np v = intVerbPhrase np (predVerb v) ;
   QPredPassV np v = intVerbPhrase np (passVerb v) ;

lib/resource/scandinavian/RulesScand.gf

@@ -70,8 +70,6 @@ lin
 
 -- Formation of infinitival phrases.
 
-  ProgVG = progressiveVerbPhrase ;
-
   UseCl tp cl = {s = \\o => tp.s ++ cl.s ! tp.b ! ClFinite tp.t tp.a o} ;
   UseRCl tp cl = 
     {s = \\gn,p => tp.s ++ cl.s ! tp.b ! VFinite tp.t tp.a ! gn ! p} ;

lib/resource/scandinavian/SyntaxScand.gf

@@ -575,7 +575,8 @@ oper
   predVerb0 : Verb -> Clause = \regna -> 
     predVerbGroupClause npDet (predVerb regna) ;
 
-  progressiveVerbPhrase : VerbGroup -> VerbGroup ;
+  progressiveVerbPhrase : VerbGroup  -> VerbGroup ;
+  progressiveClause     : NounPhrase -> VerbPhrase -> Clause ;
 
 -- Verb phrases can also be formed from adjectives ("är snäll"),
 -- common nouns ("är en man"), and noun phrases ("är den yngste mannen").