double negation in ComplVV
This commit is contained in:
1 parent
112aea1efc
commit
e5c523e480
1 file changed
+1
-1
@@ -34,7 +34,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
|
||||
|
||||
ComplVV vv vp =
|
||||
insertObj (case vv.typ of {
|
||||
VVInf asp => daComplex Simul Pos vp ! asp;
|
||||
VVInf asp => daComplex Simul vp.p vp ! asp;
|
||||
VVGerund => gerund vp ! Imperf
|
||||
}) vp.p
|
||||
(predV vv) ;
|
||||
|
||||
Reference in new issue
Block a user