diff --git a/src/abstract/Numeral.gf b/src/abstract/Numeral.gf
index a1af031b1..be0d904e7 100644
--- a/src/abstract/Numeral.gf
+++ b/src/abstract/Numeral.gf
@@ -63,7 +63,6 @@ data
 
   pot51 : Sub1000000000000 ;                                 -- a billion instead of one billion
   pot5  : Sub1000 -> Sub1000000000000 ;                      -- m * 1000000000
-  pot5art : Sub1000000000000 ;                               -- a/an instead of one
   pot5plus : Sub1000 -> Sub1000000000 -> Sub1000000000000 ;  -- m * 1000000000 + n
   pot5decimal : Decimal -> Sub1000000000000 ;                -- 3.5 billion
 
diff --git a/src/bulgarian/NumeralBul.gf b/src/bulgarian/NumeralBul.gf
index c9fa8060d..d447f42a5 100644
--- a/src/bulgarian/NumeralBul.gf
+++ b/src/bulgarian/NumeralBul.gf
@@ -146,10 +146,6 @@ lin pot5 n = {
                 } ;
       n = Pl
     } ;
-lin pot5art = {
-      s = \\o,_ => "" ;
-      n = Sg
-    } ;
 lin pot5plus n1 n2 = {
       s = \\o,f => (pot5 n1).s ! o ! f ++ "и" ++ n2.s ! o ! f;
       n = Pl
diff --git a/src/english/NumeralEng.gf b/src/english/NumeralEng.gf
index 1923aba10..e71e80bdf 100644
--- a/src/english/NumeralEng.gf
+++ b/src/english/NumeralEng.gf
@@ -86,10 +86,6 @@ lin pot5 n = {
       s = \\d,o,c => n.s ! d ! NCard ! Nom ++ pot51.s ! True ! o ! c ;
       n = Pl
     } ;
-lin pot5art = {
-      s = \\d,o,c => case d of {True => []; False => artIndef};
-      n = Sg
-    } ;
 lin pot5plus n1 n2 = {
       s = \\d,o,c => n1.s ! d ! NCard ! Nom ++ pot51.s ! True ! NCard ! Nom ++ "and" ++ n2.s ! True ! o ! c;
       n = Pl
diff --git a/src/swedish/NumeralSwe.gf b/src/swedish/NumeralSwe.gf
index ef20559f2..7e1d5e2e1 100644
--- a/src/swedish/NumeralSwe.gf
+++ b/src/swedish/NumeralSwe.gf
@@ -65,13 +65,6 @@ lin
     numPl (\\g => d.s ! NCard Utr ++ cardOrd "miljoner" "miljonde" ! g) ;
 
   pot51 = numPl (cardOrd "miljard" "miljarde") ;
-  pot5art = {
-    s = table {
-          NCard g => case g of {Neutr => "ett" ; _ => "en"} ;
-          _ => "första"
-          } ;
-    n = Sg
-    } ;
   pot5 n =
     numPl (\\g => n.s ! NCard Utr ++
                   cardOrd (case n.n of {