support unarticulated adjectives

This commit is contained in:
Krasimir Angelov
2024-12-08 13:39:55 +01:00
parent c6d43a8bbc
commit 643ea07c3b

View File

@@ -1219,6 +1219,8 @@ mkA = overload {
mkA : Str -> Str -> A = reg2A -- s;Nom;Masc;Sg s;Nom;Masc;Pl mkA : Str -> Str -> A = reg2A -- s;Nom;Masc;Sg s;Nom;Masc;Pl
} ; } ;
unartA : A -> A = \a -> a**{clit=False} ;
mkA2 = overload { mkA2 = overload {
mkA2 : A -> A2 = \a -> lin A2 a ** {c2=noPrep} ; mkA2 : A -> A2 = \a -> lin A2 a ** {c2=noPrep} ;
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 a ** {c2=p} ; mkA2 : A -> Prep -> A2 = \a,p -> lin A2 a ** {c2=p} ;