Hi,
I have the following code, using equality constraints and (I believe)
RankNTypes:
{-# LANGUAGE MultiParamTypeClasses, TypeFamilies,
RankNTypes, ExistentialQuantification #-}
{-# LANGUAGE FlexibleInstances, TypeSynonymInstances #-}
-- import Math.Algebra.Group.PermutationGroup
--
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
On 8/20/10 16:08 , DavidA wrote:
type Tensor u v =
(u ~ Vect k a, v ~ Vect k b) = Vect k (TensorBasis a b) -- **
IIRC this actually substitutes as
(forall k a b. (u ~ Vect k a, v ~ Vect k b) = Vect k (TensorBasis a b))
and the implicit