mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-30 19:18:34 -06:00
add mkVS
This commit is contained in:
@@ -330,6 +330,7 @@ oper
|
||||
|
||||
Sentence : Type = {s : Str} ;
|
||||
|
||||
|
||||
predVP : NounPhrase -> VerbPhrase -> Clause = \np,vp -> {
|
||||
subj = np.s ! Bare ;
|
||||
pred = vp.s
|
||||
@@ -338,6 +339,9 @@ oper
|
||||
predVPSlash : NounPhrase -> VPSlash -> ClSlash = \np,vps ->
|
||||
predVP np <vps : VerbPhrase> ** {c2 = vps.c2} ;
|
||||
|
||||
linS : Sentence -> Str = \sent -> sent.s ;
|
||||
|
||||
|
||||
-- mkClause : Str -> NounPhrase -> VPSlash -> Clause = \str,np,vp -> {
|
||||
-- subj = str ++ np.s ! Bare;
|
||||
-- pred = vp.s
|
||||
|
||||
Reference in New Issue
Block a user