From 535be667c7a6e38d273ae34e3656da690aad74fe Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 25 Jan 2019 10:15:23 +0100
Subject: [PATCH] (Ara) Add QVP functions

---
 src/arabic/QuestionAra.gf | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/arabic/QuestionAra.gf b/src/arabic/QuestionAra.gf
index 181e6f29e..d4e5f22f3 100644
--- a/src/arabic/QuestionAra.gf
+++ b/src/arabic/QuestionAra.gf
@@ -83,4 +83,13 @@ concrete QuestionAra of Question = CatAra ** open ResAra, ParamX, Prelude, VerbA
     n = sizeToNumber num.n ;
     d = Indef ---- TODO check
     } ;
+
+-- IL guessed all following
+lincat
+  QVP = ResAra.VP ;          -- buy what where
+lin
+  ComplSlashIP vps ip = ComplSlash vps (ip2np ip False) ; -- : VPSlash -> IP -> QVP ;   -- buys what
+  AdvQVP = AdvVP ;    -- : VP  -> IAdv -> QVP ;   -- lives where
+  AddAdvQVP = AdvVP ; -- : QVP -> IAdv -> QVP ;   -- buys what where
+  QuestQVP = QuestVP ;   -- : IP -> QVP -> QCl ;  -- who buys what where
 }