This commit is contained in:
Meowyam
2023-02-23 15:06:14 +08:00
parent ee01aa1cd5
commit fd51156369
3 changed files with 26 additions and 13 deletions
+4
View File
@@ -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