generalize DAP

2021-04-27 13:23:27 +02:00
parent adb1cffb75
commit 156e193d47
3 changed files with 4 additions and 4 deletions
@@ -223,7 +223,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =

    --TODO: actually use ant
    CompVP ant p vp = {
-        s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp p.p agr ;
+        s = \\agr => ant.s ++ p.s ++ "de" ++ infVP vp p.p agr ;
        cop = serCopula
      } ;