removed duplicate invarA in Eng

This commit is contained in:
Aarne Ranta
2018-12-13 16:30:28 +02:00
parent a80d49db62
commit 76f11b532b

View File

@@ -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") + ? + _ +