add ListS and ComplVA

This commit is contained in:
Meowyam
2023-02-23 14:08:14 +08:00
parent f53078dbad
commit ee01aa1cd5
6 changed files with 38 additions and 101 deletions

View File

@@ -49,6 +49,7 @@ concrete ExtendMay of Extend = CatMay
s = np.s ! Bare ++ vps.s ;
} ;
-- SQuestVPS : NP -> VPS -> QS ; -- has she walked
SQuestVPS np vps = {s = np.s ++ vps.s} ;
-- QuestVPS : IP -> VPS -> QS ; -- who has walked
-- RelVPS : RP -> VPS -> RS ; -- which won't sleep