(Ara) Small fixes + comments

This commit is contained in:
Inari Listenmaa
2018-11-21 16:04:55 +01:00
parent 45df74b36b
commit 473f6ae05b
5 changed files with 9 additions and 9 deletions
+1 -1
View File
@@ -13,7 +13,7 @@ concrete RelativeAra of Relative = CatAra **
s = \\t,p,agr,c =>
let
npS : Case => Str = \\_ => rp.s ! agr2ragr agr c ;
np : NP = agrNP agr ** {s = npS} ;
np : ResAra.NP = agrNP agr ** {s = npS} ;
cl = predVP np vp ;
in
cl.s ! t ! p ! Nominal