(Ara) misc. small fixes/additions

2018-11-26 17:03:31 +01:00
parent 9da4ea3f5c
commit a29a4132cf
3 changed files with 25 additions and 8 deletions
@@ -69,6 +69,12 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {

    UseCopula = predV copula ;

+    -- : VP -> Prep -> VPSlash ;  -- live in (it)
+    VPSlashPrep vp prep = vp ** {
+      c2 = prep ;
+      agrObj = \\_ => []
+      } ;
+
    AdvVP vp adv = insertStr adv.s vp ;

    AdVVP adv = insertStr adv.s ;