started relative clauses

2024-07-25 18:23:35 +02:00
parent b1a5cf93b6
commit 5135e5c5ca
8 changed files with 54 additions and 14 deletions
@@ -1,6 +1,10 @@
 concrete ExtendTur of Extend = CatTur ** open ResTur, SuffixTur, Predef in {

  lin
+    GenRP n cn = {
+      s = cn.gen ! n.n
+    } ;
+
    GenModNP num np cn = {
      s = \\c => np.s ! Nom ++ num.s ! num.n ! c ++ cn.gen ! num.n ! np.a ;
      h = cn.h ;