fixed Finnish youPol complement number to Sg ; some encoding things in French

This commit is contained in:
aarne
2010-04-06 12:24:41 +00:00
parent ba13052d31
commit dc35b0a82b
3 changed files with 40 additions and 24 deletions

View File

@@ -108,7 +108,7 @@ concrete WordsFin of Words = SentencesFin **
mkPlace : N -> Bool -> {name : CN ; at : Prep ; to : Prep} = \p,e -> {
name = mkCN p ;
at = casePrep (if_then_else Case e adessive inessive) ; -- True: external
to = casePrep (if_then_else Case e allative elative) ;
to = casePrep (if_then_else Case e allative illative) ;
} ;
open_Adv = ParadigmsFin.mkAdv "avoinna" ;