Added CompCN to ParseEng. Perhaps this should move to NounEng.

next-lib/src/parse/ParseEng.gf

@@ -30,7 +30,7 @@ concrete ParseEng of ParseEngAbs =
 	      VA, become_VA],
   BigLexEng
 
-  ** open ParadigmsEng, ResEng, MorphoEng, ParamX, Prelude in {
+  ** open ParadigmsEng, ResEng, MorphoEng, NounEng, ParamX, Prelude in {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;
 
@@ -125,6 +125,9 @@ lin
       a = agrP3 Sg
       } ;
 
+    CompCN cn = { s = \\a => let n = (fromAgr a).n
+		              in IndefArt.s ! False ! n ++ cn.s ! n ! Acc} ;
+
 -- Lexical additions
 
 lin

next-lib/src/parse/ParseEngAbs.gf

@@ -26,6 +26,8 @@ fun NumOfNP : Num -> NP -> NP ; -- ten of the dogs
 fun CAdvNP  : CAdv -> CN -> NP -> NP ; -- more wine than the professor
 fun CAdvSSlash  : CAdv -> CN -> SSlash -> NP ; -- more wine than the professor drank
 
+fun CompCN : CN -> Comp ; -- "(every man is) a dog", "(all men are) dogs"
+
 -- Lexical additions
 
 fun a8few_Det : Det ;