double negation in Bulgarian

This commit is contained in:
kr.angelov
2013-12-04 08:20:40 +00:00
parent 4d625c7ba5
commit ffed8ba854
14 changed files with 189 additions and 106 deletions

View File

@@ -14,7 +14,7 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
RelVP rp vp = {
s = \\t,a,p,agr =>
let
cl = mkClause (rp.s ! agr.gn) agr vp
cl = mkClause (rp.s ! agr.gn) agr Pos vp
in
cl.s ! t ! a ! p ! Main ;
role = RSubj