fix the polarity in ExistNP and ExistNPAdv

This commit is contained in:
Krasimir Angelov
2026-08-23 20:03:33 +02:00
parent 10d45593e4
commit d2b7bf2fb6
+2 -2
View File
@@ -11,7 +11,7 @@ concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd,MorphoMkd in {
Pos => mkV001 "има" ;
Neg => mkV001 "нема"
} ** {compl = \\_ => np.s ! RSubj} ;
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a ! p
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a ! Pos
} ;
lin ExistNPAdv np a = {
s = \\o,t,a2,p =>
@@ -19,7 +19,7 @@ concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd,MorphoMkd in {
Pos => mkV001 "има" ;
Neg => mkV001 "нема"
} ** {compl = \\_ => np.s ! RSubj ++ a.s} ;
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a2 ! p
in mkClause [] {g=GSg Neuter; p=P3} vp ! o ! t ! a2 ! Pos
} ;
lin GenericCl vp = {s = \\t,a,p,o => vp.present ! Imperfective ! Sg
! P1} ;