sbv-14.1: SBVBenchSuite/BenchSuite/Uninterpreted/AUF.hs

-----------------------------------------------------------------------------
-- |
-- Module    : BenchSuite.Uninterpreted.AUF
-- Copyright : (c) Jeffrey Young
--                 Levent Erkok
-- License   : BSD3
-- Maintainer: erkokl@gmail.com
-- Stability : experimental
--
-- Bench suite for Documentation.SBV.Examples.Uninterpreted.AUF
-----------------------------------------------------------------------------

{-# OPTIONS_GHC -Wall -Werror -Wno-orphans #-}
{-# LANGUAGE ScopedTypeVariables #-}

module BenchSuite.Uninterpreted.AUF(benchmarks) where

import Documentation.SBV.Examples.Uninterpreted.AUF
import Data.SBV

import BenchSuite.Bench.Bench

benchmarks :: Runner
benchmarks = rGroup
  [ run "SArray" array `using` runner proveWith
  ]
  where array = do x <- free "x"
                   y <- free "y"
                   a :: SArray Word32 Word32 <- sArray_
                   return $ thm x y a