added Noun.ApposCN

This commit is contained in:
aarne
2006-03-17 11:01:09 +00:00
parent f294828600
commit 3628ee2960
6 changed files with 31 additions and 5 deletions

View File

@@ -146,6 +146,8 @@ concrete NounFin of Noun = CatFin ** open ResFin, Prelude in {
SentCN cn sc = {s = \\nf=> cn.s ! nf ++ sc.s} ;
ApposCN cn np = {s = \\nf=> cn.s ! nf ++ np.s ! NPCase Nom} ; --- luvun x
oper
numN : NForm -> Number = \nf -> case nf of {
NCase n _ => n ;