From 36a9806d309d51f1b1810755b5b074013c5d2b36 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 30 Oct 2013 14:44:19 +0000
Subject: [PATCH] added linref for VP in CatEng.gf

---
 lib/src/english/CatEng.gf | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/lib/src/english/CatEng.gf b/lib/src/english/CatEng.gf
index 35096c3e5..b7e4bb11f 100644
--- a/lib/src/english/CatEng.gf
+++ b/lib/src/english/CatEng.gf
@@ -105,4 +105,23 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
     N3 = {s : Number => Case => Str ; g : Gender} ** {c2,c3 : Str} ;
     PN = {s : Case => Str ; g : Gender} ;
 
+  lindef
+    VP = \s -> predV {s = \\_ => s; p = ""; isRefl = True} ;
+
+    V, VS, VQ, VA = \s -> {s = \\_ => s; p = ""; isRefl = True} ;
+    V2, V2A, V2Q, V2S = \s -> {s = \\_ => s; p = ""; isRefl = True; c2=""} ;
+    V3 = \s -> {s = \\_ => s; p = ""; isRefl = True; c2,c3=""} ;
+    VV = \s -> {s = \\_ => s; p = ""; isRefl = True; typ = VVInf} ;
+    V2V = \s -> {s = \\_ => s; p = ""; isRefl = True; c2,c3="" ; typ = VVInf} ;
+
+    A = \s -> {s = \\_ => s} ;
+    A2 = \s -> {s = \\_ => s; c2 = ""} ;
+
+    N = \s -> {s = \\_,_ => s; g = Neutr} ;
+    N2 = \s -> {s = \\_,_ => s; c2 = ""; g = Neutr} ;
+    N3 = \s -> {s = \\_,_ => s; c2,c3 = ""; g = Neutr} ;
+
+  linref
+    VP = \vp -> infVP VVAux vp Simul CPos (agrP3 Sg) ;    
+
 }