Definition eines Algebra-Moduls mit dem Paket constructive-algebra

Question

Das Paket Konstruktionsalgebra ermöglicht die Definition von Instanzen algebraischer Module (wie vektorielle Räume sondern mit einer Ring wobei a Feld erforderlich war)

Dies ist mein Versuch einer Definition einer Modul :

{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances #-}
module A where
import Algebra.Structures.Module
import Algebra.Structures.CommutativeRing
import Algebra.Structures.Group

newtype A = A [(Integer,String)]

instance Group A where
    (A a) <+> (A b) = A $ a ++ b
    zero = A []
    neg (A a) = A $ [((-k),c) | (k,c) <-  a]

instance Module Integer A where
    r *> (A as) = A [(r <*> k,c) | (k,c) <- as]

Es scheitert daran:

A.hs:15:10:
    Overlapping instances for Group A
      arising from the superclasses of an instance declaration
    Matching instances:
      instance Ring a => Group a -- Defined in Algebra.Structures.Group
      instance Group A -- Defined at A.hs:9:10-16
    In the instance declaration for `Module Integer A'

A.hs:15:10:
    No instance for (Ring A)
      arising from the superclasses of an instance declaration
    Possible fix: add an instance declaration for (Ring A)
    In the instance declaration for `Module Integer A'
Failed, modules loaded: none.

Wenn ich den Kommentar Group Instanz aus, dann:

A.hs:16:10:
    No instance for (Ring A)
      arising from the superclasses of an instance declaration
    Possible fix: add an instance declaration for (Ring A)
    In the instance declaration for `Module Integer A'
Failed, modules loaded: none.

Ich lese das so, dass es eine Instanz von Ring A zu haben Module Integer A was keinen Sinn macht und in der Klassendefinition nicht erforderlich ist:

class (CommutativeRing r, AbelianGroup m) => Module r m where
  -- | Scalar multiplication.
  (*>) :: r -> m -> m

Können Sie das erklären?