(ExtendFunctor,Eng,Romance) Add construction "how to walk"

Default implementation: "how does one walk"
This commit is contained in:
Inari Listenmaa
2019-04-11 11:46:58 +02:00
parent 00649a04c0
commit a3302848ac
4 changed files with 7 additions and 2 deletions
+2
View File
@@ -190,6 +190,8 @@ incomplete concrete ExtendRomanceFunctor of Extend =
InOrderToVP = variants {} ; -- VP -> Adv ; -- (in order) to publish the document
PredIAdvVP iadv vp = {s = \\_,_,_,_ => iadv.s ++ infStr vp} ;
ApposNP np1 np2 = np1 ** {
s = \\c => {
c1 = (np1.s ! c).c1 ++ (np2.s ! c).c1 ;