diff --git a/src/interlingua/NounIna.gf b/src/interlingua/NounIna.gf
index c3c8e5cdd..dbe63f3af 100644
--- a/src/interlingua/NounIna.gf
+++ b/src/interlingua/NounIna.gf
@@ -118,4 +118,10 @@ concrete NounIna of Noun = CatIna ** open ResIna, Prelude in {
       isPronoun = np.isPronoun ---- ?? AR
       } ;
 
+    QuantityNP n m = {
+      s = \\c => preOrPost m.isPre m.s (n.s ! NCard) ;
+      a = agrP3 n.n ;
+      isPronoun = False
+    } ;
+
 }
diff --git a/src/interlingua/ParadigmsIna.gf b/src/interlingua/ParadigmsIna.gf
index 153b3c0c6..a198a5146 100644
--- a/src/interlingua/ParadigmsIna.gf
+++ b/src/interlingua/ParadigmsIna.gf
@@ -254,5 +254,6 @@ oper
   mkInterj : Str -> Interj = \s -> lin Interj {s=s};
   mkVoc : Str -> Voc = variants {} ;
 
+  mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
 
 } ;