added missing functionality

2026-08-26 06:29:57 +02:00
parent 5995be8940
commit a97733d5dc
8 changed files with 411 additions and 5 deletions
@@ -40,6 +40,11 @@ concrete SentenceMlt of Sentence = CatMlt ** open
        } ;
    } ;

+    -- Adv -> Imp -> Imp
+    AdvImp adv imp = {
+      s = \\pol,n => adv.s ++ imp.s ! pol ! n
+      } ;
+
    -- NP -> VPSlash -> ClSlash
    -- (whom) he sees
    SlashVP np vp =