liquidhaskell-0.9.0.2.1: tests/pos/Lets.hs

module Lets () where

import Language.Haskell.Liquid.Prelude

foo :: Int -> (Int, Int)
foo z = (z, z + 1)

baz :: Int -> (Int, Int)
baz z = let (i, j) = foo z 
        in (i, j + 1)

{-@ prop :: Int -> Bool @-}
prop x = let (a, b) = baz x in
         liquidAssertB (a < b)