(Som) Add QuestSlash + make it possible for IPs to contract with stm

2019-09-10 16:54:19 +02:00
parent 4f9927d12b
commit 67ac5ae5e3
5 changed files with 37 additions and 13 deletions
@@ -23,7 +23,7 @@ concrete CatSom of Cat = CommonX - [Adv,IAdv] ** open ResSom, Prelude in {
 -- Constructed in QuestionSom.

    QCl = ResSom.QClause ;
-    IP = ResSom.NounPhrase ;
+    IP = ResSom.NounPhrase ** {contractSTM : Bool} ;
    IComp = SS ;              -- interrogative complement of copula  e.g. "where"
    IDet = ResSom.Determiner ;  -- interrogative determiner            e.g. "how many"
    IQuant = ResSom.Quant ; -- interrogative quantifier            e.g. "which"