(Kor) Adv, AdA and AP related functions

2026-06-27 03:46:29 -06:00 · 2020-03-25 13:42:22 +01:00
parent c49bcb2f69
commit cfdc4d9955
6 changed files with 31 additions and 22 deletions
@@ -141,8 +141,9 @@ concrete NounKor of Noun = CatKor ** open ResKor, 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 => ap.s ! AAttr ++ cn.s ! nf
+    } ;

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