(Ara) Fixes in DetNP + some Dets and Quants

This commit is contained in:
Inari Listenmaa
2019-01-29 15:46:59 +01:00
parent 267ef1b178
commit 08c0b3fe54
3 changed files with 18 additions and 7 deletions
+3
View File
@@ -61,6 +61,9 @@ oper
is1sg : Agr -> Bool = \a ->
case a.pgn of {Per1 Sing => True; _ => False} ;
someSg_Det = mkDet "أَحَد" Sg Const ;
somePl_Det = mkDet "بَعض" Pl Const ;
mkQuant7 : (_,_,_,_,_,_,_ : Str) -> State -> Quant =
\hava,havihi,havAn,havayn,hAtAn,hAtayn,hA'ulA,det -> lin Quant (baseQuant **
{ s = \\n,s,g,c =>