more paradigms for Cze N and A

2020-04-04 12:56:49 +02:00
parent e57e916349
commit 0da96d0fce
5 changed files with 10 additions and 1 deletions
@@ -16,4 +16,8 @@ concrete AdjectiveCze of Adjective = CatCze ** open ResCze, Prelude in {

    UseA2 a = adjFormsAdjective a ** {isPost = False} ;

+    UseComparA a = adjFormsAdjective a ** {isPost = False} ; ---- TODO: this gives positive forms 
+
+    AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s} ;
+
 }