From 7a8cdf5c3dcd6d0835cb9efcd167b6b1d2583a21 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Wed, 5 Jun 2024 12:48:24 +0200
Subject: [PATCH] AdvVPSlash and AdVVPSlash

---
 src/dutch/VerbDut.gf | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/dutch/VerbDut.gf b/src/dutch/VerbDut.gf
index 77d7e1372..b28c5bc0b 100644
--- a/src/dutch/VerbDut.gf
+++ b/src/dutch/VerbDut.gf
@@ -86,6 +86,9 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
 
     AdVVP adv vp = insertAdV adv.s vp ;
 
+    AdvVPSlash vp adv = vp ** {a2 = vp.a2 ++ adv.s} ;
+    AdVVPSlash adv vp = vp ** {a1 = \\a => adv.s ++ vp.a1 ! a} ;
+
     ReflVP vp = insertObj (\\a => appPrep vp.c2.p1 
                                           (npLite (\\_ => reflPron ! a))
                           ) vp ;