1 files changed, 0 insertions, 59 deletions
diff --git a/grammars/health/ExtraFre.gf b/grammars/health/ExtraFre.gf
deleted file mode 100644
index 88e5794f6..000000000
--- a/grammars/health/ExtraFre.gf
+++ /dev/null
@@ -1,59 +0,0 @@
--- use this path to read the grammar from the same directory
---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/french:../../lib/resource-0.6/romance
-
---1 Functions that are not in the API, but common in French
---
--- Aarne Ranta, Janna Khegai 2003
-
-resource ExtraFre = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ParadigmsFre in {
-
-oper 
-  NPMedicine: Type = NP ** {des : Bool};
-
-  avoirBesoin1: CN -> VP = \doctor ->   
-    PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
-           AppFun (funDe (nReg "besoin" Masc) ) 
-           (IndefOneNP doctor)
-         )
-       )
-    ) ;
-
-  avoirBesoin: NPMedicine -> VP = \medicine ->   
-    if_then_else VP medicine.des     
-
-    (PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
-           AppFun (funPrep (nReg "besoin" Masc) "") 
-           medicine
-         )
-       )
-    )) 
-
-    (PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
-           AppFun (funDe (nReg "besoin" Masc)) 
-           medicine
-         )
-       )
-    )) ;
-
-  injuredBody: (Gender => Number => Str) -> NP -> CN -> S =
-   \injured, patient, head -> 
-    PredVP patient 
-      {s = \\g,v => pronRefl patient.n patient.p ++ 
-              verbEtre.s ! v ++
-              injured ! g ! patient.n ++
-              (DefOneNP head).s ! case2pform Acc;
-       lock_VP = <> 
-      } ;
-  
-  
-  delDet : Det = mkDeterminer Sg (artDef Masc Sg genitive) 
-    (artDef Fem Sg genitive)  ** {lock_Det = <>} ;
-  desDet : Det = mkDeterminer1 Pl "des"  ** {lock_Det = <>} ;
-
-  nullDet : Det = mkDeterminer1 Sg "" ** {lock_Det =<>} ;
-
----  tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> };
-
-};
-
-