(Eng) Agreement with ReflVP + ComplSlash

ComplSlash ( … ReflVP … ) X:    reflexive should agree with X
ReflVP ... ( … ComplSlash … X): reflexive should agree with subject
This commit is contained in:
Inari Listenmaa
2018-05-01 16:35:02 +02:00
parent 0a1460ee85
commit 76885d3185
3 changed files with 41 additions and 20 deletions
+1 -1
View File
@@ -111,7 +111,7 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
ClSlash = \s -> {s = \\t,a,p,o => s; c2 = ""} ;
VP = \s -> predV {s = \\_ => s; p = ""; isRefl = False} ;
VPSlash = \s -> predV {s = \\_ => s; p = ""; isRefl = False} ** {c2 = ""; gapInMiddle = False} ;
VPSlash = \s -> predV {s = \\_ => s; p = ""; isRefl = False} ** {c2 = ""; gapInMiddle = False; missingAdv = False } ;
V, VS, VQ, VA = \s -> {s = \\_ => s; p = ""; isRefl = False} ;
V2, V2A, V2Q, V2S = \s -> {s = \\_ => s; p = ""; isRefl = False; c2=""} ;