reduce the number of variants in Interlingua

1 files changed, 5 insertions, 5 deletions

diff --git a/next-lib/src/interlingua/IdiomIna.gf b/next-lib/src/interlingua/IdiomIna.gf
index 6aac72fc5..62b9d4152 100644
--- a/next-lib/src/interlingua/IdiomIna.gf
+++ b/next-lib/src/interlingua/IdiomIna.gf
@@ -9,26 +9,26 @@ concrete IdiomIna of Idiom = CatIna ** open Prelude, ResIna in {
     CleftNP np rs = mkClause "lo" Sp3
       (insertObj [] Acc (mkInvarNP (rs.s ! Sp3))
          (insertObj []  Acc np 
-	    (predV esserV)));
+	    (predV_ esserV)));
 	 -- ??? number/case agreement
 
     CleftAdv ad s = mkClause "lo" Sp3
       (insertObj [] Acc (mkInvarNP ("que" ++ s.s))
-        (insertObj [] Acc (mkInvarNP (ad.s)) (predV esserV))) ;
+        (insertObj [] Acc (mkInvarNP (ad.s)) (predV_ esserV))) ;
 
 
     ExistNP np = 
-      mkClause "il" Sp3 ((insertObj "" Acc np) (predV haberV)) ;
+      mkClause "il" Sp3 ((insertObj "" Acc np) (predV_ haberV)) ;
     -- Il ha colonias que non pote reclamar mesmo un tal origine. (sample text 3)
 
-    ExistIP ip = mkQuestion {s=ip.s ! Acc} (mkClause "il" Sp3 (predV haberV)) ;
+    ExistIP ip = mkQuestion {s=ip.s ! Acc} (mkClause "il" Sp3 (predV_ haberV)) ;
     -- Never seen the above, but we can deduce it exists, since it's
     -- merely an interrogative form of ExistNP.
 
     ProgrVP vp = vp; -- progressive tense is the same as present in Interlingua. 
     -- (parag. 80+ of Grammatica de Interlingua)
 
-    ImpPl1 vp = {s = "que" ++ (mkClause "nos" {n = Pl ; p = P1} vp).s ! Pres ! Simul ! Pos ! ODir};
+    ImpPl1 vp = {s = "que" ++ (mkClause "nos" {n = Pl ; p = P1} vp).s ! variants {True;False} ! Pres ! Simul ! Pos ! ODir};
 
 }