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

This commit is contained in:
aarne
2013-05-22 14:25:15 +00:00
parent 007df17175
commit 6f3a81617b
9 changed files with 29 additions and 5 deletions

View File

@@ -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")))) ;
}