DELIMITERS = "<s>" "<p>" "</s>" "</p>" ;

SETS
LIST >>> = >>> ;
LIST <<< = <<< ;
LIST Subst = S ;
LIST Ei = "<ei>";

CONSTRAINTS

#Omadussõnad
#avalikult, õnnelikult - pole adjektiivid, kui paremas kontekstis pole midagi, millega nad ühilduks
REMOVE (A) (0 (abl)) (NOT *1 (abl));

#Eitusega seotud reeglid
#ei pole määrsõna, kui järgneb vahetult verb, millel on eitava kõne tõlgendus
REMOVE ("ei" D) (1 (V)+ (neg));
#verb pole jaatavas kõnes, kui eelneb ei, mis on verbi osa
REMOVE (af) (-1C ("ei" V));
#verb pole eitavas kõnes kui kusagil vasakul pole eitust, v.a. erandid
REMOVE (V neg) (NOT 0 ("ei") OR ("ära") OR ("ole")) (NOT *-1 (neg))(NOT -1
("ega));
#käskiva kõneviisisi verb pole eitavas kõnes kui vasakul pole ära
REMOVE (imper neg) (NOT *-1 ("ära"));
#ei näinud - partitsiip on hoopis mineviku eitav kõne, kui eelneb ei
SELECT (V impf neg) (-1 ("ei"));
#vali verbi tõlgendus, kui eelnev sõna on ei verbi tõlgendusega
SELECT (V) (-1C (V aux neg)); #ei mahu koos kaadrisse


#Modaalverbid
#näima
REMOVE (V mod) (0 ("näi"))(NOT *1 (quot pres ps));
#pidama
REMOVE (V mod) (0 ("pida"))(NOT *1 (sup ill))(NOT -1 (sup ill));
#saama
REMOVE (V mod) (0 ("saa") OR ("või"))(NOT *1 (inf))(NOT -1 (inf));

#Abiverbid
REMOVE ("ole" V aux) (NOT *-1 (partic past)) (NOT *1 (partic past));

#Verbi ainsus-mitmus
SELECT (V pl) (*-1C (S pl nom) BARRIER (V) OR (Com));



SELECT ("kes" pl) (-2C (P pl))(-1 (Com));
SELECT ("kes" sg) (-2C (P sg))(-1 (Com));
SELECT ("kes" sg) (*-2C (P sg) BARRIER (V));
SELECT ("kes" pl) (*-2C (P pl) BARRIER (V));
  
END