(Dut) Add all AForms into VForm for past participle; update rest of the modules accordingly. Fix agreement in PastPartAP.

2018-04-19 12:01:05 +02:00
parent b5ca8710cf
commit 34d27a6876
7 changed files with 179 additions and 172 deletions
@@ -13,9 +13,12 @@ concrete ExtendDut of Extend =
    ParadigmsDut in {
  lin

-   PastPartAP vp = {
-      s = \\agr,af => (infClause [] agr vp).s ! Past ! Anter ! Pos ! Sub ;
-      isPre = notB vp.inf.p2
-      } ;
+  PastPartAP vp = {
+    s = \\agr,af => let aForm = case vp.isHeavy of {
+                          True  => APred ;
+                          False => af } ;
+                     in (infClause [] agr vp aForm).s ! Past ! Anter ! Pos ! Sub ;
+    isPre = notB vp.isHeavy ;
+   } ;
    
-    }
+ }