another optimization of Romance VP. Effect on Fre over 50% in compilation and parse speed. Somewhat smaller on Spa,Ita,Cat.

lib/src/italian/DiffIta.gf

@@ -88,15 +88,15 @@ instance DiffIta of DiffRomance - [contractInf] = open CommonRomance, PhonoIta,
       _ => copula.s
       } ;
 
-    partAgr : VType -> VPAgr = \vtyp -> case vtyp of {
-      VHabere => vpAgrNone ;
-      _ => VPAgrSubj
-      } ;
-
     vpAgrClit : Agr -> VPAgr = \a0 ->
       let a = complAgr a0 in
       VPAgrClit a.g a.n ;
 
+    partAgr : VType -> Bool = \vtyp -> case vtyp of { -- works for all except Spa
+      VHabere => False ;
+      _ => True
+      } ;
+
     pronArg = \n,p,acc,dat ->
       let 
         pacc = case acc of {  --- only accusative refl handled