bug fixes in Finnish

1 files changed, 16 insertions, 0 deletions

diff --git a/next-lib/src/finnish/ResFin.gf b/next-lib/src/finnish/ResFin.gf
index 5fc68384d..e26c96b26 100644
--- a/next-lib/src/finnish/ResFin.gf
+++ b/next-lib/src/finnish/ResFin.gf
@@ -586,4 +586,20 @@ oper
     } ;
 
   etta_Conj : Str = "että" ;
+
+    heavyDet : PDet -> PDet ** {sp : Case => Str} = \d -> d ** {sp = d.s1} ;
+    PDet : Type = {
+      s1 : Case => Str ;
+      s2 : Str ;
+      n : Number ;
+      isNum : Bool ;
+      isPoss : Bool ;
+      isDef : Bool
+      } ;
+
+    heavyQuant : PQuant -> PQuant ** {sp : Number => Case => Str} = \d -> 
+      d ** {sp = d.s1} ; 
+    PQuant : Type =  
+      {s1 : Number => Case => Str ; s2 : Str ; isPoss : Bool ; isDef : Bool} ; 
+
 }