lab1/grammar/korean/MicroResKor.gf

@@ -1,10 +1,19 @@
 resource MicroResKor = open Prelude in {
   param
-    VForm = VPresent | VPast ;
+    VForm = Lemma | VPresent | VPast ;
 
   oper
     Noun : Type = {s : Str} ;
     Verb : Type = {s : VForm => Str} ;
     Verb2 : Type = Verb ;
     Adjective : Type = Verb ;
+
+    lemmaToStem : (lemma : Str) -> Str
+      = \lemma -> case lemma of {
+	stem + "다" => stem ;
+	_ => Predef.error ("lemmaToStem was applied to a non-lemma, " ++ lemma)
+      } ;
+
+    -- regVerb_eo : (lemma : Str) -> Verb
+      
 }