liquidhaskell-0.9.0.2.1: tests/pos/Meas4.hs

module Meas4 () where

import Language.Haskell.Liquid.Prelude

mylen          :: [a] -> Int
mylen []       = 0
mylen (_:xs)   = 1 + mylen xs

mymap f []     = []
mymap f (x:xs) = (f x) : (mymap f xs)

zs :: [Int]
zs = [1..100]

prop2 = liquidAssertB (n1 == n2) 
  where n1 = mylen zs
        n2 = mylen $ mymap (`plus` 1) zs