liquidhaskell-0.4.0.0: tests/pos/hello.hs

{-@ LIQUID "-v" @-}

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