ongoing work on numerals

This commit is contained in:
Herbert Lange
2019-06-12 15:03:27 +02:00
parent 8dde0246c4
commit f725562f79
5 changed files with 133 additions and 80 deletions
+2 -2
View File
@@ -111,8 +111,8 @@ concrete NounLat of Noun = CatLat ** open ResLat, Prelude, ConjunctionLat in {
-- OrdDigits n = {s = n.s ! NOrd} ;
--
lin
NumNumeral numeral = numeral.card ;
OrdNumeral numeral = numeral.ord ;
-- NumNumeral numeral = numeral.s ;
-- OrdNumeral numeral = numeral.ord ;
--
-- AdNum adn num = {s = adn.s ++ num.s ; n = num.n} ;
--