automatic negation of with_Prep

This commit is contained in:
Krasimir Angelov
2018-06-07 14:58:03 +02:00
parent fe72ccdec1
commit 2869eaf6e9
4 changed files with 81 additions and 54 deletions
+1 -1
View File
@@ -26,7 +26,7 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
} ;
FunRP p np rp = {
s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "íà"}) ++ rp.s ! gn ;
s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "íà"; WithPrep => with_Word}) ++ rp.s ! gn ;
} ;
IdRP = {