corrections in new Finnish paradigms

lib/resource/finnish/LexiconFin.gf

@@ -41,14 +41,14 @@ lin
   buy_V2 = mkV2 (mkV "ostaa") ;
   camera_N = mkN "kamera" ;
   cap_N = mkN "lakki" ;
-  car_N = mk3N "auto" "auton" "autoja" ; -- mkN: audon
+  car_N = mkN "auto" "auton" "autoja" ; -- mkN: audon
   carpet_N = mkN "matto" ;
   cat_N = mkN "kissa" ;
   ceiling_N = mkN "katto" ;
   chair_N = mkN "tuoli" ;
   cheese_N = mkN "juusto" ;
-  child_N = mkN "lapsi" "lapsen" "lapsena" "lasta" "lapseen" 
+  child_N = mkN "lapsi" "lapsen" "lasta" "lapsena" "lapseen" 
-            "lapsina" "lapsissa" "lasten" "lapsia" "lapsiin" ;
+              "lasten" "lapsia" "lapsina" "lapsissa" "lapsiin" ;
   church_N = mkN "kirkko" ;
   city_N = mkN "kaupunki" ;
   clean_A = mkA "puhdas" ;
@@ -109,19 +109,19 @@ lin
   lake_N = mkN "järvi" "järviä" ;
   lamp_N = mkN "lamppu" ;
   learn_V2 = 
-    mkV2 (mk12V "oppia" "oppii" "opin" "oppivat" "oppikaa" "opitaan"
+    mkV2 (mk12V "oppia" "opin" "oppii" "oppivat" "oppikaa" "opitaan"
-      "oppi" "opin" "oppisi" "oppinut" "opittu" "opitun") ;
+      "opin" "oppi" "oppisi" "oppinut" "opittu" "opitun") ;
   leather_N = mkN "nahka" ; --- nahan
   leave_V2 = mkV2 (mkV "jättää") ;
   like_V2 = mkV2 (mkV "pitää") elative ;
   listen_V2 = mkV2 (mkV "kuunnella" "kuuntelen" "kuunteli") partitive ;
   live_V = mkV "elää" ;
   long_A = mkA (mkN "pitkä") "pitempi" "pisin" ;
-  lose_V2 = mkV2 (mkV "hävitä") ; --- hukata
+  lose_V2 = mkV2 (mkV "hävitä" "hävisi") ; --- hukata
   love_N = mk3N "rakkaus" "rakkauden" "rakkauksia" ;
   love_V2 = mkV2 (mkV "rakastaa") partitive ;
-  man_N = mkN "mies" "miehen" "miehenä" "miestä" "mieheen" 
+  man_N = mkN "mies" "miehen" "miestä" "miehenä" "mieheen" 
-            "miehinä" "miehissä" "miesten" "miehiä" "miehiin" ;
+              "miesten" "miehiä" "miehinä" "miehissä" "miehiin" ; 
   married_A2 = mkA2 (mkA "avioitunut") (postPrep genitive "kanssa") ; ---- infl
   meat_N = mkN "liha" ;
   milk_N = mkN "maito" ;
@@ -134,7 +134,7 @@ lin
   newspaper_N = mkN "sanoma" (mkN "lehti" "lehtiä") ; --- for correct vowel harmony
   oil_N = mkN "öljy" ;
   old_A = mkA (mkN "vanha") "vanhempi" "vanhin" ;
-  open_V2 = mkV2 (mkV "avata") ;
+  open_V2 = mkV2 (mkV "avata" "avasi") ;
   paint_V2A = mkV2A (mkV "maalata") accPrep (casePrep translative) ;
   paper_N = mk2N "paperi" "papereita" ;
   paris_PN = mkPN (mkN "Pariisi") ;
@@ -165,8 +165,8 @@ lin
   sea_N = mkN "meri" "meren" "meriä" "merta" ;
   seek_V2 = mkV2 (mkV "etsiä") cpartitive ;
   see_V2 = mkV2 (
-    mk12V "nähdä" "näkee" "näen" "näkevät" "nähkää" "nähdään"
+    mk12V "nähdä" "näen" "näkee" "näkevät" "nähkää" "nähdään"
-      "näki" "näin" "näkisi" "nähnyt" "nähty" "nähdyn") ; 
+      "näin" "näki" "näkisi" "nähnyt" "nähty" "nähdyn") ; 
   sell_V3 = mkV3 (mkV "myydä") accPrep (casePrep allative) ;
   send_V3 = mkV3 (mkV "lähettää") accPrep (casePrep allative) ;
   sheep_N = mkN "lammas" ;
@@ -207,7 +207,7 @@ lin
   university_N = mkN "yliopisto" ;
   village_N = mkN "kylä" ;
   wait_V2 = mkV2 (mkV "odottaa") partitive ;
-  walk_V = mkV "kävellä" ;
+  walk_V = mkV "kävellä" "käveli" ;
   warm_A = mkA 
     (mkN "lämmin" "lämpimän" "lämpimänä" "lämmintä" "lämpimään" 
          "lämpiminä" "lämpimissä" "lämpimien" "lämpimiä" "lämpimiin"
@@ -228,8 +228,8 @@ lin
   young_A = mkA (mkN "nuori" "nuoria") "nuorempi" "nuorin" ;
 
   do_V2 = mkV2 (
-    mk12V "tehdä" "tekee" "teen" "tekevät" "tehkää" "tehdään"
+    mkV "tehdä" "teen" "tekee" "tekevät" "tehkää" "tehdään"
-      "teki" "tein" "tekisi" "tehnyt" "tehty" "tehdyn") ; 
+      "tein" "teki" "tekisi" "tehnyt" "tehty" "tehdyn") ; 
 
   now_Adv = mkAdv "nyt" ;
   already_Adv = mkAdv "jo" ;
@@ -283,10 +283,11 @@ lin
   hair_N = mkN "hius" ;
   hand_N = mk3N "käsi" "käden" "käsiä" ;
   head_N = mkN "pää" ;
-  heart_N = mk3N "sydän" "sydämen" "sydämiä" ;
+  heart_N = mkN "sydän" "sydämen" "sydäntä" "sydämenä" "sydämeen"
+                "sydänten" "sydämiä" "sydäminä" "sydämissä" "sydämiin" ;
   horn_N = mk2N "sarvi" "sarvia" ;
-  husband_N = mkN "mies" "miehen" "miehenä" "miestä" "mieheen" 
+  husband_N = mkN "mies" "miehen" "miestä" "miehenä" "mieheen" 
-            "miehinä" "miehissä" "miesten" "miehiä" "miehiin" ; 
+                  "miesten" "miehiä" "miehinä" "miehissä" "miehiin" ; 
   ice_N = mkN "jää" ;
   knee_N = mk2N "polvi" "polvia" ;
   leaf_N = mk2N "lehti" "lehtiä" ;
@@ -352,11 +353,12 @@ lin
   split_V2 = mkV2 (mk2V "halkaista" "halkaisi") ;
   squeeze_V2 = mkV2 (mkV "puristaa") cpartitive ;
   stab_V2 = mkV2 (mkV "pistää") cpartitive ;
-  stand_V = mk12V "seistä" "seisoo" "seison" "seisovat" "seiskää" "seistään"
+  stand_V = mk12V "seistä" "seison" "seisoo" "seisovat" "seiskää" "seistään"
-      "seisoi" "seisoin" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoivät
+      "seisoin" "seisoi" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoivät
   suck_V2 = mkV2 (mkV "imeä") cpartitive ;
-  swell_V = mk12V "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan"
+  swell_V = mkV "turvota" "turposi" ;
-      "turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ;
+--  swell_V = mk12V "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan"
+--      "turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ;
   swim_V = mkV "uida" "uin" "ui" ;
   think_V = mkV "ajatella" "ajattelen" "ajatteli" ;
   throw_V2 = mkV2 (mkV "heittää") ;

lib/resource/finnish/ParadigmsFin.gf

@@ -373,7 +373,7 @@ oper
               "ie" | "uo" | "yö" | "ea" | "eä" | 
               "ia" | "iä" | "io" | "iö" | "ja" | "jä"), _ + "n"> => 
            ukot ; --- to protect
-        <_ + ("a" | "o" | "u" | "y" | "ä" | "ö"), _ + "n", _ + ("a" | "ä")> => 
+        <_ + ("a" | "o" | "u" | "y" | "ä" | "ö"), _ + "n"> => 
           dSilakka ukko ukon ukkoja ;  -- auto,auton
         <_ + "mpi", _ + ("emman" | "emmän")> => dSuurempi ukko ;
         <_ + "in", _ + ("imman" | "immän")> => dSuurin ukko ;