(Hun) New paradigms for PN

2020-04-18 08:21:46 +02:00
parent f26b10a8b3
commit 18a763d764
3 changed files with 16 additions and 8 deletions
@@ -32,6 +32,11 @@ oper

  indeclNP : Str -> NounPhrase = \s -> emptyNP ** {s = \\c => s} ;

+  defNP : Str -> Number -> NounPhrase = \s,n -> emptyNP ** {
+    s = (mkNoun s).s ! n ;
+    n = n ;
+    objdef = Def ;
+    } ;
 --------------------------------------------------------------------------------
 -- Pronouns