added UseCopula to Fin,Ger,romance since needed in YAQL

This commit is contained in:
aarne committed 2012-11-13 09:48:26 +00:00
1 parent e8c0ae67f4
commit 9c07e219a5
3 files changed
+5

No files matched your search

+2
View File
@@ -55,6 +55,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
UseComp comp =
insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = True})) ;
UseCopula = predV (verbOlla ** {sc = NPCase Nom ; qp = True}) ;
SlashVV v vp =
insertObj
(\\_,b,a => infVP v.sc b a vp v.vi)