ExistsNP in Extra for Cat,Eng,Fre,Ita,Spa

2013-05-22 14:25:15 +00:00
parent a0c874da06
commit bb0f5cf6a8
9 changed files with 29 additions and 5 deletions
--- a/src/english/ExtraEng.gf
+++ b/src/english/ExtraEng.gf
@@ -169,6 +169,11 @@ lin
     _  => insertObjPartLast (\\_ => vps.c2 ++ np.s ! NPAcc) vps  ---
     } ;

+   --- AR 22/5/2013
+   ExistsNP np = 
+      mkClause "there" (agrP3 (fromAgr np.a).n) 
+        (insertObj (\\_ => np.s ! NPAcc) (predV (regV "exist"))) ;
+
 ------------
 --- obsolete: use UncNeg : Pol