(Romance) add lins

- add AdVVPSlash, AdvVPSlash, CountNP, PartNP
- simplify opers using record extension
- rm CountNP from NounPor
This commit is contained in:
odanoburu
2018-06-26 17:35:37 -03:00
parent a730a3194b
commit 29c044a315
4 changed files with 18 additions and 28 deletions

View File

@@ -105,6 +105,10 @@ incomplete concrete VerbRomance of Verb =
AdVVP adv vp = insertAdV adv.s vp ;
AdvVPSlash vps adv = vps ** insertAdv adv.s vps ;
AdVVPSlash adv vps = vps ** insertAdV adv.s vps ;
PassV2 v = insertComplement
(\\a => let agr = complAgr a in v.s ! VPart agr.g agr.n) (predV auxPassive) ;