included capitals in some phonological string pattern matching in Fin and Ita

This commit is contained in:
aarne
2013-01-28 14:12:24 +00:00
parent 6af9575a68
commit a36e1de7a6
2 changed files with 4 additions and 3 deletions

View File

@@ -7,11 +7,12 @@ resource PhonoIta = open Prelude in {
oper
vocale : Strs = strs {
"a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y"
"a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y" ; "A" ; "E" ; "I" ; "O" ; "U" ; "H"
} ;
sImpuro : Strs = strs {
"z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv"
"z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" ;
"Z" ; "Sb" ; "Sc" ; "Sd" ; "Sf" ; "Sm" ; "Sp" ; "Sq" ; "Sr" ; "St" ; "Sv"
} ;
elision : (_,_,_ : Str) -> Str = \il, l', lo ->