added negation to Generic and Impersonal idioms with negative VP

This commit is contained in:
Aarne Ranta
2019-01-03 16:00:16 +01:00
parent e61670dce2
commit e251081325

View File

@@ -35,9 +35,9 @@ concrete IdiomFin of Idiom = CatFin **
(insertExtrapos ("kun" ++ s.s)
(insertObj (\\_,_,_ => ad.s) (predV olla))) ;
ImpersCl vp = mkClause noSubj (agrP3 Sg) vp ;
ImpersCl vp = mkClausePol vp.vptyp.isNeg noSubj (agrP3 Sg) vp ;
GenericCl vp = mkClause noSubj (agrP3 Sg) (passVP vp (casePrep nominative)) ;
GenericCl vp = mkClausePol vp.vptyp.isNeg noSubj (agrP3 Sg) (passVP vp (casePrep nominative)) ;
ProgrVP vp =
let