(Som) More fine-grained parameter for modifiers in NPs (AP vs. Other)

2019-09-27 16:44:21 +02:00
parent 3f30e0946e
commit 096115c35f
3 changed files with 42 additions and 20 deletions
@@ -224,6 +224,15 @@ oper
 param
  AForm = AF Number Case ; ---- TODO: past tense

+  ModType = NoMod | AMod | OtherMod ;
+
+oper
+  -- to flip ModType
+  notMod : ModType -> ModType = \mt -> case mt of {
+    NoMod => OtherMod ;
+    _ => NoMod
+  } ;
+
 --------------------------------------------------------------------------------
 -- Prepositions