Merge branch 'master' of https://github.com/GrammaticalFramework/gf-rgl

src/english/ParadigmsEng.gf

@@ -455,6 +455,9 @@ mkInterj : Str -> Interj
 
   mkOrd : Str -> Ord = \x -> lin Ord { s = regGenitiveS x};
 
+  invarA : Str -> A ;
+  invarA a = mkAdjective a a a a ;
+
   mk2A a b = mkAdjective a a a b ;
   regA a = case a of {
     _ + ("a" | "e" | "i" | "o" | "u" | "y") + ? + _ +