(Ara) fix SlashVV

This commit is contained in:
Inari Listenmaa
2019-01-01 09:50:44 +02:00
parent d0158265d1
commit dbe14786e7

View File

@@ -5,7 +5,8 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
lin lin
UseV = predV ; UseV = predV ;
SlashVV vv vps = vps ** predV vv ; ----IL -- : VV -> VPSlash -> VPSlash
SlashVV vv vps = vps ** ComplVV vv vps ;
-- : V2V -> VP -> VPSlash ; -- beg (her) to go -- : V2V -> VP -> VPSlash ; -- beg (her) to go
SlashV2V v2v vp = let v2vVP = predV v2v in -- IL SlashV2V v2v vp = let v2vVP = predV v2v in -- IL