PredI

lib/resource/english/ClauseEng.gf

@@ -2,6 +2,8 @@
 --# -opt
 
 concrete ClauseEng of Clause = CategoriesEng ** 
+----  ClausePredI with (Predic = PredicEng) ;
+
   open Prelude, SyntaxEng in {
 
   flags optimize=all ;
@@ -95,6 +97,8 @@ concrete ClauseEng of Clause = CategoriesEng **
   IPredAdv v = predBeGroupI (complAdverb v) ;
 
   IPredProgVP vp = predBeGroupI (vp.s ! VIPresPart) ;
+}
+
 
 {-
 -- Use VPs
@@ -110,5 +114,3 @@ concrete ClauseEng of Clause = CategoriesEng **
   AdvVP = adVerbPhrase ;
   SubjVP = subjunctVerbPhrase ;
 -}
-
-}

lib/resource/english/PredicEng.gf

@@ -38,12 +38,14 @@ concrete PredicEng of Predic = CategoriesEng **
                 cprep1 verb.c (compl.s1 ! a) ++
                 cprep2 verb.c (compl.s2 ! a)
         ) ; 
+{- takes 80% !
     RPredVerb vt np verb compl = 
       relVerbClause np verb 
         (\\a => vt.s ++
                 cprep1 verb.c (compl.s1 ! a) ++
                 cprep2 verb.c (compl.s2 ! a)
         ) ; 
+-}
     IPredVerb vt verb compl = 
       predVerbI verb 
         (\\a => vt.s ++