{-@ LIQUID "--pruneunsorted" @-}
module Toy  where

{-@ foldN :: forall a <p :: x0:Int -> x1:a -> Bool>. 
                (i:Int -> a<p i> -> a<p (i+1)>)
              -> n:{v: Int | v >= 0}
              -> a <p 0>
              -> {v : a | 0=1}
  @-}

foldN :: (Int -> a -> a) -> Int -> a -> a
foldN f n = go 0
  where go i x | i < n     = go (i+1) (f i x)
               | otherwise = x
