forked from GitHub/gf-rgl
(May) add ByVP
This commit is contained in:
@@ -17,6 +17,7 @@ concrete ExtendMay of Extend = CatMay
|
|||||||
,GenModNP, GenNP, GenRP
|
,GenModNP, GenNP, GenRP
|
||||||
,CompoundN
|
,CompoundN
|
||||||
,GerundNP, GerundAdv
|
,GerundNP, GerundAdv
|
||||||
|
,ByVP
|
||||||
|
|
||||||
|
|
||||||
-- VPS2 ; -- have loved (binary version of VPS)
|
-- VPS2 ; -- have loved (binary version of VPS)
|
||||||
@@ -97,6 +98,7 @@ concrete ExtendMay of Extend = CatMay
|
|||||||
|
|
||||||
GerundAdv vp = ss (linVP vp) ;
|
GerundAdv vp = ss (linVP vp) ;
|
||||||
|
|
||||||
|
ByVP vp = cc2 by8means_Prep (GerundAdv vp) ;
|
||||||
|
|
||||||
-- MkVPS2 : Temp -> Pol -> VPSlash -> VPS2 ; -- has loved
|
-- MkVPS2 : Temp -> Pol -> VPSlash -> VPS2 ; -- has loved
|
||||||
-- ConjVPS2 : Conj -> [VPS2] -> VPS2 ; -- has loved and now hates
|
-- ConjVPS2 : Conj -> [VPS2] -> VPS2 ; -- has loved and now hates
|
||||||
|
|||||||
Reference in New Issue
Block a user