German lexicon completed

This commit is contained in:
aarne
2006-03-21 15:47:04 +00:00
parent b0bd331e1d
commit 197af7fbaf
4 changed files with 135 additions and 139 deletions

View File

@@ -26,6 +26,9 @@ oper
{s : Gender => Case => Str ; n : Number ; a : Adjf} = \n,dies ->
{s = appAdj (regA dies) ! n ; n = n ; a = Weak} ;
mkOrd : {s : Degree => AForm => Str} -> {s : AForm => Str} = \a ->
{s = a.s ! Posit} ;
-- For $ParadigmsGer$.
genitS : Str -> Str = \hund -> case hund of {