factored English uncontracted negation to one constant, ExtraEng.UncNeg : Pol

This commit is contained in:
aarne
2011-06-02 08:05:31 +00:00
parent 5782bea01d
commit 20966efd85
6 changed files with 63 additions and 37 deletions

View File

@@ -1,9 +1,13 @@
concrete CatEng of Cat = CommonX ** open ResEng, Prelude in {
concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
flags optimize=all_subs ;
lincat
-- exception to CommonX, due to the distinction contracted/uncontracted negation
Pol = {s : Str ; p : CPolarity} ;
-- Tensed/Untensed
S = {s : Str} ;