bug fix in PredEng VV forms

2014-03-07 14:37:38 +00:00
parent 0e0237d5f5
commit 752a0a3607
6 changed files with 63 additions and 54 deletions
--- a/lib/src/experimental/PredFin.gf
+++ b/lib/src/experimental/PredFin.gf
@@ -15,6 +15,7 @@ concrete PredFin of Pred =
 -- overridden
       ,UseV
       ,UseAP
+       ,UseNP
       ,UseCN
       ,QuestVP
       ,PredVP
@@ -36,6 +37,10 @@ lin
    adj = \\a => ap.s ! agr2aagr a ;
    } ;

+  UseNP a t p np = useCopula a t p ** {
+    adj = \\a => np.s ! subjCase ;
+    } ;
+
  UseCN x a t p cn = useCopula a t p ** {
    c1  = cn.c1 ;
    c2  = cn.c2 ;