diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index c9ff1577a..626de8183 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -78,9 +78,6 @@ at v (Diagonal k) = do
 overlaps :: Endpoint -> Endpoint -> Bool
 overlaps (Endpoint x y) (Endpoint u v) = x - y == u - v && x <= u
 
-isOdd :: Integral a => a -> Bool
-isOdd = (== 1) . (`mod` 2)
-
 inInterval :: Ord a => a -> (a, a) -> Bool
 inInterval k (lower, upper) = k >= lower && k <= upper