short imperative Utt in Eng

src/english/ExtraEng.gf

@@ -129,4 +129,6 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
     AdvAP ap adv = {s = \\a => ap.s ! a ++ adv.s ; isPre = False} ;
 
     UseCopula = predAux auxBe ;
+
+    UttVPShort vp = {s = infVP True vp (agrP3 Sg)} ;
 } 

src/english/ExtraEngAbs.gf

@@ -16,4 +16,9 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
     that_RP : RP ; -- "that" as a relational pronoun (IdRP is "which" / "who")
 
     each_Det : Det ;
+
+-- infinitive without to
+
+    UttVPShort : VP -> Utt ;
+
 }