(Ara) Add various functions to make SymbolicAra work.

2018-09-18 11:30:58 +02:00
parent c660dd6aa5
commit db0bbfd1fb
5 changed files with 41 additions and 30 deletions
@@ -189,5 +189,6 @@ lin
  --    AdvCN cn ad = {s = \\n,c => cn.s ! n ! c ++ ad.s} ;
  --
  --    SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ;
-  --    ApposCN cn np =
+  ApposCN cn np = cn ** {
+    s = \\n,d,c => cn.s ! n ! d ! c ++ np.s ! c } ;
 }