completing Structural

This commit is contained in:
aarne
2005-11-30 11:17:21 +00:00
parent 5ac7e102a0
commit c303858b85
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} ;