added UttVPShort

This commit is contained in:
Krasimir Angelov
2024-07-24 08:17:33 +02:00
parent 6648913d4e
commit 4f05d5629b

View File

@@ -7,6 +7,8 @@ concrete ExtendTur of Extend = CatTur ** open ResTur in {
a = {n=num.n; p=P3} ; a = {n=num.n; p=P3} ;
} ; } ;
UttVPShort vp = {s = vp.s ! VInf Pos} ;
TPastSimple = {s = []} ** {t = Past} ; --# notpresent TPastSimple = {s = []} ** {t = Past} ; --# notpresent
PositAdVAdj a = {s = a.s ! Sg ! Nom} ; PositAdVAdj a = {s = a.s ! Sg ! Nom} ;