cideMore :: Nat x -> Nat y -> Dec (NatIneq GT x y)
decideMore = \case
  Z_   -> \_ -> Refuted "!(Z > y)" $ \case
  S_ x -> \case
    Z_   -> Proven $ GTZero $ S_ x
    S_ y -> case decideMore x y of
      Proven  l -> Proven  $ GTSucc l
      Refuted e k -> Refuted e $ \(GTSucc l) -> k l


decideMore :: Nat x -> Nat y -> Dec (NatIneq GT x y)
decideMore = \case
  Z_   -> \_ -> Refuted "!(Z > y)" $ \case
  S_ x -> \case
    Z_   -> Proven $ GTZero $ S_ x
    S_ y -> case decideMore x y of
      Proven  l -> Proven  $ GTSucc l
      Refuted e k -> Refuted e $ \(GTSucc l) -> k l
decideMore = \case
  Z_   -> \_ -> Refuted "!(Z > y)" $ \case
  S_ x -> \case
    Z_   -> Proven $ GTZero $ S_ x
    S_ y -> case decideMore x y of
      Proven  l -> Proven  $ GTSucc l
      Refuted e k -> Refuted e $ \(GTSucc l) -> k l