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

lib/src/abstract/Extra.gf

@@ -78,4 +78,8 @@ abstract Extra = Cat ** {
 
     NominalizeVPSlashNP : VPSlash -> NP -> NP ;
 
+-- existential for mathematics
+
+    ExistsNP : NP -> Cl ;  -- there exists a number / there exist numbers
+
 }

lib/src/catalan/ExtraCat.gf

@@ -1,5 +1,5 @@
 concrete ExtraCat of ExtraCatAbs = ExtraRomanceCat ** 
-open CommonRomance, ParadigmsCat, PhonoCat, MorphoCat, ParamX, ResCat, 
+open CommonRomance, ParadigmsCat, PhonoCat, MorphoCat, ParamX, ResCat, BeschCat,
  Prelude in {
 
 flags coding = utf8 ;
@@ -81,4 +81,7 @@ lin
         ext   = vps.ext
         } ;
 
+    ExistsNP np = 
+      mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV (complir_25 "existir")))) ;
+
 }

lib/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
 

lib/src/finnish/ExtraFin.gf

@@ -17,7 +17,8 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
 
     GenRP num cn = {
       s = \\n,c => let k = npform2case num.n c in relPron ! n ! Gen ++ cn.s ! NCase num.n k ; 
-      a = RNoAg ---RAg (agrP3 num.n)
+      a = RNoAg 
+---      a = RAg (agrP3 num.n)
       } ;
 
     GenCN n1 n2 = {s = \\nf => n1.s ! NPCase Gen ++ n2.s ! nf ;

lib/src/french/ExtraFre.gf

@@ -73,4 +73,7 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
 
     PNegNe = {s = [] ; p = RNeg True} ;
 
+    ExistsNP np = 
+      mkClause "il" True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (regV "exister"))) ;
+
 }

lib/src/italian/ExtraIta.gf

@@ -45,4 +45,8 @@ concrete ExtraIta of ExtraItaAbs = ExtraRomanceIta **
     AdvDatVP = insertClit3 datClit ;
     AdvGenVP = insertClit3 genClit ;
 
+    ExistsNP np = 
+      mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (regV "esistere"))) ;
+
+
 }

lib/src/italian/ParadigmsIta.gf

@@ -365,6 +365,7 @@ oper
       i   = last ci ;
       verb = case are of {
         "ire" =>  finire_100 x ;
+        "ere" =>  assistere_24 x ;
         _ => case i of {
           "c" => cercare_7 x ;
           "g" => legare_8 x ;

lib/src/romance/ExtraRomanceAbs.gf

@@ -1,8 +1,8 @@
 abstract ExtraRomanceAbs = Cat, Extra[
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
   VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,
-  PassVPSlash,
-  Temp,Pol,S,NP,VPSlash,
+  PassVPSlash,ExistsNP,
+  Temp,Pol,S,NP,VPSlash,Cl,
   VV,VP,Conj,Pron,ProDrop,CompIQuant,IQuant,IComp,PrepCN,CN,Prep,Adv] ** {
 
   fun 

lib/src/spanish/ExtraSpa.gf

@@ -1,5 +1,5 @@
 concrete ExtraSpa of ExtraSpaAbs = ExtraRomanceSpa ** 
-  open CommonRomance, PhonoSpa, MorphoSpa, ParadigmsSpa, ParamX, ResSpa, 
+  open CommonRomance, PhonoSpa, MorphoSpa, ParadigmsSpa, ParamX, ResSpa, BeschSpa,
   Prelude in {
   
   lin
@@ -66,4 +66,7 @@ concrete ExtraSpa of ExtraSpaAbs = ExtraRomanceSpa **
         ext   = vps.ext
         } ;
 
+    ExistsNP np = 
+      mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV "existir"))) ;
+
 }