liquidhaskell-0.9.0.2.1: tests/pos/Hello.hs

module Hello () where

{-@ abz :: (Num a, Ord a) => x:a -> {v: a | v >= x} @-}
abz x   = if (x > 0) then x else (0 - x)  

{-@ incr :: (Num a) => x:a -> {v: a | v > x}        @-}
incr x  = x + 1 

{-@ decr :: (Num a) => x:a -> {v: a | v < x}        @-}
decr x  = x - 1