Extra.PurposeVP to express "I work to get rich"

lib/src/abstract/Extra.gf

@@ -82,4 +82,8 @@ abstract Extra = Cat ** {
 
     ExistsNP : NP -> Cl ;  -- there exists a number / there exist numbers
 
+-- infinitive for purpose AR 21/8/2013
+
+    PurposeVP : VP -> Adv ;  -- to become happy
+
 }

lib/src/english/ExtraEng.gf

@@ -174,6 +174,8 @@ lin
       mkClause "there" (agrP3 (fromAgr np.a).n) 
         (insertObj (\\_ => np.s ! NPAcc) (predV (regV "exist"))) ;
 
+   PurposeVP vp = {s = infVP VVInf vp Simul CPos (agrP3 Sg)} ; --- agr
+
 ------------
 --- obsolete: use UncNeg : Pol