From 848e3e5ceb3f974ee2e49b490188e57a6d1e79d2 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 2 Aug 2021 09:46:12 +0800
Subject: [PATCH] Add implementation of ProDrop

---
 src/english/ExtendEng.gf | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/english/ExtendEng.gf b/src/english/ExtendEng.gf
index c2f240957..44f944fd9 100644
--- a/src/english/ExtendEng.gf
+++ b/src/english/ExtendEng.gf
@@ -18,7 +18,7 @@ concrete ExtendEng of Extend =
     PassAgentVPSlash, PassVPSlash, ProgrVPSlash, PastPartAP, PastPartAgentAP, PositAdVAdj,  PredVPSVV, PredetRNP, PrepCN,
     EmbedSSlash, PredIAdvVP, PresPartAP, PurposeVP, ReflPoss, ReflPron, ReflRNP, SlashBareV2S, SlashV2V, StrandQuestSlash, StrandRelSlash,
     UncontractedNeg, UttAccIP, UttAccNP, UttAdV, UttDatIP, UttDatNP, UttVPShort, WithoutVP, A2VPSlash, N2VPSlash,
-    CardCNCard
+    CardCNCard, ProDrop
    ]
   with
     (Grammar = GrammarEng) **
@@ -32,6 +32,10 @@ concrete ExtendEng of Extend =
     ParadigmsEng in {
 
   lin
+    ProDrop pro = pro ** {
+      s = \\_ => []
+    } ;
+
     GenNP np = {s = \\_,_ => np.s ! npGen ; sp = \\_,_,_,_ => np.s ! npGen ; isDef = True} ;
     GenIP ip = {s = \\_ => ip.s ! NCase Gen} ;
     GenRP nu cn = {