add some more changes

2018-03-23 19:02:52 -03:00
parent 2aaa698f69
commit 2939809f45
20 changed files with 5555 additions and 6852 deletions
@@ -0,0 +1,15 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsPor = Combinators - [appCN, appCNc] with 
+  (Cat = CatPor),
+  (Structural = StructuralPor),
+  (Noun = NounPor),
+  (Constructors = ConstructorsPor) ** 
+{
+oper
+appCN : CN -> NP -> NP
+       = \cn,x -> mkNP the_Art (PossNP cn x) ;
+appCNc : CN -> [NP] -> NP
+       = \cn,xs -> let np : NP = mkNP and_Conj xs
+                   in mkNP the_Art (PossNP cn np) ; 
+}