Tha increments

This commit is contained in:
aarne
2011-11-30 10:52:59 +00:00
parent 11a37316da
commit 1547ccd7cc
4 changed files with 14 additions and 6 deletions

View File

@@ -40,6 +40,11 @@ resource ResTha = ParamX, StringsTha ** open Prelude in {
thword : (s1,_,s3 : Str) -> Str = \s1,s2,s3 -> s1 + s2 + s3 ;
thword : (s1,_,_,s4 : Str) -> Str =
\s1,s2,s3,s4 -> s1 + s2 + s3 + s4 ;
thword : (s1,_,_,_,s5 : Str) -> Str =
\s1,s2,s3,s4,s5 -> s1 + s2 + s3 + s4 + s5 ;
thword : (s1,_,_,_,_,s6 : Str) -> Str =
\s1,s2,s3,s4,s5,s6 -> s1 + s2 + s3 + s4 + s5 + s6 ;
} ;
-- noun and classifier