1 files changed, 0 insertions, 45 deletions
diff --git a/next-lib/src/spanish/IdiomSpa.gf b/next-lib/src/spanish/IdiomSpa.gf
deleted file mode 100644
index d870f79fa..000000000
--- a/next-lib/src/spanish/IdiomSpa.gf
+++ /dev/null
@@ -1,45 +0,0 @@
-concrete IdiomSpa of Idiom = CatSpa ** 
-  open (P = ParamX), MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in {
-
-  flags optimize=all_subs ;
-
-  lin
-    ImpersCl vp = mkClause [] True (agrP3 Masc Sg) vp ;
-
-    GenericCl vp = 
-      mkClause [] True (agrP3 Masc Sg) (insertRefl vp) ; ---- just Italian ?
-
-    CleftNP np rs = mkClause [] True (agrP3 Masc Sg) 
-      (insertComplement (\\_ => rs.s ! Indic ! np.a)
-        (insertComplement (\\_ => (np.s ! rs.c).ton) (predV copula))) ;
-
-    CleftAdv ad s = mkClause [] True (agrP3 Masc Sg) 
-      (insertComplement (\\_ => conjThat ++ s.s ! Indic)
-        (insertComplement (\\_ => ad.s) (predV copula))) ;
-
-
-    ExistNP np = 
-      mkClause [] True (agrP3 Masc Sg)
-        (insertComplement (\\_ => (np.s ! Acc).ton) (predV (verboV (hay_3 "haber")))) ;
-    ExistIP ip = {
-      s = \\t,a,p,_ =>
-        ip.s ! Nom ++ 
-        (mkClause [] True (agrP3 Masc Sg) (predV (verboV (hay_3 "haber")))).s ! DDir ! t ! a ! p ! Indic
-      } ;
-
-    ProgrVP vpr = let vp = useVP vpr in
-      insertComplement 
-        (\\agr => 
-           let 
-             clpr = <vp.clit1,vp.clit2> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
-             obj  = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
-           in
-           (vp.s ! VPGerund).inf ! (aagr agr.g agr.n) ++ clpr.p1 ++ obj
-        )
-        (predV (verboV (estar_2 "estar"))) ;
-
-    ImpPl1 vpr = let vp = useVP vpr in {s =
-      (mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
-      } ;
-
-}