module AlgebraicModuleNoConflict where

{-
  Import functions from NumericPrelude and
  export them in a way that they don't conflict with Haskell98 identifiers.
-}

import qualified Algebra.Additive as Additive
import qualified Algebra.Module   as Module

add, sub :: Additive.C a => a -> a -> a
add =      (Additive.+)
sub = flip (Additive.-)

neg :: Additive.C a => a -> a
neg = Additive.negate

zero :: Additive.C a => a
zero = Additive.zero

scale :: Module.C a v => a -> v -> v
scale = (Module.*>)