    {-# OPTIONS -fvectorise #-}

    module Data.Array.Parallel.Prelude.Double (
      Double,
      (==), (/=), (<=), (<), (>=), (>), min, max,
      minimumP, maximumP, minIndexP, maxIndexP,
      (+), (-), (*), negate, abs, sumP, productP,
      (/), recip,
      pi, exp, sqrt, log, (**), logBase,
      sin, tan, cos, asin, atan, acos,
      sinh, tanh, cosh, asinh, atanh, acosh,

      fromInt, truncate, round, ceiling, floor
    ) where

    import Data.Array.Parallel.Prelude.Base.Double
    import qualified Data.Array.Parallel.Prelude.Base
    import Prelude (Double)