(May) AdjCN + change lincat of A*

2026-06-30 02:58:35 -06:00 · 2020-09-03 13:39:30 +02:00
parent c1e12b60ab
commit 6e6b7b09ad
3 changed files with 6 additions and 5 deletions
@@ -158,8 +158,9 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
  -- : N3 -> N2 ;          -- distance (to Paris)
  -- Use3N3 n3 = lin N2 n3 ;
  -- : AP -> CN -> CN
-  -- AdjCN ap cn = cn ** {
-  --   } ;
+  AdjCN ap cn = cn ** {
+    s = \\nf => cn.s ! nf ++ ap.s
+    } ;

  -- : CN -> RS  -> CN ;
  RelCN cn rs = cn ** {