(Ara) VV and related functions

2026-07-02 20:18:33 -06:00 · 2018-09-21 15:46:39 +02:00
parent e6107dcbfb
commit 1d159f155c
6 changed files with 26 additions and 13 deletions
@@ -17,7 +17,7 @@ concrete PhraseAra of Phrase = CatAra ** open

    UttCN cn = {s = \\_ => cn.s ! Sg ! Def ! Nom} ; --IL
    UttNP np = {s = \\_ => np.s ! Nom} ;
-    UttVP vp = {s = \\_ => linVP vp} ; --IL
+    UttVP vp = {s = \\g => (compVP vp).s ! {g=g ; n=Sg} ! Nom} ; --IL
    UttS,
    UttAdv,
    UttIAdv = \s -> {s = \\_ => s.s} ; ---- OK? AR