forked from GitHub/gf-rgl
generalize infVP to support negative VP in Romance
This commit is contained in:
@@ -31,7 +31,7 @@ concrete IdiomFre of Idiom = CatFre **
|
||||
|
||||
ProgrVP vp =
|
||||
insertComplement
|
||||
(\\a => "en" ++ "train" ++ elisDe ++ infVP vp a)
|
||||
(\\a => "en" ++ "train" ++ elisDe ++ infVP vp RPos a)
|
||||
(predV copula) ;
|
||||
|
||||
ImpPl1 vp = {
|
||||
|
||||
Reference in New Issue
Block a user