restricted functor example

This commit is contained in:
aarne
2007-06-19 19:35:04 +00:00
parent 780276850c
commit badae80454
3 changed files with 20 additions and 22 deletions

View File

@@ -1,7 +1,7 @@
concrete MusicLexFin of MusicLex =
CatFin ** open ParadigmsFin in {
lin
song_N = regN "kappale" ; ---- mkN
american_A = regA "amerikkalainen" ; ---- mkA
song_N = mkN "kappale" ;
american_A = mkA "amerikkalainen" ;
}