Added QuestIAdv_NP.

This commit is contained in:
bringert
2006-04-20 16:43:13 +00:00
parent af52e49d59
commit f9cdc3c732
4 changed files with 5 additions and 4 deletions

View File

@@ -27,6 +27,7 @@ incomplete concrete PeaceKeepI of PeaceKeep = open Lang in {
QuestIP_V3Mass v ip x y = mkQuest (QuestVP ip (ComplV3 v (massNP x) y)) ;
QuestIP_A : A -> IP -> Phr ;
QuestIP_A a ip = mkQuest (QuestVP ip (UseComp (CompAP (PositA a))));
QuestIAdv_NP x ia = mkQuest (QuestIComp (CompIAdv ia) x);
QuestIAdv_V v x ia = mkQuest (QuestIAdv ia (PredVP x (UseV v)));
QuestIAdv_V2 v x y ia = mkQuest (QuestIAdv ia (PredVP x (ComplV2 v y)));