diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 1a56707b4..c6fcd2b92 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -454,6 +454,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") + ? + _ +