ExtendFre with some definitions

src/french/AllFre.gf

@@ -3,5 +3,5 @@
 concrete AllFre of AllFreAbs = 
   LangFre,
   IrregFre,
-  ExtraFre
+  ExtendFre ---- ExtraFre
   ** {} ;

src/french/ExtendFre.gf

@@ -0,0 +1,43 @@
+--# -path=alltenses:../common:../abstract
+
+concrete ExtendFre of Extend =
+  CatFre ** ExtendFunctor -
+   [
+----   iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
+   ExistCN, ExistMassCN, ExistPluralCN
+   ]                   -- put the names of your own definitions here
+  with
+    (Grammar = GrammarFre) **
+  open
+    GrammarFre,
+    ResFre,
+    MorphoFre,
+    PhonoFre,
+    Coordination,
+    Prelude,
+    ParadigmsFre in {
+    -- put your own definitions here
+
+lin
+   ExistCN cn =
+      let
+         pos = ExistNP (DetCN (DetQuant IndefArt NumSg) cn) ;
+         neg = ExistNP (DetCN (DetQuant de_Quant NumSg) cn) ;
+      in posNegClause pos neg PNeg.p ;
+   ExistMassCN cn =
+      let
+         pos = ExistNP (MassNP cn) ;
+         neg = ExistNP (DetCN (DetQuant de_Quant NumSg) cn) ;
+      in posNegClause pos neg PNeg.p ;
+   ExistPluralCN cn =
+      let
+         pos = ExistNP (DetCN (DetQuant IndefArt NumPl) cn) ;
+         neg = ExistNP (DetCN (DetQuant de_Quant NumPl) cn) ;
+      in posNegClause pos neg PNeg.p ;
+
+oper
+  de_Quant : Quant = IndefArt ** {s = \\_,_,_,_ => elisDe} ;
+
+
+
+    }