(Pes) Add premodifier APs

2026-07-02 12:08:34 -06:00 · 2019-03-14 13:36:02 +01:00
parent 76cbfa31a7
commit 58400060ad
8 changed files with 57 additions and 45 deletions
@@ -282,6 +282,8 @@ oper
      = \a,c -> lin A2 (mkAdj a a ** {c2 = c})
   } ;

+   preA : (adj,adv : Str) -> A = \adj,adv ->
+     lin A ((mkAdj adj adv) ** {isPre=True}) ;

   {-
    -- Demonstrative Pronouns