utils/check-exact/cases/RmDecl2.hs


1
2
3
4
5
6
7
8
9
10

module RmDecl2 where

sumSquares x y = let sq 0=0
                     sq z=z^pow
                     pow=2
                 in sq x + sq y

anotherFun 0 y = sq y
     where  sq x = x^2