(Ara) N2 and N3

This commit is contained in:
Inari Listenmaa
2018-09-26 15:01:14 +02:00
parent 942ef0b0ff
commit f486149267
4 changed files with 23 additions and 16 deletions
+6 -2
View File
@@ -92,7 +92,11 @@ resource ParadigmsAra = open
--3 Relational nouns
mkN2 : N -> Preposition -> N2 ;
mkN2 = overload {
mkN2 : N -> Preposition -> N2 = prepN2 ;
mkN2 : N -> N2 = \n -> lin N2 (n ** {c2 = []}) ;
mkN2 : Str -> N2 = \str -> lin N2 (smartN str ** {c2 = []})
} ;
mkN3 : N -> Preposition -> Preposition -> N3 ;
@@ -402,7 +406,7 @@ resource ParadigmsAra = open
};
mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ;
prepN2 : N -> Str -> N2 = \n,p -> lin N2 (n ** {c2 = p}) ;
mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ;