(Fin) Create paradigm for lämmin-lämpimän, Sg Gen not covered by dSuurin

src/finnish/MorphoFin.gf

@@ -98,6 +98,17 @@ resource MorphoFin = ResFin ** open Prelude in {
       (liittim + "in" + a) (liittim + "iss" + a)
       (liittim + "iin") ;
 
+  dLämmin : (_,_ : Str) -> NForms = \lämmin,lämpimän ->
+    let                   -- NB. for sisin~sisimmän, use dSuurin
+      a = vowHarmony lämmin ;
+      lämpim = Predef.tk 2 lämpimän ;
+    in nForms10
+      lämmin lämpimän (lämmin + "t" + a)
+      (lämpim + a + "n" + a)  (lämpim + a + a + "n")
+      (lämpim + "ien") (lämpim + "i" + a)
+      (lämpim + "in" + a) (lämpim + "iss" + a)
+      (lämpim + "iin") ;
+
   dOnneton : Str -> NForms = \onneton ->
     let
       a = vowHarmony onneton ;

src/finnish/ParadigmsFin.gf

@@ -595,6 +595,7 @@ mkVS = overload {
           dSilakka ukko ukon ukkoja ;  -- auto,auton
         <_ + "mpi", _ + ("emman" | "emmän")> => dSuurempi ukko ;
         <_ + "in", _ + ("imman" | "immän")> => dSuurin ukko ;
+        <lämm + "in", lämpi + ("man"|"män")> => dLämmin ukko ukon ;
         <terv + "e", terv2 + "een"> => -- was nonlinear
           dRae ukko ukon ;
         <taiv + ("as" | "äs"), taiv2 + ("aan" | "ään")> =>  -- was nonlinear