diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 235c6c3a..3aa7303c 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -455,9 +455,6 @@ 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") + ? + _ +