(Som) Better handling of AP and NP complements, remove redundant fields

This commit is contained in:
Inari Listenmaa
2019-09-26 15:11:20 +02:00
parent e63eae8519
commit 819bdacc65
4 changed files with 61 additions and 76 deletions

View File

@@ -88,15 +88,15 @@ concrete QuestionSom of Question = CatSom ** open
-- : IAdv -> IComp ;
CompIAdv iadv = { -- where (is it)
comp = \\_ => <[], []> ;
npcomp = iadv.s ;
aComp = \\_ => [] ;
nComp = iadv.s ;
stm = Waa NoCopula ;
} ;
-- : IP -> IComp ;
CompIP ip = { -- who (is it)
comp = \\_ => <[], []> ;
npcomp = ip.s ! Abs ;
aComp = \\_ => [] ;
nComp = ip.s ! Abs ;
stm = Waa NoCopula ;
} ;