completing Structural

This commit is contained in:
aarne
2005-11-30 11:17:21 +00:00
parent 80fcb22ef4
commit 198b527658
10 changed files with 232 additions and 103 deletions

View File

@@ -21,6 +21,8 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
NumNumeral numeral = {s = numeral.s ! NCard} ;
OrdNumeral numeral = {s = numeral.s ! NOrd} ;
AdNum adn num = {s = adn.s ++ num.s} ;
OrdSuperl a = {s = a.s ! AAdj Superl} ;
DefSg = {s = artDef ; n = Sg} ;