generalize infVP to support negative VP in Romance

2021-04-27 13:18:27 +02:00
parent 617cb25f1e
commit adb1cffb75
10 changed files with 31 additions and 33 deletions
@@ -15,7 +15,7 @@ incomplete concrete PhraseRomance of Phrase =
    UttIP ip = {s = ip.s ! Nom} ; --- Acc also
    UttIAdv iadv = iadv ;
    UttNP np = {s = (np.s ! Nom).ton} ;
-    UttVP vp = {s = infVP vp (agrP3 Fem Sg)} ; --- Agr
+    UttVP vp = {s = infVP vp RPos (agrP3 Fem Sg)} ; --- Agr
    UttAdv adv = adv ;
    UttCN n = {s = n.s ! Sg} ;
    UttAP ap = {s = ap.s ! genNum2Aform Masc Sg} ;