(Hun) Add case to A and AP

This commit is contained in:
Inari Listenmaa
2020-04-26 13:30:00 +02:00
parent 5b8e2eeb23
commit d7e10e843b
8 changed files with 44 additions and 40 deletions
+2 -2
View File
@@ -159,9 +159,9 @@ oper
mkA2 = overload {
mkA2 : A -> A2 = \a -> a ** {c2 = casePrep Nom} ;
mkA2 : Str -> Prep -> A2 = \s,p ->
lin A2 {s = (mkAdj s).s ; c2 = p} ;
lin A2 ((mkAdj s) ** {c2 = p}) ;
mkA2 : Str -> Case -> A2 = \s,c ->
lin A2 {s = (mkAdj s).s ; c2 = casePrep c} ;
lin A2 ((mkAdj s) ** {c2 = casePrep c}) ;
mkA2 : A -> Prep -> A2 = \a,p ->
lin A2 (a ** {c2 = p}) ;
} ;