liquidhaskell-0.4.0.0: tests/pos/Overwrite.hs

module OverWrite where

import qualified Data.Set

{-@ assume reverse :: xs:(UList a)
                   -> {v: UList a | (EqElts v xs)} 
  @-}
{-@ type UList a = {v:[a] | (ListUnique v)} @-}

{-@ predicate ListUnique LS =
       (Set_emp (listDup LS)) @-}

{-@ predicate EqElts X Y =
       ((listElts X) = (listElts Y)) @-}
{-@
  measure listDup :: [a] -> (Data.Set.Set a)
  listDup([])   = {v | Set_emp v }
  listDup(x:xs) = {v | v = if (Set_mem x (listElts xs)) then (Set_cup (Set_sng x) (listDup xs)) else (listDup xs) }
  @-}

{-@ foo :: xs:(UList a)
        -> {v: UList a | (EqElts v xs)} 
  @-}


foo  = reverse