diff --git a/lib/Internal/Statement.hs b/lib/Internal/Statement.hs
index 80f9028..6ce943c 100644
--- a/lib/Internal/Statement.hs
+++ b/lib/Internal/Statement.hs
@@ -147,7 +147,7 @@ zipperMatch' z x = go z
 
 matchDec :: Match -> Maybe Match
 matchDec m = case mTimes m of
-  Just 0 -> Nothing
+  Just 1 -> Nothing
   Just n -> Just $ m {mTimes = Just $ n - 1}
   Nothing -> Just m