tag:blogger.com,1999:blog-51951881675654104492016-09-19T07:12:04.922+01:00Haskell for MathsDavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.comBlogger52125tag:blogger.com,1999:blog-5195188167565410449.post-33057783564358831462012-06-10T18:42:00.000+01:002012-06-10T18:42:38.097+01:00CHAs V: More Hopf Algebra morphisms<br /><a href="http://haskellformaths.blogspot.co.uk/2012/04/chas-iv-hopf-algebra-morphisms.html">Last time</a> we looked at the descending tree morphism between the combinatorial Hopf algebras <a href="http://haskellformaths.blogspot.co.uk/2012/03/chas-ii-hopf-algebra-ssym-of.html">SSym</a> and <a href="http://haskellformaths.blogspot.co.uk/2012/03/combinatorial-hopf-algebras-i-hopf.html">YSym</a> with fundamental bases consisting of (indexed by) permutations and binary trees respectively. We previously also looked at a Hopf algebra <a href="http://haskellformaths.blogspot.co.uk/2012/04/chas-iii-qsym-combinatorial-hopf.html">QSym</a> with a basis consisting of compositions.<br /><br />There are also morphisms between SSym/YSym and QSym. However, before we look at these, we need to look at an alternative basis for QSym.<br /><br />When I introduced QSym, I defined a type QSymM for the basis, without explaining what the M stands for. It actually stands for "monomial" (but I'm not going to explain why quite yet). Now, of course it is possible to construct any number of alternative bases for QSym, by taking linear combinations of the QSymM basis elements. However, most of these alternative bases are not likely to be very mathematically useful. (By mathematically useful, I mean, for example, that it leads to a simple expression for the multiplication rule.) When looking at the relation between QSym and SSym/YSym, there is another basis for QSym that leads to a clearer picture of their relationship, called the fundamental basis.<br /><br />We will represent the fundamental basis by a new type:<br /><br /><pre>newtype QSymF = QSymF [Int] deriving (Eq)<br /><br />instance Ord QSymF where<br /> compare (QSymF xs) (QSymF ys) = compare (sum xs, xs) (sum ys, ys)<br /><br />instance Show QSymF where<br /> show (QSymF xs) = "F " ++ show xs<br /><br />qsymF :: [Int] -> Vect Q QSymF<br />qsymF xs | all (>0) xs = return (QSymF xs)<br /> | otherwise = error "qsymF: not a composition"<br /></pre><br />In a moment, I'll describe the relationship between the monomial and fundamental bases, but first, there's something I need to explain.<br /><br />If the monomial and fundamental bases are bases for the <i>same</i> Hopf algebra (QSym), how can they be different types? So I think what it comes down to is that if we have different types then we get to have different Show instances. So we will be able to choose whether to view an element of QSym in terms of the monomial or the fundamental basis.<br /><br />We could have achieved this in other ways, say by designating the monomial basis as the "true" basis, and then providing functions to input and output using the fundamental basis. Giving the fundamental basis its own type is more egalitarian: it puts the two bases on an equal footing.<br /><br />Okay then, so in order to make this all work, we need to define the relationship between the two bases, and provide functions to convert between them. Let's take a look.<br /><br />A (proper) refinement of a composition is any composition which can be obtained from the first composition by splitting one or more of the parts of the first composition.<br /><br /><pre>refinements (x:xs) = [y++ys | y <- compositions x, ys <- refinements xs]<br />refinements [] = [[]]<br /><br />> refinements [1,3]<br />[[1,1,1,1],[1,1,2],[1,2,1],[1,3]]<br /></pre><br />Then the fundamental basis can be expressed in terms of the monomial basis, as follows:<br /><br /><pre>qsymFtoM :: (Eq k, Num k) => Vect k QSymF -> Vect k QSymM<br />qsymFtoM = linear qsymFtoM' where<br /> qsymFtoM' (QSymF alpha) = sumv [return (QSymM beta) | beta <- refinements alpha]<br /></pre><br />For example:<br /><br /><pre>> qsymFtoM (qsymF [1,3])<br />M [1,1,1,1]+M [1,1,2]+M [1,2,1]+M [1,3]</pre><br />Conversely, elements of the monomial basis can be expressed as sums of elements of the fundamental basis, as follows:<br /><br /><pre>qsymMtoF :: (Eq k, Num k) => Vect k QSymM -> Vect k QSymF<br />qsymMtoF = linear qsymMtoF' where<br /> qsymMtoF' (QSymM alpha) = sumv [(-1) ^ (length beta - length alpha) *> return (QSymF beta) | beta <- refinements alpha]<br /><br />> qsymMtoF (qsymM [1,3])<br />F [1,1,1,1]-F [1,1,2]-F [1,2,1]+F [1,3]<br /></pre><br />So we can input elements of QSym using either the monomial or fundamental basis (using the qsymM and qsymF constructors). Shortly, we'll define Algebra and Coalgebra instances for QSymF, so that we can perform arithmetic in either basis. Finally, we can output in either basis, by using the conversion functions if necessary.<br /><br />How do we know that QSymF is a basis? How do we know that its elements are linearly independent, and span the space? In Vect Q QSymF, this is guaranteed by the free vector space construction. But what the question is really asking is, how do we know that the image of the "basis" QSymF in Vect Q QSymM (via qsymFtoM) is a basis?<br /><br />Well, it will be linearly independent if qsymFtoM is injective, and spanning if qsymFtoM is surjective. So we require that qsymFtoM is bijective. This follows if we can show that qsymFtoM and qsymMtoF are mutual inverses. Well, quickCheck seems to think so:<br /><br /><pre>> quickCheck (\x -> x == (qsymMtoF . qsymFtoM) x)<br />+++ OK, passed 100 tests.<br />> quickCheck (\x -> x == (qsymFtoM . qsymMtoF) x)<br />+++ OK, passed 100 tests.<br /></pre><br />(For the cognoscenti: The reason this works is that qsymMtoF' is the Mobius inversion of qsymFtoM' in the poset of compositions ordered by refinement.)<br /><br />Okay, so we have an alternative basis for QSym as a vector space. What do the multiplication and comultiplication look like relative to this new basis? Now, it is possible to define the algebra, coalgebra and Hopf algebra structures explicitly in terms of the QSymF basis, but I'm going to cheat, and just round-trip via QSymM:<br /><br /><pre>instance (Eq k, Num k) => Algebra k QSymF where<br /> unit x = x *> return (QSymF [])<br /> mult = qsymMtoF . mult . (qsymFtoM `tf` qsymFtoM)<br /><br />instance (Eq k, Num k) => Coalgebra k QSymF where<br /> counit = unwrap . linear counit' where counit' (QSymF xs) = if null xs then 1 else 0<br /> comult = (qsymMtoF `tf` qsymMtoF) . comult . qsymFtoM<br /><br />instance (Eq k, Num k) => Bialgebra k QSymF where {}<br /><br />instance (Eq k, Num k) => HopfAlgebra k QSymF where<br /> antipode = qsymMtoF . antipode . qsymFtoM<br /></pre><br />(Recall that `tf` is the tensor product of linear maps.)<br /><br />It's kind of obvious from the definitions that the algebra, coalgebra and Hopf algebra laws will be satisfied. (It's obvious because we already know that these laws are satisfied in Vect Q QSymM, and the definitions for Vect Q QSymF are just the same, but under the change of basis.) However, for additional confidence, we can for example:<br /><br /><pre>> quickCheck (prop_Algebra :: (Q, Vect Q QSymF, Vect Q QSymF, Vect Q QSymF) -> Bool)<br />+++ OK, passed 100 tests.<br /></pre><br />Okay, so the reason for introducing the fundamental basis for QSym is that there is a Hopf algebra morphism from SSym to QSym, which is easiest to express in terms of their respective fundamental bases. Specifically, we can define a map between the bases, SSymF -> QSymF, which lifts (using fmap, ie using the free vector space functor) to a map between the Hopf algebras.<br /><br />Given a permutation p of [1..n], a descent is an index i such that p(i) > p(i+1). For example, the permutation [2,3,5,1,6,4] has descents from the 5 to the 1 and from the 6 to the 4. We can think of the descents as splitting the permutation into segments, each of which is strictly ascending. Thus 235164 splits into 235-16-4. If we count the lengths of these segments, we get a composition, which I call the descent composition. Here's the code:<br /><br /><pre>descentComposition [] = []<br />descentComposition xs = descComp 0 xs where<br /> descComp c (x1:x2:xs) = if x1 < x2 then descComp (c+1) (x2:xs) else (c+1) : descComp 0 (x2:xs)<br /> descComp c [x] = [c+1]<br /><br />> descentComposition [2,3,5,1,6,4]<br />[3,2,1]<br /></pre><br />We can lift this map between the bases to a map between the Hopf algebras.<br /><br /><pre>descentMap :: (Eq k, Num k) => Vect k SSymF -> Vect k QSymF<br />descentMap = nf . fmap (\(SSymF xs) -> QSymF (descentComposition xs))<br /></pre><br />Now, it turns out that this is a Hopf algebra morphism. That is, it commutes with the algebra, coalgebra and Hopf algebra structures.<br /><br /><pre>> quickCheck (prop_AlgebraMorphism descentMap)<br />+++ OK, passed 100 tests.<br />> quickCheck (prop_CoalgebraMorphism descentMap)<br />+++ OK, passed 100 tests.<br />> quickCheck (prop_HopfAlgebraMorphism descentMap)<br />+++ OK, passed 100 tests.<br /></pre><br />Why does this work? Well, let's work through an example, for comultiplication. (In the following I omit brackets and commas for brevity.) If we do the descent map before the comultiplication, we get:<br /><br /><pre>2341 (SSymF)<br />-> (descentMap)<br />31 (QSymF)<br />-> (qsymFtoM - sum of refinements)<br />31+211+121+1111 (QSymM)<br />-> (comult - deconcatenations)<br />[]⊗31 + 3⊗1 + 31⊗[] +<br />[]⊗211 + 2⊗11 + 21⊗1 + 211⊗[] +<br />[]⊗121 + 1⊗21 + 12⊗1 + 121⊗[] +<br />[]⊗1111 + 1⊗111 + 11⊗11 + 111⊗1 + 1111⊗[]<br />(QSymM⊗QSymM)<br /></pre><br />(We convert to QSymM at the second step because it's in QSymM that we know how to comultiply. It is possible to give an explicit expression for the comultiplication in terms of the QSymF basis, but I wanted to keep things simple.)<br /><br />Conversely, if we do the comultiplication before the descent map:<br /><br /><pre>2341 (SSymF)<br />-> (comult - flattened deconcatenations)<br />[]⊗2341 + 1⊗231 + 12⊗21 + 123⊗1 + 2341⊗[] (SSymF⊗SSymF)<br />-> (descentMap⊗descentMap)<br />[]⊗31 + 1⊗21 + 2⊗11 + 3⊗1 + 31⊗[] (QSymF⊗QSymF)<br />-> (qsymFtoM⊗qsymFtoM - sum of refinements)<br />[]⊗(31+211+121+1111) +<br />1⊗(21+111) +<br />(2+11)⊗11 +<br />(3+21+12+111)⊗1 +<br />(31+211+121+1111)⊗[]<br />(QSymM⊗QSymM)<br /></pre><br />The result comes out the same, whichever way round you go, as required. But why does it work? Well, you can imagine the inventor going through the following thought process:<br /><br /><ul><li>Comult in SSymF is by flattened deconcatenations (of permutations), and in QSymM is by deconcatenations (of compositions). If we split a permutation at a descent, the descents on either side are preserved. So we could try sending a permutation in SSymF to its descent composition in QSymM. For example, ssymF [2,3,4,1] -> qsymM [3,1], which deconcatenates to [2,3,4]⊗[1] -> [3]⊗[1].</li><li>However, a deconcatenation in SSymF might split a permutation partway through an ascending segment. For example, [2,3,4,1] -> [2,3]⊗[4,1] (which flattens to [1,2]⊗[2,1]). Taking this to descent compositions would give [2]⊗[1,1]. This is not a deconcatenation of qsymM [3,1] - it is however a deconcatenation of [2,1,1], which is a one-step refinement of [3,1].</li><li>So we could try sending a permutation in SSymF to its descent composition in QSymM, and its one-step refinements. For example, ssymF [2,3,4,1] -> qsymM [3,1] + qsymM [2,1,1] + qsymM [1,2,1].</li><li>But now that means that [2,3]⊗[4,1] (flattening omitted for clarity) -> [2]⊗[1,1] + [1,1]⊗[1,1]. The second term is a deconcatenation of [1,1,1,1], a two-step refinement of [3,1].</li><li>It's pretty obvious that the way to make it all work out is to send a permutation in SSymF to its descent composition in QSymM, and all its proper refinements.</li><li>But this sum, of a composition and all its refinements (in QSymM) is just exactly how we defined the QSymF basis.</li></ul><br /><br />Exercise: Explain why descentMap commutes with mult.<br /><br />Exercise: Last time we looked at a descendingTreeMap : SSym -> YSym. Show that the descentMap : SSym -> QSym factors through the descendingTreeMap, and describe the other factor f : YSym -> QSym.<br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-2275357924760556532012-04-30T21:31:00.000+01:002012-04-30T21:35:08.993+01:00CHAs IV: Hopf Algebra Morphisms<br />In the last few posts, we've been looking at combinatorial Hopf algebras, specifically:<br />- <a href="http://haskellformaths.blogspot.co.uk/2012/03/chas-ii-hopf-algebra-ssym-of.html">SSym</a>, a Hopf algebra with a basis of (indexed by) permutations<br />- <a href="http://haskellformaths.blogspot.co.uk/2012/03/combinatorial-hopf-algebras-i-hopf.html">YSym</a>, with a basis of binary trees<br />- <a href="http://haskellformaths.blogspot.co.uk/2012/04/chas-iii-qsym-combinatorial-hopf.html">QSym</a>, with a basis of compositions<br /><br />It turns out that these three Hopf algebras are quite closely related (and indeed, there are a few others in the same "family"). Let's start with SSym and YSym.<br /><br />Given a permutation p of [1..n], we can construct a binary tree called the descending tree as follows:<br />- Split the permutation as p = ls ++ [n] ++ rs<br />- Place n at the root of the tree, and recursively place the descending trees of ls and rs as the left and right children of the root<br />- To bottom out the recursion, the descending tree of the empty permutation is of course the empty tree<br /><br />For example, the following diagram shows the descending tree of [3,5,1,4,2].<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-TN7qS7_kzw8/T57z3rF6NnI/AAAAAAAAAKo/otVxPcBfuKk/s1600/descending_tree.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-TN7qS7_kzw8/T57z3rF6NnI/AAAAAAAAAKo/otVxPcBfuKk/s1600/descending_tree.png" /></a></div><br />Here's the Haskell code:<br /><br /><pre>descendingTree [] = E<br />descendingTree [x] = T E x E<br />descendingTree xs = T l x r<br /> where x = maximum xs<br /> (ls,_:rs) = L.break (== x) xs<br /> l = descendingTree ls<br /> r = descendingTree rs<br /><br />> :m Math.Algebras.Structures Math.Combinatorics.CombinatorialHopfAlgebra<br />> descendingTree [3,5,1,4,2]<br />T (T E 3 E) 5 (T (T E 1 E) 4 (T E 2 E))<br /></pre><br />Now you'll recall that for the Hopf algebra YSym, although we sometimes carry around the node labels to help us see what is going on, we're really only interested in the shapes of the trees. So here's a function to erase the labels:<br /><br /><pre>shape :: PBT a -> PBT ()<br />shape t = fmap (\_ -> ()) t<br /><br />> shape $ T (T E 3 E) 5 (T (T E 1 E) 4 (T E 2 E))<br />T (T E () E) () (T (T E () E) () (T E () E))<br /></pre><br />Thus <code>(shape . descendingTree)</code> is a function from permutations to unlabelled trees. We can consider this as a map between the fundamental bases of SSym and YSym, which therefore induces a linear map between the corresponding Hopf algebras:<br /><br /><pre>descendingTreeMap :: (Eq k, Num k) => Vect k SSymF -> Vect k (YSymF ())<br />descendingTreeMap = nf . fmap (\(SSymF xs) -> (YSymF . shape . descendingTree) xs)</pre><br />Now it turns out that this map is in fact a Hopf algebra morphism. What does that mean? Basically it means that descendingTreeMap plays nicely ("commutes") with the unit, mult, counit, comult, and antipode maps in the two Hopf algebras.<br /><br />For example, for an algebra morphism, we require:<br />f (x1*x2) = f x1 * f x2<br />f . unit = unit<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/-ge2PUUYmTEA/T57z2nsb5gI/AAAAAAAAAKY/HXKSWLV7Jdw/s1600/algebra_morphism.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="109" src="http://4.bp.blogspot.com/-ge2PUUYmTEA/T57z2nsb5gI/AAAAAAAAAKY/HXKSWLV7Jdw/s320/algebra_morphism.png" width="320" /></a></div><br /><br />It's not immediately clear why descendingTreeMap should have these properties. The unit property is clear:<br /><span class="Apple-style-span" style="font-family: monospace; white-space: pre;">> descendingTreeMap 1 == 1</span><br /><pre>True<br /></pre>or put another way<br /><span class="Apple-style-span" style="font-family: monospace; white-space: pre;">> descendingTreeMap (ssymF []) == ysymF E</span><br /><pre>True<br /></pre><br />But what about the mult property?<br /><br />Recall that in SSymF, we multiply permutations by shifting the right operand, and then summing all possible shuffles of the two lists:<br /><br /><pre>> ssymF [3,2,1] * ssymF [1,2]<br />F [3,2,1,4,5]+F [3,2,4,1,5]+F [3,2,4,5,1]+F [3,4,2,1,5]+F [3,4,2,5,1]+F [3,4,5,2,1]+F [4,3,2,1,5]+F [4,3,2,5,1]+F [4,3,5,2,1]+F [4,5,3,2,1]<br /></pre><br />On the other hand, in YSymF, we multiply by multi-splitting the left operand, and then grafting the parts onto the leafs of the right operand, in all possible ways. The following diagram shows one possible multi-split-grafting, corresponding to one of the summands in [3,5,1,4,2] * [1,2]:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-FU3hRGaMq_w/T57z5PDOYHI/AAAAAAAAAK8/pleTWKWW93M/s1600/descending_tree_mult.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="89" src="http://1.bp.blogspot.com/-FU3hRGaMq_w/T57z5PDOYHI/AAAAAAAAAK8/pleTWKWW93M/s320/descending_tree_mult.png" width="320" /></a></div><br />The numbers along the tops of the trees are the node labels generated by the descending tree construction. We can see from these that there is an exact correspondence between a shifted shuffle in SSymF and a multi-split grafting in YSymF. The asymmetry in the mult for YSymF, where we graft multi-splits of the left operand onto the right operand, corresponds to the asymmetry in the mult for SSymF, where we shift the right operand. This shifting in SSymF ensures that the nodes for the right operand end up at the root of the descending tree, as required by the grafting in YSymF. When we defined shuffling, we gave a recursive definition, but it's fairly clear that the grafting of the parts of the multi-split onto the right tree is accomplishing the same thing.<br /><br /><br />Similarly, a coalgebra morphism is a linear map which commutes with counit and comult:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-6CSGP6dI6CU/T57z24WUf_I/AAAAAAAAAKg/rk2tijOF9F4/s1600/coalgebra_morphism.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="106" src="http://3.bp.blogspot.com/-6CSGP6dI6CU/T57z24WUf_I/AAAAAAAAAKg/rk2tijOF9F4/s320/coalgebra_morphism.png" width="320" /></a></div><br />In SSymF, counit is 1 on the empty permutation, 0 on anything else. In YSymF, counit is 1 on the empty tree, 0 on anything else. The descendingTreeMap sends the empty permutation to the empty tree, so it's clear that it commutes with counit in the required way.<br /><br />What about comult? In SSymF, the comult of a permutation is the sum of its two-part deconcatenations (with each part flattened back to a permutation).<br /><br /><pre>> comult $ ssymF [3,5,1,4,2]<br />(F [],F [3,5,1,4,2])+(F [1],F [4,1,3,2])+(F [1,2],F [1,3,2])+(F [2,3,1],F [2,1])+(F [2,4,1,3],F [1])+(F [3,5,1,4,2],F [])<br /></pre><br />In YSymF, the comult of a tree is the sum of its two-part splits. Now it's clear that flattening makes no difference to the descending tree. Then, it's also clear that if you take descending trees of the two parts of a deconcatenation, this corresponds to a split of the descending tree of the whole.<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/-lp2l3SWcpco/T57z4BlwgJI/AAAAAAAAAKw/w_5G4RYd_ZQ/s1600/descending_tree_comult.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/-lp2l3SWcpco/T57z4BlwgJI/AAAAAAAAAKw/w_5G4RYd_ZQ/s1600/descending_tree_comult.png" /></a></div><br />Finally, a Hopf algebra morphism is a bialgebra morphism which in addition commutes with antipode.<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/-obY9jqRdviw/T57z1qTfyxI/AAAAAAAAAKU/dEje17yqMzw/s1600/Hopf_morphism.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="206" src="http://4.bp.blogspot.com/-obY9jqRdviw/T57z1qTfyxI/AAAAAAAAAKU/dEje17yqMzw/s320/Hopf_morphism.png" width="320" /></a></div><br />In SSymF and YSymF, we didn't give an explicit expression for the antipode, but instead derived it from mult and comult using the fact that they are both graded connected bialgebras. So it's actually kind of obvious that descendingTreeMap will be a Hopf algebra morphism, but just to check:<br /><br /><pre>prop_HopfAlgebraMorphism f x = (f . antipode) x == (antipode . f) x<br /><br />> quickCheck (prop_HopfAlgebraMorphism descendingTreeMap)<br />+++ OK, passed 100 tests.</pre><br />Given any tree, there are many ways to label the nodes so that the tree is descending (ie such that the label on each child node is less than the label on its parent). For example, we could first label all the leaf nodes [1..k], and then all their immediate parents [k+1..], and so on. (For our example tree, this would lead to the alternative labelling [1,5,2,4,3].)<br /><br />This shows that the descending tree map is surjective, but not injective. Hence YSym is a quotient of SSym.<br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-79066302073179792242012-04-23T21:29:00.000+01:002012-04-23T22:01:39.138+01:00CHAs III: QSym, a combinatorial Hopf algebra on compositions<br />The compositions of a number n are the different ways that it can be expressed as an ordered sum of positive integers. For example, the compositions of 4 are 1+1+1+1, 1+1+2, 1+2+1, 2+1+1, 1+3, 2+2, 3+1, 4. Equivalently, we can forget about the plus signs, and just consider the ordered lists of positive integers that sum to n. Here's the Haskell code:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">compositions 0 = [[]]</span><br /><span class="Apple-style-span" style="font-family: inherit;">compositions n = [i:is | i <- [1..n], is <- compositions (n-i)]</span><br /><br /><span class="Apple-style-span" style="font-family: inherit;">> :m Math.Algebras.Structures Math.Combinatorics.CombinatorialHopfAlgebra</span><br /><span class="Apple-style-span" style="font-family: inherit;">> compositions 4</span><br /><span class="Apple-style-span" style="font-family: inherit;">[[1,1,1,1],[1,1,2],[1,2,1],[1,3],[2,1,1],[2,2],[3,1],[4]]</span><br /></pre><br />We will define a CHA QSym whose basis elements are (indexed by) compositions:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">newtype QSymM = QSymM [Int] deriving (Eq)</span><br /><br /><span class="Apple-style-span" style="font-family: inherit;">instance Ord QSymM where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> compare (QSymM xs) (QSymM ys) = compare (sum xs, xs) (sum ys, ys)</span><br /><br /><span class="Apple-style-span" style="font-family: inherit;">instance Show QSymM where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> show (QSymM xs) = "M " ++ show xs</span><br /><br /><span class="Apple-style-span" style="font-family: inherit;">qsymM :: [Int] -> Vect Q QSymM</span><br /><span class="Apple-style-span" style="font-family: inherit;">qsymM xs | all (>0) xs = return (QSymM xs)</span><br /><span class="Apple-style-span" style="font-family: inherit;"> | otherwise = error "qsymM: not a composition"</span><br /></pre><br />We will use QSymM as the basis for a Hopf algebra, indexed by compositions. (In practice, we're going to stick with smallish compositions, as the calculations would take too long otherwise.) We form the free vector space over this basis. An element of the free vector space is a linear combination of compositions. For example:<br /><span class="Apple-style-span" style="font-family: monospace; white-space: pre;"><br /></span><br /><span class="Apple-style-span" style="font-family: monospace; white-space: pre;">> qsymM [1,2] + 2 * qsymM [3,1]</span><br /><pre><span class="Apple-style-span" style="font-family: inherit;">M [1,2]+2M [3,1]</span></pre><br />The algebra structure on QSymM is similar to the algebra structure we saw <a href="http://haskellformaths.blogspot.co.uk/2012/03/chas-ii-hopf-algebra-ssym-of.html">last time</a> on SSymM. Instead of shifted shuffles, we will use overlapping shuffles or quasi-shuffles. This means that when shuffling (x:xs) and (y:ys), then instead of just choosing between taking x first or taking y first, we also have a third choice to take them both and add them together.<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">quasiShuffles (x:xs) (y:ys) = map (x:) (quasiShuffles xs (y:ys)) ++</span><br /><span class="Apple-style-span" style="font-family: inherit;"> map ((x+y):) (quasiShuffles xs ys) ++</span><br /><span class="Apple-style-span" style="font-family: inherit;"> map (y:) (quasiShuffles (x:xs) ys)</span><br /><span class="Apple-style-span" style="font-family: inherit;">quasiShuffles xs [] = [xs]</span><br /><span class="Apple-style-span" style="font-family: inherit;">quasiShuffles [] ys = [ys]</span><br /></pre><br />For example:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">> quasiShuffles [1,2] [3]</span><br /><span class="Apple-style-span" style="font-family: inherit;">[[1,2,3],[1,5],[1,3,2],[4,2],[3,1,2]]</span><br /></pre><br />For our algebra structure, we say that the product of two compositions is the sum of all quasi-shuffles of the compositions:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">instance (Eq k, Num k) => Algebra k QSymM where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> unit x = x *> return (QSymM [])</span><br /><span class="Apple-style-span" style="font-family: inherit;"> mult = linear mult' where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> mult' (QSymM alpha, QSymM beta) = sumv [return (QSymM gamma) | gamma <- quasiShuffles alpha beta]</span><br /></pre><br />It's fairly obvious that this is associative and satisfies the algebra requirements. (And there are quickCheck tests in the package to confirm it.)<br /><br />The coalgebra structure on QSymM is also similar to the coalgebra structure on SSymM. (We'll see in due course that SSym and QSym are closely related.) For the comultiplication of a composition, we'll just use the sum of the deconcatenations of the composition (without the flattening that we did with SSymM):<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">instance (Eq k, Num k) => Coalgebra k QSymM where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> counit = unwrap . linear counit' where counit' (QSymM alpha) = if null alpha then 1 else 0</span><br /><span class="Apple-style-span" style="font-family: inherit;"> comult = linear comult' where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> comult' (QSymM gamma) = sumv [return (QSymM alpha, QSymM beta) | (alpha,beta) <- deconcatenations gamma]</span><br /></pre><br />For example:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">> comult $ qsymM [1,2,3]</span><br /><span class="Apple-style-span" style="font-family: inherit;">(M [],M [1,2,3])+(M [1],M [2,3])+(M [1,2],M [3])+(M [1,2,3],M [])</span><br /></pre><br />(Recall that (x,y) should be read as x⊗y.)<br /><br />This comultiplication, along with those we have seen for other combinatorial Hopf algebras, is obviously coassociative - but perhaps I should spell out what that means. Coassociativity says that:<br />(comult⊗id) . comult = (id⊗comult) . comult<br /><br />In other words, if you split a composition in two, and then split the left part in two - in all possible ways - then you get the same sum of possibilities as if you had done the same but splitting the right part in two. This is obvious, because it's just the sum of possible ways of splitting the composition in three (modulo associativity).<br /><br />Then for a coalgebra we also require:<br />(id⊗counit) . comult = id = (counit⊗id) . comult<br /><br />But this is clear. For example:<br />((id⊗counit) . comult) [1,2,3] =<br />(id⊗counit) ([]⊗[1,2,3] + [1]⊗[2,3] + [1,2]⊗[3] + [1,2,3]⊗[]) =<br />0 + 0 + 0 + [1,2,3]<br />(modulo the isomorphism C⊗k = C)<br /><br />Then, as we did previously, we can quickCheck that the algebra and coalgebra structures are compatible, and hence that we have a bialgebra. (See the detailed explanation last time: mainly it comes down to the fact that deconcatenating quasi-shuffles is the same as quasi-shuffling deconcatenations.)<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">instance (Eq k, Num k) => Bialgebra k QSymM where {}</span><br /></pre><br />As before, this is a connected graded bialgebra in an obvious way (using the sum of the composition as the grading), and hence it automatically has an antipode. In this case we can give an explicit expression for the antipode. The coarsenings of a composition are the compositions which are "more coarse" than the given composition, in the sense that they can be obtained by combining two or more adjacent parts of the given composition.<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">coarsenings (x1:x2:xs) = map (x1:) (coarsenings (x2:xs)) ++ coarsenings ((x1+x2):xs)</span><br /><span class="Apple-style-span" style="font-family: inherit;">coarsenings xs = [xs] -- for xs a singleton or null</span><br /></pre><br />For example:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">> coarsenings [1,2,3]</span><br /><span class="Apple-style-span" style="font-family: inherit;">[[1,2,3],[1,5],[3,3],[6]]</span><br /></pre><br />Then the antipode can be defined as follows:<br /><br /><pre><span class="Apple-style-span" style="font-family: inherit;">instance (Eq k, Num k) => HopfAlgebra k QSymM where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> antipode = linear antipode' where</span><br /><span class="Apple-style-span" style="font-family: inherit;"> antipode' (QSymM alpha) = (-1)^length alpha * sumv [return (QSymM beta) | beta <- coarsenings (reverse alpha)]</span><br /></pre><br />Why does this work? Remember that - in the case of a combinatorial Hopf algebra, where counit picks out the empty structure - antipode has to perform the disappearing trick of making everything cancel out.<br /><br />That is, we require that<br />mult . (id⊗antipode) . comult = unit . counit<br />where the right hand side is zero for any non-empty composition.<br /><br />Now, in order to try to figure out how it works, I decided to go through an example. However, in the cold light of day I have to admit that perhaps this is one of those times when maths is not a spectator sport. So the rest of this blog post is "optional".<br /><br />Ok, so let's look at an example:<br /><br />[1,2,3]<br /><br />-> (comult = deconcatenations)<br /><br />[]⊗[1,2,3] + [1]⊗[2,3] + [1,2]⊗[3] + [1,2,3]⊗[]<br /><br />-> (id⊗antipode = reversal coarsening of right hand side, with alternating signs)<br /><br />- []⊗([3,2,1] + [5,1] + [3,3] + [6])<br />+ [1]⊗([3,2] + [5])<br />- [1,2]⊗[3]<br />+ [1,2,3]⊗[]<br /><br />-> (mult = quasi-shuffles)<br /><br />- [3,2,1] - [5,1] - [3,3] - [6]<br />+ [1,3,2] + [4,2] + [3,1,2] + [3,3] + [3,2,1] + [1,5] + [6] + [5,1]<br />- [1,2,3] - [1,5] - [1,3,2] - [4,2] - [3,1,2]<br />+ [1,2,3]<br /><br />= 0<br /><br />(The way I like to think of this is:<br />- comult splits the atom into a superposition of fragment states<br />- antipode turns the right hand part of each fragment pair into a superposition of anti-matter states<br />- mult brings the matter and anti-matter parts together, causing them to annihilate<br />However, I think that is just fanciful - there's no flash of light - so I'll say no more.)<br /><br />So why does it work? Well, in the final sum, the terms have to cancel out in pairs. If we look at some of the terms, it appears that there are three possibilities:<br /><br />Case 1:<br /><br />Consider the case of [4,2]. It arises in two ways in the final sum:<br />123 -> 1,23 -> 1,32 -> 42<br />123 -> 12,3 -> -12,3 -> -42<br /><br />In both cases, the 1 and the 3 are combined during the quasi-shuffle phase to make a 4. In order to be combined in this way, they have to end up on opposite sides of the split during the deconcatenation phase. Because there is a 2 separating them, there are two ways this can happen, with the 2 ending up on either the left or right hand side of the split. And then the alternating signs ensure that the two outcomes cancel out at the end.<br /><br />(In this case there was just one part separating them, but the same thing happens if there are more. For example:<br />1234 -> 1,234 -> -1,432 -> -532 + other terms<br />1234 -> 12,34 -> 12,43 -> 532 + 523<br />1234 -> 123,4 -> -123,4 -> -523)<br /><br />Case 2:<br /><br />Consider the case of [3,3]. This arises in two ways in the final sum:<br />123 -> [],123 -> -[],33 -> -33<br />123 -> 1,23 -> 1,32 -> 33<br /><br />In this case it is the 1 and the 2 that combine. Unlike the 42 case, in this case the parts that combine are adjacent to one another at the beginning. In the top interaction, they combine during the reverse coarsening phase, in the bottom interaction, they combine during the quasi-shuffle phase. If x and y are adjacent, then the only way they can combine during the quasi-shuffle phase is if the split happens between them during the deconcatenation phase. This will always cancel with the term we get by splitting just before both x and y, and then combining them during coarsening.<br /><br />wxyz -> w,xyz -> +/- w,z(y+x) -> {wz}(y+x)<br />wxyz -> wx,yz -> -/+ wx,zy -> {wz}(x+y)<br /><br />Case 3:<br /><br />Finally, it may happen that x and y don't combine. This can happen in two different ways, depending whether x and y are adjacentparts or not.<br /><br />If they're not adjacent, then we get a failed case 1. For example, the [3,1,2] and [1,3,2] terms arise when the 1 and 3 fail to combine into a 4:<br />123 -> 1,23 -> 1,32 -> 132 + 312<br />123 -> 12,3 -> -12,3 -> -132-312<br /><br />If they're adjacent, we get a failed case 2. For example, the [3,2,1] terms arise when the 1 and 2 fail to combine into a 3:<br />123 -> [],123 -> -[],321 -> -321<br />123 -> 1,23 -> 1,32 -> 321<br /><br /><br />This isn't quite a proof, of course. In a longer composition, there might be an opportunity for more than one of these cases to happen at the same time, and we need to show how that all works out. Also, I'm not sure that the [1,2,3] term is either a failed case 1 or a failed case 2. I hope at least though that this analysis has shed some light on why it works. (Exercise: Complete the proof.)<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-40751283410326837412012-03-25T21:55:00.001+01:002012-03-25T21:55:49.559+01:00CHAs II: The Hopf Algebra SSym of Permutations<br /><a href="http://haskellformaths.blogspot.co.uk/2012/03/combinatorial-hopf-algebras-i-hopf.html">Last time</a> we looked at YSym, the (dual of the) Loday-Ronco Hopf algebra of binary trees. This time I want to look at SSym, the Malvenuto-Reutenauer Hopf algebra of permutations. (In due course we'll see that YSym and SSym are quite closely related.)<br /><br />The fundamental basis for SSym is (indexed by) the permutations of [1..n] for n <- [0..]. As usual, we work in the <a href="http://haskellformaths.blogspot.co.uk/2010/12/free-vector-space-on-type-part-1.html">free vector space</a> over this basis. Hence a typical element of SSym might be something like [1,3,2] + 2 [4,1,3,2]. Here's some code:<br /><br /><pre>newtype SSymF = SSymF [Int] deriving (Eq)<br /><br />instance Ord SSymF where<br /> compare (SSymF xs) (SSymF ys) = compare (length xs, xs) (length ys, ys)<br /><br />instance Show SSymF where<br /> show (SSymF xs) = "F " ++ show xs<br /><br />ssymF :: [Int] -> Vect Q SSymF<br />ssymF xs | L.sort xs == [1..n] = return (SSymF xs)<br /> | otherwise = error "Not a permutation of [1..n]"<br /> where n = length xs<br /><br /></pre><br />(The "F" in SSymF stands for fundamental basis: we may have cause to look at other bases in due course.)<br /><br />Let's try it out:<br /><br /><pre>$ cabal update<br />$ cabal install HaskellForMaths<br />$ ghci<br />> :m Math.Algebras.Structures Math.Combinatorics.CombinatorialHopfAlgebra<br />> ssymF [1,3,2] + 2 * ssymF [4,1,3,2]<br />F [1,3,2]+2F [4,1,3,2]<br /><br /></pre>Ok, so how can we define an algebra structure on this basis? How can we multiply permutations? (We want to consider permutations as combinatorial rather than algebraic objects here. So no, the answer isn't the group algebra.) One possibility would be to use the following shifted concatenation operation:<br /><br /><pre>shiftedConcat (SSymF xs) (SSymF ys) = let k = length xs in SSymF (xs ++ map (+k) ys)<br /><br /></pre>For example:<br /><br /><pre>> shiftedConcat (SSymF [1,2]) (SSymF [2,1,3])<br />F [1,2,4,3,5]<br /><br /></pre>This has the required properties. It's associative:<br /><pre>> quickCheck (\x y z -> shiftedConcat (shiftedConcat x y) z == shiftedConcat x (shiftedConcat y z))<br />+++ OK, passed 100 tests.<br /><br /></pre>And it's pretty obvious that the empty permutation, SSymF [], is a left and right identity. Hence we could form a monoid algebra using this operation.<br /><br />However, for the Hopf algebra we're going to look at, we will use a slightly more complicated multiplication. We will retain the idea of shifting the second permutation, so that the two lists are disjoint. However, instead of just concatenating them, we will form the sum of all possible "shuffles" of the two lists. Here's the shuffle code:<br /><br /><pre>shuffles (x:xs) (y:ys) = map (x:) (shuffles xs (y:ys)) ++ map (y:) (shuffles (x:xs) ys)<br />shuffles xs [] = [xs]<br />shuffles [] ys = [ys]<br /><br /></pre>So shuffles takes two input "decks of cards", and it outputs all possible ways that they can be shuffled together, while preserving the order between cards from the same deck. For example:<br /><br /><pre>> shuffles [1,2] [3,4,5]<br />[[1,2,3,4,5],[1,3,2,4,5],[1,3,4,2,5],[1,3,4,5,2],[3,1,2,4,5],[3,1,4,2,5],[3,1,4,5,2],[3,4,1,2,5],[3,4,1,5,2],[3,4,5,1,2]]<br /><br /></pre>Notice how in each of the output shuffles, we have 1 before 2, and 3 before 4 before 5. This enables us to define an algebra structure on permutations as follows:<br /><br /><pre>instance (Eq k, Num k) => Algebra k SSymF where<br /> unit x = x *> return (SSymF [])<br /> mult = linear mult'<br /> where mult' (SSymF xs, SSymF ys) =<br /> let k = length xs<br /> in sumv [return (SSymF zs) | zs <- shuffles xs (map (+k) ys)]<br /><br /></pre>For example:<br /><br /><pre>> ssymF [1,2] * ssymF [2,1,3]<br />F [1,2,4,3,5]+F [1,4,2,3,5]+F [1,4,3,2,5]+F [1,4,3,5,2]+F [4,1,2,3,5]+F [4,1,3,2,5]+F [4,1,3,5,2]+F [4,3,1,2,5]+F [4,3,1,5,2]+F [4,3,5,1,2]<br /><br /></pre>It's clear that ssymF [] is indeed a left and right unit for this multiplication. It's also fairly clear that this multiplication is associative (because both shifting and shuffling are). Let's just check:<br /><br /><pre>> quickCheck (prop_Algebra :: (Q, Vect Q SSymF, Vect Q SSymF, Vect Q SSymF) -> Bool)<br />+++ OK, passed 100 tests.<br /><br /></pre>(The test code isn't exposed in the package, so you'll have to dig around in the source if you want to try this. It takes a minute or two, because every time we multiply we end up with lots of terms.)<br /><br /><br />What about a coalgebra structure? As I mentioned last time, in a combinatorial Hopf algebra, the comultiplication is usually a sum of the different ways to take apart our combinatorial object into two parts. In this case, we take a permutation apart by "deconcatenating" it (considered as a list) into two pieces. This is like cutting a deck of cards:<br /><br /><pre>deconcatenations xs = zip (inits xs) (tails xs)<br /><br /></pre>For example:<br /><br /><pre>> deconcatenations [2,3,4,1]<br />[([],[2,3,4,1]),([2],[3,4,1]),([2,3],[4,1]),([2,3,4],[1]),([2,3,4,1],[])]<br /><br /></pre>However, most of those parts are no longer permutations of [1..n] (for any n), because they are missing some numbers. In order to get back to permutations, we need to "flatten" each part:<br /><br /><pre>flatten xs = let mapping = zip (L.sort xs) [1..]<br /> in [y | x <- xs, let Just y = lookup x mapping]<br /><br /></pre>For example:<br /><br /><pre>> flatten [3,4,1]<br />[2,3,1]<br /><br /></pre>Putting the deconcatenation and flattening together we get the following coalgebra definition:<br /><br /><pre>instance (Eq k, Num k) => Coalgebra k SSymF where<br /> counit = unwrap . linear counit' where counit' (SSymF xs) = if null xs then 1 else 0<br /> comult = linear comult'<br /> where comult' (SSymF xs) = sumv [return (SSymF (flatten us), SSymF (flatten vs))<br /> | (us, vs) <- deconcatenations xs]<br /><br /></pre>For example:<br /><br /><pre>> comult $ ssymF [2,3,4,1]<br />(F [],F [2,3,4,1])+(F [1],F [2,3,1])+(F [1,2],F [2,1])+(F [1,2,3],F [1])+(F [2,3,4,1],F [])<br /><br /></pre>(Recall that the result should be read as F[]⊗F[2,3,4,1] + F[1]⊗F[2,3,1] + ...)<br /><br />It's fairly clear that this comultiplication is coassociative. The counit properties are equally straightforward. Hence:<br /><br /><pre>> quickCheck (prop_Coalgebra :: Vect Q SSymF -> Bool)<br />+++ OK, passed 100 tests.</pre><br />Is it a bialgebra? Do the algebra and coalgebra structures commute with one another? In previous posts I've been a bit hand-wavy about this, so let's take a short time out to look at what this actually means. For example, what does it mean for mult and comult to commute? Well, it means that the following diagram commutes:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-1dz68zQmjEk/T2-DT-fJoPI/AAAAAAAAAKM/UGvEm0R4090/s1600/mult-comult-commute.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="170" src="http://3.bp.blogspot.com/-1dz68zQmjEk/T2-DT-fJoPI/AAAAAAAAAKM/UGvEm0R4090/s320/mult-comult-commute.png" width="320" /></a></div><br />But hold on a sec - what is the mult operation on (B⊗B)⊗(B⊗B) - is B⊗B even an algebra? And similarly, what is the comult operation on B⊗B - is it even a coalgebra?<br /><br />Yes they are. Given any algebras A and B, we can define an algebra structure on A⊗B via (a1⊗b1) * (a2⊗b2) = (a1*a2)⊗(b1*b2). In code:<br /><br /><pre>instance (Eq k, Num k, Ord a, Ord b, Algebra k a, Algebra k b) => Algebra k (Tensor a b) where<br /> unit x = x *> (unit 1 `te` unit 1)<br /> mult = (mult `tf` mult) . fmap (\((a,b),(a',b')) -> ((a,a'),(b,b')) )<br /><br /></pre>Similarly, given coalgebras A and B we can define a coalgebra structure on A⊗B as follows:<br /><br /><pre>instance (Eq k, Num k, Ord a, Ord b, Coalgebra k a, Coalgebra k b) => Coalgebra k (Tensor a b) where<br /> counit = unwrap . linear counit'<br /> where counit' (a,b) = (wrap . counit . return) a * (wrap . counit . return) b<br /> comult = nf . fmap (\((a,a'),(b,b')) -> ((a,b),(a',b')) ) . (comult `tf` comult)<br /><br /></pre>(Recall that those pesky wrap and unwrap calls are the isomorphisms k <-> Vect k (). What the counit definition really says is that counit (a⊗b) = counit a * counit b.)<br /><br />Notice how in both the mult and comult definitions, we have to swap the middle two terms of the fourfold tensor product over, in order to have something of the right type.<br /><br /><br />So how does this work for SSym? Well, we start in the top left with SSym⊗SSym. You can think of that as two decks of cards.<br /><br />If we go along the top and down the right, then we first shuffle the two decks together (in all possible ways), and then deconcatenate the results (in all possible ways).<br /><br />If we go down the left and along the bottom, then we first deconcatenate each deck independently (in all possible ways), and then shuffle the first parts of both decks together and separately shuffle the second parts together (in all possible ways).<br /><br />You can kind of see that this is going to lead to the same result. It's just saying that it doesn't matter whether you shuffle before you cut or cut before you shuffle. (There's also shifting and flattening going on, of course, but it's clear that doesn't affect the result.)<br /><br />For a bialgebra, we require that each of unit and mult commutes with each of counit and comult - so four conditions in all. The other three are much easier to verify, so I'll leave them as an exercise.<br /><br />Just to check:<br /><br /><pre>> quickCheck (prop_Bialgebra :: (Q, Vect Q SSymF, Vect Q SSymF) -> Bool)<br />+++ OK, passed 100 tests.<br /><br /></pre>Okay so what about a Hopf algebra structure? Is there an antipode operation?<br /><br />Well, recall that when we looked last time at YSym, we saw that it was possible to give a recursive definition of the antipode map. This isn't always possible. The reason it was possible for YSym was:<br />- We saw that the comultiplication of a tree t is a sum of terms u⊗v, where with the exception of the term 1⊗t, all the other terms have a smaller tree on the right hand side.<br />- We saw that the counit is 1 on the smallest tree, and 0 otherwise.<br /><br />It turns out that these are instances of a more general concept, of a graded and connected coalgebra.<br />- A graded vector space means that there is a concept of the size or degree of the basis elements. For YSym, the degree was the number of nodes in the tree. A graded coalgebra means that the comultiplication respects the degree, in the sense that if comult t is a sum of terms u⊗v, then degree u + degree v = degree t.<br />- A connected coalgebra means that the counit is 1 on the degree zero piece, and 0 otherwise.<br /><br />(There is a basis-independent way to explain this, for the purists.)<br /><br />Now, SSym is also a graded connected coalgebra:<br />- the degree of SSymF xs is simply length xs. Comultiplication respects the degree.<br />- counit is 1 on the degree zero piece, 0 otherwise.<br /><br />Hence we can again give a recursive definition for the antipode:<br /><br /><pre>instance (Eq k, Num k) => HopfAlgebra k SSymF where<br /> antipode = linear antipode'<br /> where antipode' (SSymF []) = return (SSymF [])<br /> antipode' x@(SSymF xs) = (negatev . mult . (id `tf` antipode) . removeTerm (SSymF [],x) . comult . return) x<br /><br /></pre>For example:<br /><br /><pre>> antipode $ ssymF [1,2,3]<br />-F [3,2,1]<br />> antipode $ ssymF [1,3,2]<br />-F [2,1,3]-F [2,3,1]+F [3,1,2]<br />> antipode $ ssymF [2,1,3]<br />-F [1,3,2]+F [2,3,1]-F [3,1,2]<br /><br /></pre>It is possible to give an explicit expression for the antipode. However, it's a little complicated, and I haven't got around to coding it yet.<br /><br />Let's just check:<br /><br /><pre>> quickCheck (prop_HopfAlgebra :: Vect Q SSymF -> Bool)<br />+++ OK, passed 100 tests.<br /><br /></pre>However, this isn't quite satisfactory. I'd like a little more insight into what the antipode actually does.<br /><br />Recall that the definition requires that (mult . (id ⊗ antipode) . comult) == (unit . counit).<br /><br />The left hand side is saying:<br />- first cut (deconcatenate) the deck of cards into two parts (in all possible ways)<br />- next apply the antipode to just one of the two parts<br />- finally shuffle the two parts together (in all possible ways)<br /><br />The right hand side, remember, sends the empty permutation SSymF [] to itself, and every other permutation to zero.<br /><br />So what this is saying is, you cut a (non-empty) deck of cards, wave a wand over one part, shuffle the two parts together again, and the cards all disappear!<br /><br />Or is it? No, not quite. Remember that comult (resp. mult) is a sum of all possible deconcatenations (resp. shuffles). So what this is saying is that the antipode arranges things so that when you sum over all possible deconcatenations and shuffles, they cancel each other out. Cool!<br /><br />(This sounds like it might have something to do with renormalization in physics, where we want to get a bunch of troublesome infinities to cancel each other out. There is apparently a connection between Hopf algebras and renormalization, but I don't know if this is it. Unfortunately my understanding of physics isn't up to figuring this all out.)<br /><br /><br />So we've now seen how to define Hopf algebra structures on two different sets of combinatorial objects: trees and permutations. We'll see that these two Hopf algebras are actually quite closely related, and that there is something like a family of combinatorial Hopf algebras with interesting connections to one another.<br /><br />My main source for this article was <a href="http://www.math.tamu.edu/~sottile/research/pdf/SSym.pdf">Aguiar, Sottile, Structure of the Malvenuto-Reutenauer Hopf algebra of permutations</a>.<br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-70042153056891271582012-03-18T19:21:00.001+00:002012-03-25T21:51:33.343+01:00Combinatorial Hopf Algebras I: The Hopf Algebra YSym of Binary Trees<br /><a href="http://haskellformaths.blogspot.co.uk/2012/03/what-is-hopf-algebra.html">Last time</a> we looked at the definition of Hopf algebras, using the group algebra as a motivating example. This time I want to look at YSym, a Hopf algebra of binary trees. This is an example of a Combinatorial Hopf Algebra (CHA), meaning a Hopf algebra defined over some combinatorial object such as partitions, compositions, permutations, trees.<br /><br />The binary trees we're concerned with are the familiar binary trees from computer science. In the math literature on this, however, they're called (rooted) planar binary trees. As far as I can tell, that's because in math, a tree means a simple graph with no cycles. So from that point of view, a CS binary tree is in addition rooted - it has a distinguished root node - and planar - so that you can distinguish between left and right child nodes.<br /><br />Here's a Haskell type for (rooted, planar) binary trees:<br /><br /><pre>data PBT a = T (PBT a) a (PBT a) | E deriving (Eq, Show, Functor)<br /><br /><br /><br />instance Ord a => Ord (PBT a) where<br /><br /> ...<br /><br /></pre><br />As a convenience, the trees have labels at each node, and PBT is polymorphic in the type of the labels. The labels aren't really necessary: the Hopf algebra structure we're going to look at depends only on the shapes of the trees, not the labels. However, it will turn out to be useful to be able to label them, to see more clearly what is going on.<br /><br />There's more than one way to set up a Hopf algebra structure on binary trees, so we'll use a newtype wrapper to identify which structure we're using.<br /><br /><pre>newtype YSymF a = YSymF (PBT a) deriving (Eq, Ord, Functor)<br /><br /><br /><br />instance Show a => Show (YSymF a) where<br /><br /> show (YSymF t) = "F(" ++ show t ++ ")"<br /><br /><br /><br />ysymF :: PBT a -> Vect Q (YSymF a)<br /><br />ysymF t = return (YSymF t)<br /><br /></pre><br />(The "F" in YSymF signifies that we're looking at the fundamental basis. We may have occasion to look at other bases later.)<br /><br />So as usual, we're going to work in the free vector space on this basis, Vect Q (YSymF a), consisting of linear combinations of binary trees. Here's what a typical element might look like:<br /><br /><pre>$ cabal update<br /><br />$ cabal install HaskellForMaths<br /><br />$ ghci<br /><br />> :m Math.Algebras.Structures Math.Combinatorics.CombinatorialHopfAlgebra<br /><br />> ysymF (E) + 2 * ysymF (T (T E () E) () E)<br /><br />F(E)+2F(T (T E () E) () E)<br /><br /></pre><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/-iMJutccIcy8/T2YyI8Bdn3I/AAAAAAAAAJ4/hM1-Cyjwvoo/s1600/Sum+of+trees.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/-iMJutccIcy8/T2YyI8Bdn3I/AAAAAAAAAJ4/hM1-Cyjwvoo/s1600/Sum+of+trees.png" /></a></div>Ok, so how do we multiply two binary trees together? Well actually, let's look at comultiplication first, because it's a little easier to explain. In CHAs (combinatorial Hopf algebras), the comultiplication is often a sum of the different ways of taking a combinatorial structure apart into two pieces. In the case of binary trees, we take them apart by splitting down the middle, starting at a leaf and continuing down to the root. Each node that we pass through goes to the side which has both its branches.<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-juFuVgt2PUA/T2YyIV1-PuI/AAAAAAAAAJ0/r3J2kk0VUBI/s1600/Splitting+tree.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/-juFuVgt2PUA/T2YyIV1-PuI/AAAAAAAAAJ0/r3J2kk0VUBI/s1600/Splitting+tree.png" /></a></div>The diagram shows one possible split of the tree. Each leaf of the tree gives rise to a split. Hence the possible splits are:<br /><br /><pre>> mapM_ print $ splits $ T (T E 1 E) 2 (T (T E 3 E) 4 (T E 5 E))<br /><br />(E,T (T E 1 E) 2 (T (T E 3 E) 4 (T E 5 E)))<br /><br />(T E 1 E,T E 2 (T (T E 3 E) 4 (T E 5 E)))<br /><br />(T (T E 1 E) 2 E,T (T E 3 E) 4 (T E 5 E))<br /><br />(T (T E 1 E) 2 (T E 3 E),T E 4 (T E 5 E))<br /><br />(T (T E 1 E) 2 (T (T E 3 E) 4 E),T E 5 E)<br /><br />(T (T E 1 E) 2 (T (T E 3 E) 4 (T E 5 E)),E)<br /><br /></pre><br />The definition of splits is wonderfully simple:<br /><br /><pre>splits E = [(E,E)]<br /><br />splits (T l x r) = [(u, T v x r) | (u,v) <- splits l] ++ [(T l x u, v) | (u,v) <- splits r]<br /><br /></pre><br />We use this to define a coalgebra structure on the vector space of binary trees as follows:<br /><br /><pre>instance (Eq k, Num k, Ord a) => Coalgebra k (YSymF a) where<br /><br /> counit = unwrap . linear counit' where counit' (YSymF E) = 1; counit' (YSymF (T _ _ _)) = 0<br /><br /> comult = linear comult'<br /><br /> where comult' (YSymF t) = sumv [return (YSymF u, YSymF v) | (u,v) <- splits t]<br /><br /></pre><br />In other words, the counit is the indicator function for the empty tree, and the comult sends a tree t to the sum of u⊗v for all splits (u,v).<br /><br /><pre>> comult $ ysymF $ T (T E 1 E) 2 (T E 3 E)<br /><br />(F(E),F(T (T E 1 E) 2 (T E 3 E)))+(F(T E 1 E),F(T E 2 (T E 3 E)))+(F(T (T E 1 E) 2 E),F(T E 3 E))+(F(T (T E 1 E) 2 (T E 3 E)),F(E))<br /><br /></pre><br />Let's just check that this satisfies the coalgebra conditions:<br /><br /><pre>> quickCheck (prop_Coalgebra :: Vect Q (YSymF ()) -> Bool)<br /><br />+++ OK, passed 100 tests.<br /><br /></pre><br />[I should say that although the test code is included in the <a href="http://hackage.haskell.org/package/HaskellForMaths">HaskellForMaths</a> package, it is not part of the exposed modules, so if you want to try this you will have to fish around in the source.]<br /><br />Multiplication is slightly more complicated. Suppose that we are trying to calculate the product of trees t and u. Suppose that u has k leaves. Then we look at all possible "multi-splits" of t into k parts, and then graft the parts onto the leaves of u (in order). This is probably easiest explained with a diagram:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/-5Q-HigXCrBY/T2YyFfyfYmI/AAAAAAAAAJk/ful_mquxqhI/s1600/Grafting+tree.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="93" src="http://2.bp.blogspot.com/-5Q-HigXCrBY/T2YyFfyfYmI/AAAAAAAAAJk/ful_mquxqhI/s320/Grafting+tree.png" width="320" /></a></div><br />The diagram shows just one possible multi-split, but the multiplication is defined as the sum over all possible multi-splits. Here's the code:<br /><br /><pre>multisplits 1 t = [ [t] ]<br /><br />multisplits 2 t = [ [u,v] | (u,v) <- splits t ]<br /><br />multisplits n t = [ u:ws | (u,v) <- splits t, ws <- multisplits (n-1) v ]<br /><br /><br /><br />graft [t] E = t<br /><br />graft ts (T l x r) = let (ls,rs) = splitAt (leafcount l) ts<br /><br /> in T (graft ls l) x (graft rs r)<br /><br /><br /><br />instance (Eq k, Num k, Ord a) => Algebra k (YSymF a) where<br /><br /> unit x = x *> return (YSymF E)<br /><br /> mult = linear mult'<br /><br /> where mult' (YSymF t, YSymF u) = sumv [return (YSymF (graft ts u)) | ts <- multisplits (leafcount u) t]<br /><br /></pre><br />For example:<br /><br /><pre>> ysymF (T (T E 1 E) 2 E) * ysymF (T E 3 E)<br /><br />F(T (T (T E 1 E) 2 E) 3 E)+F(T (T E 1 E) 3 (T E 2 E))+F(T E 3 (T (T E 1 E) 2 E))<br /><br /></pre><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/-OjUY1fj8xZ4/T2YyGNp894I/AAAAAAAAAJo/nWhuMi-gr5o/s1600/Multiplication+of+trees.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="70" src="http://2.bp.blogspot.com/-OjUY1fj8xZ4/T2YyGNp894I/AAAAAAAAAJo/nWhuMi-gr5o/s320/Multiplication+of+trees.png" width="320" /></a></div><br />It's fairly clear that the empty tree E is a left and right identity for this multiplication. It seems plausible that the multiplication is also associative - let's just check:<br /><br /><pre>> quickCheck (prop_Algebra :: (Q, Vect Q (YSymF ()), Vect Q (YSymF ()), Vect Q (YSymF ())) -> Bool)<br /><br />+++ OK, passed 100 tests.<br /><br /></pre><br /><br />So we've defined both algebra and coalgebra structures on the free vector space of binary trees. For a bialgebra, the algebra and coalgebra structures need to satisfy compatibility conditions: roughly, the multiplication and comultiplication need to commute, ie comult (mult x y) == mult (comult x) (comult y); plus similar conditions involving unit and counit.<br /><br />Given the way they have been defined, it seems plausible that the structures are compatible (roughly, because it doesn't matter whether you split before or after grafting), but let's just check:<br /><br /><pre>> quickCheck (prop_Bialgebra :: (Q, Vect Q (YSymF ()), Vect Q (YSymF ())) -> Bool)<br /><br />+++ OK, passed 100 tests.<br /><br /></pre><br />This entitles us to declare a Bialgebra instance:<br /><br /><pre>instance (Eq k, Num k, Ord a) => Bialgebra k (YSymF a) where {}<br /><br /></pre><br />(The Bialgebra class doesn't define any "methods". So this is just a way for us to declare in the code that we have a bialgebra. For example, we could write functions which require Bialgebra as a context.)<br /><br /><br />Finally, for a Hopf algebra, we need an antipode operation. Recall that an antipode must satisfy the following diagram:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-EojUy37RlpA/T2YzimLcm0I/AAAAAAAAAKE/QfnQkgTutfg/s1600/Hopf+algebra.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="197" src="http://1.bp.blogspot.com/-EojUy37RlpA/T2YzimLcm0I/AAAAAAAAAKE/QfnQkgTutfg/s320/Hopf+algebra.png" width="320" /></a></div><br />In particular,<br /><br />mult . (id ⊗ antipode) . comult = unit . counit<br /><br />Let's assume that an antipode for YSym exists, and see what we can deduce about it. The right hand side of the above equation is the function that takes a linear combination of trees, and drops everything except the empty tree. Informally:<br />(unit . counit) E = E<br />(unit . counit) (T _ _ _) = 0<br /><br />For example:<br /><br /><pre>> (unit . counit) (ysymF E) :: Vect Q (YSymF ())<br /><br />F(E)<br /><br />> (unit . counit) (ysymF (T E () E)) :: Vect Q (YSymF ())<br /><br />0<br /><br /></pre><br />Since we also know that comult E = E⊗E, and mult E⊗E = E, it follows that antipode E = E.<br /><br />Now what about the antipode of non-empty trees? We know that<br />comult t = E⊗t + ... + t⊗E<br />where the sum is over all splits of t.<br /><br />Hence<br />((id ⊗ antipode) . comult) t = E⊗(antipode t) + ... + t⊗(antipode E)<br />and<br />(mult . (id ⊗ antipode) . comult) t = E * antipode t + ... + t * antipode E<br />where the right hand side of each multiplication symbol has antipode applied.<br /><br />Now, E is the identity for multiplication of trees, so<br />(mult . (id ⊗ antipode) . comult) t = antipode t + ... + t * antipode E<br /><br />Now, the Hopf algebra condition requires that (mult . (id ⊗ antipode) . comult) = (unit . counit). And we saw that for a non-empty tree, (unit . counit) t = 0. Hence:<br /><br />antipode t + ... + t * antipode E = 0<br /><br />Notice that all the terms after the first involve the antipodes of trees "smaller" than t (ie with fewer nodes). As a consequence, we can use this equation as the basis of a recursive definition of the antipode. We recurse through progressively smaller trees, and the recursion terminates because we know that antipode E = E. Here's the code:<br /><br /><pre>instance (Eq k, Num k, Ord a) => HopfAlgebra k (YSymF a) where<br /><br /> antipode = linear antipode'<br /><br /> where antipode' (YSymF E) = return (YSymF E)<br /><br /> antipode' x = (negatev . mult . (id `tf` antipode) . removeTerm (YSymF E,x) . comult . return) x<br /><br /></pre><br />For example:<br /><br /><pre>> antipode $ ysymF (T E () E)<br /><br />-F(T E () E)<br /><br />> antipode $ ysymF (T (T E () E) () E)<br /><br />F(T E () (T E () E))<br /><br /><br /><br />> quickCheck (prop_HopfAlgebra :: Vect Q (YSymF ()) -> Bool)<br /><br />+++ OK, passed 100 tests.<br /><br /></pre><br />It is also possible to give an explicit definition of the antipode (exercise: find it), but I thought it would be more illuminating to do it this way.<br /><br />It's probably silly, but I just love being able to define algebraic structures on pictures (ie of trees).<br /><br />Incidentally, I understand that there is a Hopf algebra structure similar to YSym underlying Feynman diagrams in physics.<br /><br />I got the maths in the above mainly from <a href="http://www.math.tamu.edu/~sottile/research/pdf/Loday.pdf">Aguiar, Sottile, Structure of the Loday-Ronco Hopf algebra of trees</a>. Thanks to them and many other researchers for coming up with all this cool maths, and for making it freely available online.<br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com2tag:blogger.com,1999:blog-5195188167565410449.post-36208989732873632092012-03-03T18:49:00.003+00:002012-03-04T19:16:28.761+00:00What is a Hopf algebra?<br />A while ago I looked at the concepts of an <a href="http://haskellformaths.blogspot.com/2011/04/what-is-algebra.html">algebra</a> and a <a href="http://haskellformaths.blogspot.com/2011/04/what-is-coalgebra.html">coalgebra</a>, and showed how to represent them in Haskell. I was intending to carry on to look at bialgebras and Hopf algebras, but I realised that I wasn't sufficiently clear in my own mind about the motivation for studying them. So, I confess that I have been keeping this blog just about afloat with filler material, while behind the scenes I've been writing loads of code - some fruitful, some not - to figure out how to motivate the concept of Hopf algebra.<br /><br />Some concepts in mathematics have an obvious motivation at the outset: groups arise from thinking about (eg geometric) symmetry, (normed) vector spaces are a representation of physical space. (Both concepts turn out to have a usefulness that goes far beyond the initial intuitive motivation.) With Hopf algebras this doesn't really appear to be the case.<br /><br />Hopf algebras appear to have been invented for narrow technical reasons to solve a specific problem, and then over time, it has turned out both that they are far more widespread and far more useful than was initially realised. So for me, there are two motivations for looking at Hopf algebras:<br />- There are some really interesting structures that are Hopf algebras. I'm particularly interested in combinatorial Hopf algebras, which I hope to cover in this blog in due course. But there are also examples in physics, associated with Lie algebras, for example.<br />- They have some interesting applications. I'm interested in the applications to knot theory (which unfortunately are a little technical, so I'll have to summon up some courage if I want to go over them in this blog). But again, there seem to be applications to physics, such as renormalization in quantum field theory (which I don't claim to understand, btw).<br /><br /><br />As a gentle introduction to Hopf algebras, I want to look at the group Hopf algebra, which has some claim to be the fundamental example, and provides a really good anchor for the concept.<br /><br />So last time we looked at the <a href="http://haskellformaths.blogspot.com/2012/02/introducing-group-algebra.html">group algebra</a> - the free k-vector space of k-linear combinations of elements of a group G. We saw that many elements in the group algebra have multiplicative inverses, and we wrote code to calculate them. However, if you look again at that code, you'll see that it doesn't actually make use of group inverses anywhere. The code really only relies on the fact that finite groups are finite monoids. We could say that actually, the code we wrote is for finding inverses in finite monoid algebras. (But of course it just so happens that all finite monoids are groups.)<br /><br />[Edit: Oops - that last claim in brackets is not true. Thanks to reddit readers for pointing it out.]<br /><br />So the group algebra is an algebra, indeed a monoid algebra, but with the special property that the basis elements (the group elements) all have multiplicative inverses.<br /><br />Now, mathematicians always prefer, if possible, to come up with definitions that are basis-independent. (In <a href="http://hackage.haskell.org/package/HaskellForMaths">HaskellForMaths</a>, we've been working with free vector spaces, which encourages us to think of vector spaces in terms of a particular basis. But many interesting properties of vector spaces are true regardless of the choice of basis, so it is better to find a way to express them that doesn't involve the basis.)<br /><br />Can we find a basis-independent way to characterise this special property of the group algebra?<br /><br />Well, our first step has to be to find a way to talk about the group inverse without having to mention group elements. We do that by encapsulating the group inverse in a linear map, which we call the antipode:<br /><code></code><br /><code>antipode x = nf (fmap inverse x)</code><br /><br />So in other words the antipode operation just inverts each group element in a group algebra element (a k-linear combination of group elements). (The nf call just puts the vector in normal form.) For example:<br /><code></code><br /><code>> antipode $ p [[1,2,3]] + 2 * p [[2,3,4]]</code><br /><code>[[1,3,2]]+2[[2,4,3]]</code><br /><br />The key point about the antipode is that we now have a linear map on the group algebra, rather just an operation on the group alone. Although we defined the antipode in terms of a particular basis, linear maps fundamentally don't care about the basis. If you choose some other basis for the group algebra, I can tell you how the antipode transforms your basis elements.<br /><br /><br />Ok, so what we would like to do is find a way to express the group inverse property (ie the property that every group element has an inverse) as a property of the group algebra, in terms of the antipode.<br /><br />Well, no point beating about the bush. Define:<br /><code></code><br /><code>trace (V ts) = sum [x | (g,x) <- ts]</code><br /><code>diag = fmap (\g -> (g,g))</code><br /><br />(So in maths notation, diag is the linear map which sends g to g⊗g.)<br /><br />Note that these are both linear maps. In particular, once again, although we have defined them in terms of our natural basis (the group elements), as linear maps they don't really care what basis we choose.<br /><br /><br />Then it follows from the group inverse property that the following diagram commutes:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-AAcB5E8bzmo/T1Jl45Psp9I/AAAAAAAAAJU/OE76M_CIQNc/s1600/Group+algebra.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="209" src="http://3.bp.blogspot.com/-AAcB5E8bzmo/T1Jl45Psp9I/AAAAAAAAAJU/OE76M_CIQNc/s320/Group+algebra.png" width="320" /></a></div><br />Why will it commute? Well, think about what happens to a group element, going from left to right:<br />- Going along the top, we have g -> g⊗g -> g⊗g<sup>-1</sup> -> g*g<sup>-1</sup> = 1<br />- Going along the middle, we have g -> 1 -> 1<br />- Going along the bottom, we have g -> g⊗g -> g<sup>-1</sup>⊗g -> g<sup>-1</sup>*g = 1<br />All of the maps are linear, so they extend from group elements to arbitrary k-linear combinations of group elements.<br /><br />(Shortly, I'll demonstrate that it commutes as claimed, using a quickcheck property.)<br /><br /><br />We're nearly there. We've found a way to express the special property of the group algebra, in a basis-independent way. We can say that what is special about the group algebra is that there is a linear antipode map, such that the above diagram commutes.<br /><br />[In fact I think it may be true that if you have a monoid algebra such that the above diagram commutes, then it follows that the monoid is a group. This would definitely be true if we constrained antipode to be of the form (fmap f), for f a function on the monoid, but I'm not absolutely sure that it's true if antipode is allowed to be an arbitrary linear function.]<br /><br />Now, the concept of a Hopf algebra is just a slight generalization of this.<br /><br />Observe that trace and diag actually define a coalgebra structure:<br />- diag is clearly coassociative<br />- the left and right counit properties are also easy to check<br /><br />So we can define:<br /><br /><pre><br /><br />instance (Eq k, Num k) => Coalgebra k (Permutation Int) where<br /><br /> counit = unwrap . linear counit' where counit' g = 1 -- trace<br /><br /> comult = fmap (\g -> (g,g)) -- diagonal<br /><br /></pre><br />(In fact, trace and diag define a coalgebra structure on the free vector space over any set. Of course, some free vector spaces also have other more interesting coalgebra structures.)<br /><br />Let's just quickcheck:<br /><code></code><br /><code>> quickCheck (prop_Coalgebra :: GroupAlgebra Q -> Bool)</code><br /><code>+++ OK, passed 100 tests.</code><br /><br /><br />So for the definition of a Hopf algebra, we allow the antipode to be defined relative to other coalgebra structures besides the trace-diag structure (with some restrictions to be discussed later). So a Hopf algebra is a vector space having both an algebra and a coalgebra structure, such that there exists an antipode map that makes the following diagram commute:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/-4yl9cReK8Jc/T1Jl7O0-kaI/AAAAAAAAAJc/Jf9hMN_3lL4/s1600/Hopf+algebra.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="197" src="http://4.bp.blogspot.com/-4yl9cReK8Jc/T1Jl7O0-kaI/AAAAAAAAAJc/Jf9hMN_3lL4/s320/Hopf+algebra.png" width="320" /></a></div><br />Thus we can think of Hopf algebras as a generalisation of the group algebra. As we'll see (in future posts), there are Hopf algebras with rather more intricate coalgebra structures and antipodes than the group algebra.<br /><br />Here's a Haskell class for Hopf algebras:<br /><br /><pre><br /><br />class Bialgebra k b => HopfAlgebra k b where<br /><br /> antipode :: Vect k b -> Vect k b<br /><br /></pre><br />(A bialgebra is basically an algebra plus coalgebra - but with one more condition that I'll explain in a minute.)<br /><br />We've already seen the antipode for the group algebra, but here it is again in its proper home, as part of a Hopf algebra instance:<br /><br /><pre><br /><br />instance (Eq k, Num k) => HopfAlgebra k (Permutation Int) where<br /><br /> antipode = nf . fmap inverse<br /><br /></pre><br />And here's a quickCheck property:<br /><br /><pre><br /><br />prop_HopfAlgebra x =<br /><br /> (unit . counit) x == (mult . (antipode `tf` id) . comult) x &&<br /><br /> (unit . counit) x == (mult . (id `tf` antipode) . comult) x<br /><br /><br /><br />> quickCheck (prop_HopfAlgebra :: GroupAlgebra Q -> Bool)<br /><br />+++ OK, passed 100 tests.<br /><br /></pre><br />So there you have it. That's what a Hopf algebra is.<br /><br />Except that I've cheated slightly. What I've defined so far is actually only a weak Hopf algebra. There is one other condition that is needed, called the Hopf compatibility condition. This requires that the algebra and coalgebra structures are "compatible" in the following sense:<br />- counit and comult are algebra morphisms<br />- unit and mult are coalgebra morphisms<br /><br />I don't want to dwell too much on this. It seems a pretty reasonable requirement, although other compatibility conditions are possible (eg Frobenius algebras). An algebra plus coalgebra satisfying these conditions (even if it doesn't have an antipode) is called a bialgebra. And it turns out that the group algebra is one.<br /><code></code><br /><code>> quickCheck (prop_Bialgebra :: (Q, GroupAlgebra Q, GroupAlgebra Q) -> Bool)</code><br /><code>+++ OK, passed 100 tests.</code><br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com2tag:blogger.com,1999:blog-5195188167565410449.post-71685155592657586712012-02-10T21:23:00.000+00:002012-02-11T11:55:12.293+00:00Introducing the Group Algebra<br />Here's an interesting example of an <a href="http://haskellformaths.blogspot.com/2011/04/what-is-algebra.html">algebra</a>.<br /><br />Given a group, form the free vector space on the elements of the group. For example, if g and h are elements of the group, then the following are some elements of the free vector space:<br />- g + h<br />- 1 + 2*g<br />- 2 + g*h + h/3<br /><br />It's pretty obvious how to define an algebra structure on this vector space:<br />- the unit is 1, the identity element of the group<br />- the multiplication is the multiplication in the group, lifted to the vector space by linearity.<br /><br />So for example:<br />(1 + 2g)(g + h/3) = g + 2g^2 + h/3 + 2gh/3<br /><br />This is called the group algebra. (It's a special case of the monoid algebra construction that we looked at previously.) Given some particular field k and group G, it is usually written as kG.<br /><br /><br />How can we represent this in Haskell? Well in HaskellForMaths, we already have code for working in permutation groups, and code for forming free vector spaces. So it's fairly straightforward:<br /><br /><pre><br /><br />module Math.Algebras.GroupAlgebra where<br /><br /><br /><br />-- ... imports ...<br /><br /><br /><br />instance (Eq k, Num k) => Algebra k (Permutation Int) where<br /><br /> unit x = x *> return 1<br /><br /> mult = nf . fmap (\(g,h) -> g*h)<br /><br /><br /><br />type GroupAlgebra k = Vect k (Permutation Int)<br /><br /><br /><br />p :: [[Int]] -> GroupAlgebra Q<br /><br />p = return . fromCycles<br /><br /></pre><br />Then for example we can do the following:<br /><code></code><br /><code>$ cabal update</code><br /><code>$ cabal install HaskellForMaths</code><br /><code>$ ghci</code><br /><code>> :m Math.Core.Utils Math.Algebras.GroupAlgebra</code><br /><code>> (1 + p[[1,2,3],[4,5]])^2</code><br /><code>1+2[[1,2,3],[4,5]]+[[1,3,2]]</code><br /><br />(Actually, in HaskellForMaths <= 0.4.3, the first term will be shown as [] instead of 1. That's just a "bug" in the Show instance, which I have a fix for in the next release.)<br /><br />For reference, in a maths book, the same result would be written:<br />( 1 + (1 2 3)(4 5) )^2 = 1 + 2(1 2 3)(4 5) + (1 3 2)<br /><br /><br />So I guess one thing to point out is that in effect this code defines the group algebra for the group of all permutations of the integers. In practice however, we can always think of ourselves as working in some finite subgroup of this group. For example, if we want to work in the group of symmetries of a square, generated by a rotation (1 2 3 4) and a reflection (1 2)(3 4), then we just need to consider only sums of the eight elements in the generated group.<br /><br />Another thing to point out is that this code could easily be modified to allow permutations over an arbitrary type, since that is supported by the underlying permutation code.<br /><br /><br />So what is this group algebra then? What sort of thing is it, and how should one think about it?<br /><br />Well, first, as an algebra, it has zero divisors. For example:<br /><code></code><br /><code>> (1+p[[1,2]])*(1-p[[1,2]])</code><br /><code>0</code><br /><br />However, a lot of the elements aren't zero divisors, and whenever they're not, they have inverses. The group elements themselves have inverses of course, but so do many sums of group elements. For example:<br /><code></code><br /><code>> (1+p[[1,2,3]])^-1</code><br /><code>1/2-1/2[[1,2,3]]+1/2[[1,3,2]]</code><br /><code>> (1+2*p[[1,2,3]])^-1</code><br /><code>1/9-2/9[[1,2,3]]+4/9[[1,3,2]]</code><br /><br />Just to check:<br /><code></code><br /><code>> (1+p[[1,2,3]]) * (1-p[[1,2,3]]+p[[1,3,2]])</code><br /><code>2</code><br /><code>> (1+2*p[[1,2,3]]) * (1-2*p[[1,2,3]]+4*p[[1,3,2]])</code><br /><code>9</code><br /><br />How do we calculate the inverses? Well it's quite clever actually. Let's work through an example. Suppose we want to find an inverse for<br />x = 1+2*p[[1,2]]+3*p[[1,2,3]]<br />The inverse, if it exists, will be a linear combination of elements of the group generated by 1, p[[1,2]] and p[[1,2,3]]. So it will be a sum<br />y = a*1 + b*p[[1,2]] + c*p[[1,3]] + d*p[[2,3]] + e*p[[1,2,3]] + f*p[[1,3,2]]<br />By supposition x*y = 1, so<br />(1+2*p[[1,2]]+3*p[[1,2,3]]) * (a*1+b*p[[1,2]]+c*p[[1,3]]+d*p[[2,3]]+e*p[[1,2,3]]+f*p[[1,3,2]]) =<br />1 + 0*p[[1,2]] + 0*p[[1,3]] + 0*p[[2,3]] + 0*p[[1,2,3]] + 0*p[[1,3,2]]<br /><br />If we multiply out and equate coefficients, we will get a linear system in a,b,c,d,e,f. Something like:<br /><br /><pre><br /><br /> a+2b +3e = 1 (coefficients of 1)<br /><br />2a+ b+3c = 0 (coefficients of p[[1,2]])<br /><br /> c+3d+2e = 0 (coefficients of p[[1,3]])<br /><br /> 3b + d +2f = 0 (coefficients of p[[2,3]])<br /><br /></pre><br />etc<br /><br />So we just solve the linear system to find a,b,c,d,e,f.<br /><br />Here's the code:<br /><code></code><br /><pre><br /><br /><code>newtype X a = X a deriving (Eq,Ord,Show)</code><br /><br /><code><br /></code><br /><br /><code>instance HasInverses (GroupAlgebra Q) where</code><br /><br /><code> inverse x@(V ts) =</code><br /><br /><code> let gs = elts $ map fst ts -- all elements in the group generated by the terms</code><br /><br /><code> n = length gs</code><br /><br /><code> y = V $ zip gs $ map (glexvar . X) [1..n] -- x1*1+x2*g2+...+xn*gn</code><br /><br /><code> x' = V $ map (\(g,c) -> (g, unit c)) ts -- lift the coefficients in x into the polynomial algebra</code><br /><br /><code> one = x' * y</code><br /><br /><code> m = [ [coeff (mvar (X j)) c | j <- [1..n]] | i <- gs, let c = coeff i one] -- matrix of the linear system</code><br /><br /><code> b = 1 : replicate (n-1) 0</code><br /><br /><code> in case solveLinearSystem m b of -- find v such that m v == b</code><br /><br /><code> Just v -> nf $ V $ zip gs v</code><br /><br /><code> Nothing -> error "GroupAlgebra.inverse: not invertible"</code><br /><br /></pre><br />I won't explain it in detail. I'll just remark that this is one of the places where HaskellForMaths shows its power. We happen to have a type for polynomials lying around. They're a Num instance, so we can use them as the coefficients in GroupAlgebra k. We can create new variables x1, x2, ... (using glexvar . X), lift field elements into the polynomial algebra (using unit), multiply x and y in the group algebra, extract the coefficients into a matrix, and solve the linear system.<br /><br />I should point out that unfortunately, since this method involves solving a linear system in |G| variables, it's only going to be efficient for small groups.<br /><br /><br />So what is the group algebra useful for? Well actually quite a lot. It's fundamental to the study of representation theory - representing groups as matrices. It's also used for "Fourier analysis of groups" - though I don't know much about that. But those will have to wait for another time.<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com3tag:blogger.com,1999:blog-5195188167565410449.post-5902617747899127762011-11-12T21:24:00.001+00:002011-11-12T21:36:40.971+00:00New release of HaskellForMaths<br />I've just uploaded a new version v0.4.1 of <a href="http://hackage.haskell.org/package/HaskellForMaths">HaskellForMaths</a>, containing three new modules and a couple of other improvements. The additions are as follows:<br /><br /><b>Math.Algebras.Quaternions</b><br /><br />This module was already present: it defines the quaternion algebra on the basis {1,i,j,k}, where multiplication is defined by:<br />i^2 = j^2 = k^2 = ijk = -1<br /><br />This is enough information to figure out the full multiplication table. For example:<br />ijk = -1<br />=> (ijk)k = -k<br />=> ij(kk) = -k (associativity of multiplication)<br />=> ij = k<br />It turns out that the basis elements i,j,k anti-commute in pairs, eg ij = -ji, etc.<br /><br />In this release I've added a couple of new things.<br /><br />First, the quaternions are a division algebra, so I've added a Fractional instance.<br /><br />Specifically, we can define a conjugation operation on the quaternions (similar to complex conjugation) via<br />conj (w+xi+yj+zk) = w-xi-yj-zk<br />Then we can define a quadratic norm via<br />sqnorm q = q * conj q = w^2+x^2+y^2+z^2<br />Since the norm is always a scalar, we can define a multiplicative inverse by<br />q^-1 = conj q / sqnorm q<br /><br />For example:<br /><code></code><br /><code>$ cabal install HaskellForMaths</code><br /><code>$ ghci</code><br /><code>> :m Math.Algebras.Quaternions</code><br /><code>> (2*i+3*j)^-1 :: Quaternion Q</code><br /><code>-2/13i-3/13j</code><br /><br />(If you leave out the type annotation, you'll be working in Quaternion Double.)<br /><br />Second, the quaternions have an interesting role in 3- and 4-dimensional geometry.<br /><br />Given any non-zero quaternion q, the map x -> q^-1 x q turns out to be a rotation of the 3-dimensional space spanned by {i,j,k}. To multiply rotations together (ie do one then another), just multiply the quaternions. This turns out to be a better way to represent rotations than 3*3 matrices:<br />- It's more compact - four scalars rather than nine<br />- They're faster to multiply - 16 scalar multiplications versus 27<br />- It's more robust against rounding error - whatever quaternion you end up with will still represent a rotation, whereas a sequence of matrix multiplications of rotations might not be quite a rotation any more, due to rounding error.<br /><br />If you're curious, the function reprSO3 converts a quaternion to the corresponding 3*3 matrix:<br /><code></code><br /><code>> reprSO3 (1+2*i) :: [[Q]]</code><br /><code>[[1,0,0],[0,-3/5,-4/5],[0,4/5,-3/5]]</code><br /><br />(Exercise: Figure out why we got this matrix.)<br /><br />Quaternions can also be used to represent rotations of 4-dimensional space - see the documentation.<br /><br /><br /><b>Math.Algebras.Octonions</b><br /><br />This is a new module, providing an implementation of the 8-dimensional non-associative division algebra of octonions. I follow <a href="http://en.wikipedia.org/wiki/John_H._Conway">Conway</a>'s notation [1], so the octonions have basis {1,e0,e1,e2,e3,e4,e5,e6}, with multiplication defined by:<br />e<sub>i</sub> * e<sub>i</sub> = -1, for i in [0..6]<br />e<sub>i+1</sub> * e<sub>i+2</sub> = e<sub>i+4</sub>, where the indices are taken modulo 7.<br /><br />The octonions are not associative, but they are an <i>inverse loop</i>, so they satisfy x<sup>-1</sup>(xy) = y = (yx)x<sup>-1</sup>. This is enough to enable us to deduce the full multiplication table from the relations above.<br /><br />Like the quaternions, the octonions have conjugation and a norm, and multiplicative inverses:<br /><code></code><br /><code>> :l Math.Algebras.Octonions</code><br /><code>> (2+i0+2*i3)^-1</code><br /><code>2/9-1/9i0-2/9i3</code><br /><br />The octonions are an exceptional object in mathematics: there's nothing else quite like them. They can be used to construct various other exceptional objects, such as the root lattice E8, or the Lie group G2. Hopefully I'll be able to cover some of that stuff in a future installment.<br /><br />[1] Conway and Smith, On Quaternions and Octonions<br /><br /><br /><b>Math.NumberTheory.Prime</b><br /><br />The main function in this module is <code>isPrime :: Integer -> Bool</code>, which tells you whether a number is prime or not. It's implemented using the <a href="http://en.wikipedia.org/wiki/Miller-Rabin_primality_test">Miller-Rabin test</a>.<br /><br />The basic idea of the test is:<br />- If p is prime, then Zp is a field<br />- In a field, the equation x^2 = 1 has only two solutions, 1 and -1<br />- Given an arbitrary b coprime to p, we know from Fermat's little theorem that b^(p-1) = 1 (mod p)<br />- So if p-1 = q * 2^s, with q odd, then either b^q = 1 (mod p), or there is some r, 0 <= r < s with b^(q*2^r) = -1 (mod p)<br /><br />The idea of the algorithm is to try to show that p isn't prime by trying to find a b where the above is not true. We take several different values of b at random, and repeatedly square b^q, to see whether we get -1 or not.<br /><br />The advantage of the Miller-Rabin test, as compared to trial division say, is that it has a fast running time even for very large numbers. For example:<br /><code></code><br /><code>> :m Math.NumberTheory.Prime</code><br /><code>> :set +s</code><br /><code>> nextPrime $ 10^100</code><br /><code>10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000267</code><br /><code>(0.09 secs, 14904632 bytes)</code><br /><br />The potential disadvantage of the Miller-Rabin test is that it is probabilistic: There is a very small chance (1 in 10^15 in this implementation) that it could just fail to hit on a b which disproves n's primeness, so that it would say n is prime when it isn't. In practice, at those odds it's not worth worrying about.<br /><br /><br /><b>Math.NumberTheory.Factor</b><br /><br />The main function in this module is <code>pfactors :: Integer -> [Integer]</code>, which returns the prime factors of a number (with multiplicity). It uses trial division to try to find prime factors less than 10000. After that, it uses the elliptic curve method to try to split what remains. The elliptic curve method relies on some quite advanced maths, but the basic idea is this:<br />- If p is a prime, then Zp is a field<br />- Given a field, we can do "arithmetic on elliptic curves" over the field.<br />- So to factor n, pretend that n is prime, try doing arithmetic on elliptic curves, and wait till something goes wrong.<br />- It turns out that if we look at what went wrong, we can figure out a non-trivial factor of n<br /><br />Here it is in action:<br /><code></code><br /><code>> :m Math.NumberTheory.Factor</code><br /><code>> pfactors $ 10^30+5</code><br /><code>[3,5,4723,1399606163,10085210079364883]</code><br /><code>(0.55 secs, 210033624 bytes)</code><br /><code>> pfactors $ 10^30+6</code><br /><code>[2,7,3919,758405810021,24032284101871]</code><br /><code>(2.31 secs, 883504748 bytes)</code><br /><br />I love the way it can crunch through 12-digit prime factors with relative ease.<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com1tag:blogger.com,1999:blog-5195188167565410449.post-62143860642038474802011-09-18T19:22:00.000+01:002011-09-18T19:47:42.162+01:00Commutative Algebra and Algebraic Geometry<br /><a href="http://haskellformaths.blogspot.com/2011/09/commutative-algebra-in-haskell-part-1.html">Last time</a> we saw how to create variables for use in polynomial arithmetic. This time I want to look at some of the things we can do next.<br /><br />First, let's define the variables we are going to use:<br /><code></code><br /><code>> :l Math.CommutativeAlgebra.GroebnerBasis</code><br /><code>> let [t,u,v,x,y,z,x',y',z'] = map glexvar ["t","u","v","x","y","z","x'","y'","z'"]</code><br /><br /><br />So now we can do arithmetic in the polynomial ring Q[t,u,v,x,y,z,x',y',z']. For example:<br /><code></code><br /><code>> (x+y)^2</code><br /><code>x^2+2xy+y^2</code><br /><br /><br />The branch of mathematics dealing with the theory of polynomial rings is called commutative algebra, and it was "invented" mainly in support of algebraic geometry. Algebraic geometry is roughly the study of the curves, surfaces, etc that arise as the solution sets of polynomial equations. For example, the solution-set of the equation x^2+y^2=1 is the unit circle.<br /><br />If we are given any polynomial equation f = g, then we can rewrite it more conveniently as f-g = 0. In other words, we only need to track individual polynomials, rather than pairs of polynomials. Call the solution set of f = 0 the zero-set of f.<br /><br />Sometimes we're interested in the intersection of two or more curves, surfaces, etc. For example, it is well known that the hyperbola, parabola and ellipse all arise as "<a href="http://en.wikipedia.org/wiki/Conic_section">conic sections</a>" - that is, as the intersection of a cone with a plane. So define the zero-set of a collection (or system) of polynomials to be the set of points which are zeros of all the polynomials simultaneously. For example, the zero-set of the system [x^2+y^2-z^2, z-1] is the unit circle x^2+y^2=1 situated on the plane z=1.<br /><a href="http://4.bp.blogspot.com/-CAlvn5cb6tQ/TnY0LiVc9pI/AAAAAAAAAJM/q_9xJf3BVQk/s1600/Cone.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="307" src="http://4.bp.blogspot.com/-CAlvn5cb6tQ/TnY0LiVc9pI/AAAAAAAAAJM/q_9xJf3BVQk/s320/Cone.png" style="cursor: move;" width="320" /></a><br /><div class="separator" style="clear: both; text-align: center;"><br /></div>Okay, so how can commutative algebra help us to investigate curves and surfaces? Is there a way for us to "do geometry by doing algebra"? Well, first, what does "doing geometry" consist of? Well, at least some of the following:<br />- Looking at the shapes of curves and surfaces<br />- Looking at intersections, unions, differences and products of curves and surfaces<br />- Looking at when curves or surfaces can be mapped into or onto other curves or surfaces<br />- Looking at when two different curves or surfaces are equivalent, in some sense (for example, topologically equivalent)<br /><br />(That phrase "curves and surfaces" is not only clumsy but also inaccurate, so from now on I'll use the proper term, "variety", for the zero-set of a system of polynomials, whether it's a set of isolated points, a curve, a surface, some higher dimensional thing, or a combination of some of the preceding.)<br /><br />So can we do all those things using algebra? Well, let's have a go.<br /><br />Let's start by looking at intersections and unions of varieties (remember, that's just the fancy name for curves, surfaces, etc.).<br /><br />Well, we've already seen how to do intersections. If a variety V1 is defined by a system of polynomials [f1...fm], and a variety V2 is defined by [g1...gn], then their intersection is defined by the system [f1...fm,g1...gn] - the zero-set of both sets of polynomials simultaneously. We'll call this the "sum" of the systems of polynomials. (Note to the cognoscenti: yes, I'm really talking about ideals here.)<br /><code></code><br /><code>sumI fs gs = gb (fs ++ gs)</code><br /><br />Don't worry too much about what that "gb" (Groebner basis) call is doing. Let's just say that it's choosing the best way to represent the system of polynomials. For example:<br /><code></code><br /><code>> sumI [x^2+y^2-z^2] [z-1]</code><br /><code>[x^2+y^2-1,z-1]</code><br /><br /><br />Notice how the gb call has caused the first polynomial to be simplified slightly. The same variety might arise as the zero-set of many different systems of polynomials. That's something that we're going to need to look into - but later.<br /><br />Okay, so what about unions of varieties. So suppose V1 is defined by [f1...fm], V2 is defined by [g1...gn]. A point in their union is in either V1 or V2, so it is in the zero-set of either [f1...fm] or [g1...gn]. So how about multiplying the polynomials together in pairs. That is, let's look at the system [fi*gj | fi <- fs, gj <- gs]. Call the zero-set of this system V. Then clearly, any point in either V1 or V2 is in V, since we then know that either all the fs or all the gs vanish at that point, and hence so do all the products. Conversely, suppose that some point is not in the union of V1 and V2. Then there must exist some fi, and some gj, which are non-zero at that point. Hence there is an fi*gj which is non-zero, so the point is not in V.<br /><br />This construction is called, naturally enough, the product of the systems of polynomials.<br /><code></code><br /><code>productI fs gs = gb [f * g | f <- fs, g <- gs]</code><br /><code><br /></code><br /><code>> productI [x^2+y^2-z^2] [z-1]</code><br /><code>[x^2z+y^2z-z^3-x^2-y^2+z^2]</code><br /><br /><br />Just in case you're still a little unsure, let's confirm that a few arbitrary points in the union are in the zero-set of this polynomial:<br /><code></code><br /><code>> eval (x^2*z+y^2*z-z^3-x^2-y^2+z^2) [(x,100),(y,-100),(z,1)]</code><br /><code>0</code><br /><code>> eval (x^2*z+y^2*z-z^3-x^2-y^2+z^2) [(x,3),(y,4),(z,5)]</code><br /><code>0</code><br /><br /><br />The first expression evaluates the polynomial at the point (100,-100,1), an arbitrary point on the plane z=1. The second evaluates at (3,4,5), an arbitrary point on the cone x^2+y^2=z^2. Both points are in the zero-set of our product polynomial.<br /><br />Since we're in the neighbourhood, let's have a look at the other conic sections. First, let's rotate our coordinate system by 45 degrees, using the substitution x'=x+z, z'=z-x. (Okay, so this also scales - to save us having to handle a sqrt 2 factor.)<br /><br /><a href="http://2.bp.blogspot.com/-xAPGN0iKaFo/TnY0PhuiXeI/AAAAAAAAAJQ/GdXKnNFDlHw/s1600/Cone+rotated.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="http://2.bp.blogspot.com/-xAPGN0iKaFo/TnY0PhuiXeI/AAAAAAAAAJQ/GdXKnNFDlHw/s320/Cone+rotated.png" style="cursor: move;" width="320" /></a><br /><code></code><br /><code>> let cone' = subst (x^2+y^2-z^2) [(x,(x'-z')/2),(y,y'),(z,(x'+z')/2)]</code><br /><code>> cone'</code><br /><code>-x'z'+y'^2</code><br /><br /><br />In these coordinates, the intersection of the cone with the plane z'=1 is the parabola x'=y'^2:<br /><code></code><br /><code>> sumI [cone'] [z'-1]</code><br /><code>[y'^2-x',z'-1]</code><br /><br /><br />Alternatively, the intersection with the plane y'=1 is the hyperbola x'z'=1:<br /><code></code><br /><code>> sumI [cone'] [y'-1]</code><br /><code>[x'z'-1,y'-1]</code><br /><br /><br />Okay, so we've made a start on seeing how to do geometry by doing algebra, by looking at unions and intersections of varieties. There's still plenty more to do. We mustn't forget that we have some unfinished business: we need to understand when different polynomial systems can define the same variety, and in what sense the gb (Groebner basis) function finds the "best" representation. That will have to wait for another time.<br /><br />Incidentally, for the eval and subst functions that I used above, you will need to take the new release <a href="http://hackage.haskell.org/package/HaskellForMaths">HaskellForMaths v0.4.0</a>. In this release I also removed the older commutative algebra modules, so I revved the minor version number.<br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-55614950383592706862011-09-04T21:11:00.000+01:002011-09-04T21:11:32.677+01:00Commutative Algebra in Haskell, part 1<br />Once again, it's been a little while since my last post, and once again, my excuse is partly that I've been too busy writing code.<br /><br />I've just uploaded a new release, <a href="http://hackage.haskell.org/package/HaskellForMaths">HaskellForMaths 0.3.4</a>, which contains the following new modules:<br /><br /><b>Math.Core.Utils</b> - this is a collection of utility functions used throughout the rest of the library. I've belatedly decided that it's better to put them all in one place rather than scattered here and there throughout other modules.<br /><br /><b>Math.Core.Field</b> - this provides new, more efficient implementations of several finite fields. There already were implementations of these finite fields, in the Math.Algebra.Field.Base and ...Extension modules, as discussed <a href="http://haskellformaths.blogspot.com/2009/08/finite-fields-part-1.html">here</a> and <a href="http://haskellformaths.blogspot.com/2009/09/finite-fields-part-2.html">here</a>. However, that code was written to make the maths clear, rather than for speed. This new module is about speed. For the prime power fields in particular (eg F4, F8, F9), these implementations are significantly faster.<br /><br /><b>Math.Combinatorics.Matroid</b> - Matroids are a kind of combinatorial abstraction of the concept of linear independence. They're something that I heard about years ago - both of my favourite combinatorics books have brief introductions - but I never bothered to follow up. Well anyway, so something finally piqued my curiosity, and I got Oxley's Matroid Theory. It turned out to be really interesting stuff, and this module is pretty much a translation of a large part of that book into Haskell code, written as I taught myself all about matroids.<br /><br /><b>Math.CommutativeAlgebra.Polynomial</b> - Although I hadn't yet got around to discussing them in the blog, HaskellForMaths has always had modules for working with multivariate polynomials, namely Math.Algebra.Commutative.Monomial and ...MPoly. However, these were some of the earliest code I wrote, before my more recent free vector space and algebra code. So I saw an opportunity to simplify and improve this code, by building it on top of the free vector space code. Also, I'm trying to rationalise the module naming convention in HaskellForMaths, to more closely follow the categories used in <a href="http://arxiv.org/archive/math">arxiv.org</a> or <a href="http://mathoverflow.net/tags">mathoverflow.net</a> . In the long run, I expect this module to supercede the older modules.<br /><br /><b>Math.CommutativeAlgebra.GroebnerBasis</b> - Again, there was already code for Groebner bases in Math.Algebra.Commutative.GBasis. This is pretty much the same code, ported to the new polynomial implementation, but I've also begun to build on this, with code to find the sum, product, intersection, and quotient of ideals.<br /><br /><br />So the matroid code was just new code that I wrote while teaching myself some new maths. But most of the other code comes from an ambition to organise and simplify the HaskellForMaths library. I've also been trying to improve the documentation.<br /><br />My ultimate ambition is to get more people using the library. To do that, the structure of the library needs to be clearer, the documentation needs to be better, and I need to explain how to use it. So I thought I'd start by explaining how to use the new commutative algebra modules.<br /><br />(So this is a bit of a digression from the series on quantum algebra that I've been doing the last few months. However, in terms of the cumulative nature of maths, it's probably better to do this first.)<br /><br /><br />Okay, so suppose we want to do some polynomial arithmetic. Well, first we need to create some variables to work with. How do we do that?<br /><br />First, decide on a monomial ordering - that is, we need to decide in what order monomials are to be listed within a polynomial. For the moment, let's use "graded lexicographic" or Glex order. This says that you should put monomials of higher degree before those of lower degree (eg y^3 before x^2), and if two monomials have the same degree, you should use lexicographic (dictionary) order (eg xyz before y^3).<br /><br />Next, decide on a field to work over. Most often, we'll want to work over Q, the rationals.<br /><br />Then, our variables themselves can be of any Haskell type - but there are usually only two sensible choices:<br /><br />The easiest way is to use String as the type for our variables.<br /><br />Then we could make some variables like this:<br /><code></code><br /><code>> :l Math.CommutativeAlgebra.Polynomial</code><br /><code>> let [x,y,z] = map glexvar ["x","y","z"]</code><br /><br />And then we can do polynomial arithmetic:<br /><code></code><br /><code>> (x+y+z)^3</code><br /><code>x^3+3x^2y+3x^2z+3xy^2+6xyz+3xz^2+y^3+3y^2z+3yz^2+z^3</code><br /><br /><br />If we want to use any other field besides Q, then we will have to use a type annotation to tell the compiler which field we're working over:<br /><code></code><br /><code>> let [x,y,z] = map var ["x","y","z"] :: [GlexPoly F3 String]</code><br /><code>> (x+y+z)^3</code><br /><code>x^3+y^3+z^3</code><br /><br /><br />The alternative to using String for our variables is to define our own type. For example<br /><br /><pre><br /><br />data Var = X | Y | Z | W deriving (Eq,Ord)<br /><br /><br /><br />instance Show Var where<br /><br /> show X = "x"<br /><br /> show Y = "y"<br /><br /> show Z = "z"<br /><br /> show W = "w"<br /><br /><br /><br />[x,y,z,w] = map glexvar [X,Y,Z,W]<br /><br /></pre><br /><br />So there you have it - now you can do polynomial arithmetic in Haskell.<br /><br />So how does it work?<br /><br />Well, fundamentally, k-polynomials are a free k-vector space on the basis of monomials. So we define a type to implement monomials:<br /><br /><pre><br /><br />data MonImpl v = M Int [(v,Int)] deriving (Eq)<br /><br />-- The initial Int is the degree of the monomial. Storing it speeds up equality tests and comparisons<br /><br /><br /><br />instance Show v => Show (MonImpl v) where<br /><br /> show (M _ []) = "1"<br /><br /> show (M _ xis) = concatMap (\(x,i) -> if i==1 then showVar x else showVar x ++ "^" ++ show i) xis<br /><br /> where showVar x = filter ( /= '"' ) (show x) -- in case v == String<br /><br /></pre><br />Notice that our monomial implementation is polymorphic in v, the type of the variables.<br /><br />Next, monomials form a monoid, so we make them an instance of Mon (the HaskellForMaths class for monoids):<br /><br /><pre><br /><br />instance (Ord v) => Mon (MonImpl v) where<br /><br /> munit = M 0 []<br /><br /> mmult (M si xis) (M sj yjs) = M (si+sj) $ addmerge xis yjs<br /><br /></pre><br />In principle, all we need to do now is define an Ord instance, and then an Algebra instance, using the monoid algebra construction.<br /><br />However, for reasons that will become clear in future postings, we want to be able to work with various different orderings on monomials, such as Lex, Glex, or Grevlex. So we provide various newtype wrappers around this basic monomial implementation. Here's the code for the Glex ordering that we used above:<br /><br /><pre><br /><br />newtype Glex v = Glex (MonImpl v) deriving (Eq, Mon) -- GeneralizedNewtypeDeriving<br /><br /><br /><br />instance Show v => Show (Glex v) where<br /><br /> show (Glex m) = show m<br /><br /><br /><br />instance Ord v => Ord (Glex v) where<br /><br /> compare (Glex (M si xis)) (Glex (M sj yjs)) =<br /><br /> compare (-si, [(x,-i) | (x,i) <- xis]) (-sj, [(y,-j) | (y,j) <- yjs])<br /><br /><br /><br />type GlexPoly k v = Vect k (Glex v)<br /><br /><br /><br />glexvar :: v -> GlexPoly Q v<br /><br />glexvar v = return $ Glex $ M 1 [(v,1)]<br /><br /><br /><br />instance (Num k, Ord v, Show v) => Algebra k (Glex v) where<br /><br /> unit x = x *> return munit<br /><br /> mult xy = nf $ fmap (\(a,b) -> a `mmult` b) xy<br /><br /></pre><br />We also have similar newtypes for Lex and Grevlex orderings, which I'll discuss another time.<br /><br />And that's pretty much it. Now that we have an instance of Algebra k (Glex v), we get a Num instance for free, so we get +, -, *, and fromInteger. That means we can enter expressions like the following:<br /><code></code><br /><code>> (2*x^2-y*z)^2</code><br /><code>4x^4-4x^2yz+y^2z^2</code><br /><br />Note that division is not supported: you can't write x/y, for example. However, as a convenience, I have defined a partial instance of Fractional, which does let you divide by scalars. That means that it's okay to write x/2, for example.<br /><br />Next time, some more things you can do with commutative algebra.<br /><br />DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com5tag:blogger.com,1999:blog-5195188167565410449.post-56538737794266097232011-07-10T20:09:00.001+01:002011-07-11T20:44:42.937+01:00The Tensor Algebra MonadIt's been a little while since my last post. That's partly because I've been busy writing new code. I've put up a new release, <a href="http://hackage.haskell.org/package/HaskellForMaths">HaskellForMaths</a> 0.3.3, which contains three new modules:<br />- Math.Combinatorics.Digraph<br />- Math.Combinatorics.Poset<br />- Math.Combinatorics.IncidenceAlgebra<br /><br />I'll go through their contents at some point, but this time I want to talk about the tensor algebra.<br /><br />So recall that previously we defined the <a href="http://haskellformaths.blogspot.com/2010/12/free-vector-space-on-type-part-1.html">free vector space over a type</a>, <a href="http://haskellformaths.blogspot.com/2011/02/tensor-products-of-vector-spaces-part-1.html">tensor products</a>, <a href="http://haskellformaths.blogspot.com/2011/04/what-is-algebra.html">algebras</a> and <a href="http://haskellformaths.blogspot.com/2011/04/what-is-coalgebra.html">coalgebras</a> in Haskell code.<br /><br />In HaskellForMaths, we always work with the free vector space over a type: that means, we take some type b as a basis, and form k-linear combinations of elements of b. This construction is represented by the type Vect k b.<br /><br />Given two vector spaces A = Vect k a, B = Vect k b, we can form their tensor product A⊗B = Vect k (Tensor a b). So Tensor is a type constructor on basis types, which takes basis types a, b for vector spaces A, B, and returns a basis type for the tensor product A⊗B.<br /><br />We also defined a type constructor DSum, which returns a basis type for the direct sum A⊕B.<br /><br />Now, we saw that tensor product is a monoid (at the type level, up to isomorphism):<br />- it is associative: (A⊗B)⊗C is isomorphic to A⊗(B⊗C)<br />- it has a unit: the field k itself is an identity for tensor product, in the sense that k⊗A is isomorphic to A, is isomorphic to A⊗k<br /><br />Given some specific vector space V, we can consider the tensor powers of V:<br />k, V, V⊗V, V⊗V⊗V, ...<br />(We can omit brackets in V⊗V⊗V because tensor product is associative.)<br /><br />And indeed we can form their direct sum:<br />T(V) = k ⊕ V ⊕ V⊗V ⊕ V⊗V⊗V ⊕ ...<br />(where an element of T(V) is understood to be a <i>finite</i> sum of elements of the tensor powers.)<br /><br />This is a vector space, since tensor products and direct sums are vector spaces. If V has a basis e1,e2,e3,..., then a typical element of T(V) might be something like 3 + 5e2 + 2e1⊗e3⊗e1.<br /><br />Now the interesting thing is that T(V) can be given the structure of an algebra, as follows:<br />- for the unit, we use the injection of k into the first direct summand<br />- for the mult, we use tensor product<br /><br />For example, we would have<br />e2 * (2 + 3e1 + e4⊗e2) = 2e2 + 3e2⊗e1 + e2⊗e4⊗e2<br /><br />With this algebra structure, T(V) is called the tensor algebra.<br /><br /><br />So how should we represent the tensor algebra in HaskellForMaths? Suppose that V is the free vector space Vect k a over some basis type a. (Recall also that the field k itself can be represented as the free vector space Vect k () over the unit type.) Can we use the DSum and Tensor type constructors to build the tensor algebra? Something like:<br />Vect k (DSum () (DSum a (DSum (Tensor a a) (DSum ...))))<br /><br />Hmm, that's not going to work - we can't build the whole of what we want that way. (Unless some type system wizard knows otherwise?) So instead of representing the direct sum and tensor product at the type level, we're going to have to do it at the value level. Here's the definition:<br /><code></code><br /><code>data TensorAlgebra a = TA Int [a] deriving (Eq,Ord)</code><br /><br />Given the free vector space V = Vect k a over basis type a, then TensorAlgebra a is the basis type for the tensor algebra over a, so that Vect k (TensorAlgebra a) is the tensor algebra T(V). The Int in TA Int [a] tells us which direct summand we're in (ie which tensor power), and the [a] tells us the tensor multiplicands. So for example, e2⊗e1⊗e4 would be represented as TA 3 [e2,e1,e4]. Then Vect k (TensorAlgebra a) consists of k-linear combinations of these basis elements, so it is the vector space T(V) that we are after.<br /><br />Here's a Show instance:<br /><code></code><br /><code></code><br /><code><pre>instance Show a => Show (TensorAlgebra a) where<br /> show (TA _ []) = "1"<br /> show (TA _ xs) = filter (/= '"') $ concat $ L.intersperse "*" $ map show xs<br /></pre></code><br />It will be helpful to have a vector space basis to work with, so here's one that we used previously:<br /><code></code><br /><code>newtype EBasis = E Int deriving (Eq,Ord)<br /><br />instance Show EBasis where show (E i) = "e" ++ show i</code><br /><br />Then, for example, our Show instance gives us:<br /><code></code><br /><code>> :l Math.Algebras.TensorAlgebra<br />> return (TA 0 []) <+> return (TA 2 [E 1, E 3])<br />1+e1*e3</code><br /><br />(Recall that the free vector space is a monad, hence our use of return to put a basis element into the vector space.)<br /><br />So note that in the show output, the "*" is meant to represent tensor product, so this is really 1+e1⊗e3. You can actually get Haskell to output the tensor product symbol - just replace "*" by "\x2297" in the definition of show - however I found that it didn't look too good in the Mac OS X terminal, and I wasn't sure it would work on all OSes.<br /><br />Ok, how about an Algebra instance? Well, TensorAlgebra a is basically just a slightly frilly version of [a], so it's a monoid, and we can use the monoid algebra construction:<br /><code></code><br /><code></code><br /><code><pre>instance Mon (TensorAlgebra a) where<br /> munit = TA 0 []<br /> mmult (TA i xs) (TA j ys) = TA (i+j) (xs++ys)<br /><br />instance (Num k, Ord a) => Algebra k (TensorAlgebra a) where<br /> unit x = x *> return munit<br /> mult = nf . fmap (\(a,b) -> a `mmult` b)<br /></pre></code><br />So now we can do arithmetic in the tensor algebra:<br /><code></code><br /><code>> let e_ i = return (TA 1 [E i]) :: Vect Q (TensorAlgebra EBasis)<br />> let e1 = e_ 1; e2 = e_ 2; e3 = e_ 3; e4 = e_ 4<br />> (e1+e2) * (1+e3*e4)<br />e1+e2+e1*e3*e4+e2*e3*e4</code><br /><br />We've got into the habit of using QuickCheck to check algebraic properties. Let's just check that the tensor algebra, as we've defined it, is an algebra:<br /><code></code><br /><code></code><br /><code><pre>instance Arbitrary b => Arbitrary (TensorAlgebra b) where<br /> arbitrary = do xs <- listOf arbitrary :: Gen [b] -- ScopedTypeVariables<br /> let d = length xs<br /> return (TA d xs)<br /><br />prop_Algebra_TensorAlgebra (k,x,y,z) = prop_Algebra (k,x,y,z)<br /> where types = (k,x,y,z) :: ( Q, Vect Q (TensorAlgebra EBasis), Vect Q (TensorAlgebra EBasis), Vect Q (TensorAlgebra EBasis) )<br /><br />> quickCheck prop_Algebra_TensorAlgebra<br />+++ OK, passed 100 tests.<br /><div style="margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px;"></div></pre></code><br /><br /><br />Ok, so what's so special about the tensor algebra? Well, it has a rather nice universal property:<br />Suppose A = Vect k a, B = Vect k b are vector spaces, and we have a linear map f : A -> B. Suppose that B is also an algebra. Then we can "lift" f to an algebra morphism f' : T(A) -> B, such that the following diagram commutes.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-dlk7g918R0Q/ThnzbgKU8DI/AAAAAAAAAJI/xFtMQ87Eftk/s1600/TensorAlgebra_UniversalProperty.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="219" src="http://1.bp.blogspot.com/-dlk7g918R0Q/ThnzbgKU8DI/AAAAAAAAAJI/xFtMQ87Eftk/s320/TensorAlgebra_UniversalProperty.png" width="320" /></a></div><br />In other words, f' agrees with f on the copy of A within T(A): f = f' . i<br /><br />Ah, but hold on, I didn't say what an algebra morphism is. Well, it's just the usual: a function which "commutes" with the algebra structure. Specifically, it's a linear map (so that it commutes with the vector space structure), which makes the following diagrams commute:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/-Z6NwSUqB0YQ/ThnzZascvMI/AAAAAAAAAI4/xBSU1R2tgok/s1600/Algebra_morphism.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="112" src="http://2.bp.blogspot.com/-Z6NwSUqB0YQ/ThnzZascvMI/AAAAAAAAAI4/xBSU1R2tgok/s320/Algebra_morphism.png" width="320" /></a></div><br />So how does this universal property work then? Here's the code:<br /><code></code><br /><code></code><br /><code><pre>injectTA :: Num k => Vect k a -> Vect k (TensorAlgebra a)<br />injectTA = fmap (\a -> TA 1 [a])<br /><br />liftTA :: (Num k, Ord b, Show b, Algebra k b) =><br /> (Vect k a -> Vect k b) -> Vect k (TensorAlgebra a) -> Vect k b<br />liftTA f = linear (\(TA _ xs) -> product [f (return x) | x <- xs])<br /></pre></code><br />In other words, any tensor product u⊗v⊗... is sent to f(u)*f(v)*...<br /><br />Let's look at an example. Recall that the quaternion algebra H has the basis {1,i,j,k}, with i^2 = j^2 = k^2 = ijk = -1.<br /><code></code><br /><code>> let f = linear (\(E n) -> case n of 1 -> 1+i; 2 -> 1-i; 3 -> j+k; 4 -> j-k; _ -> zerov)<br />> let f' = liftTA f<br />> e1*e2<br />e1*e2<br />> f' (e1*e2)<br />2</code><br /><br />Recall that we usually define a linear map by linear extension from its action on a basis - that's what the "linear" is doing in the definition of f. It's fairly clear what f' is doing: it's basically just variable substitution. That is, we can consider the basis elements ei as variables, and the tensor algebra as the algebra of non-commutative polynomials in the ei. Then the linear map f assigns a substitution to each basis element, and f' just substitutes and multiplies out in the target algebra. In this case, we have:<br />e1⊗e2 -> (1+i)*(1-i) = 1-i^2 = 2<br /><br />We can use QuickCheck to verify that liftTA f is indeed the algebra morphism required by the universal property. Here's a QuickCheck property for an algebra morphism. (We don't bother to check that f is a linear map, since it's almost always clear from the definition. If in doubt, we can test that separately.)<br /><code></code><br /><code></code><br /><code><pre>prop_AlgebraMorphism f (k,x,y) =<br /> (f . unit) k == unit k &&<br /> (f . mult) (x `te` y) == (mult . (f `tf` f)) (x `te` y)<br /></pre></code><br />This is just a transcription of the diagrams into code.<br /><br />In order to test the universal property, we have to check that liftTA f is an algebra morphism, and that it agrees with f on (the copy of) V (in T(V)):<br /><code></code><br /><code></code><br /><code><pre>prop_TensorAlgebra_UniversalProperty (fmatrix,(k,x,y),z) =<br /> prop_AlgebraMorphism f' (k,x,y) &&<br /> (f' . injectTA) z == f z<br /> where f = linfun fmatrix<br /> f' = liftTA f<br /> types = (fmatrix,(k,x,y),z) :: (LinFun Q EBasis HBasis,<br /> (Q,Vect Q (TensorAlgebra EBasis), Vect Q (TensorAlgebra EBasis)),<br /> Vect Q EBasis)<br /></pre></code><br />So the key to this code is the parameter fmatrix, which is an arbitrary (sparse) matrix from Q^n to H, the quaternions, from which we build an arbitrary linear function. Note that the universal property of course implies that we can choose any algebra as the target for f - I just chose the quaternions because they're familiar.<br /><code></code><br /><code>> quickCheck prop_TensorAlgebra_UniversalProperty<br />+++ OK, passed 100 tests.</code><br /><br />With this construction, tensor algebra is in fact a functor from <b>k-Vect</b> to <b>k-Alg</b>. The action on objects is V -> T(V), Vect k a -> Vect k (TensorAlgebra a). But a functor also acts on the arrows of the source category.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/-UW1BR5IoBxE/ThnzawK-IWI/AAAAAAAAAJA/V3ihVlsxr2s/s1600/TensorAlgebra_Functor.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="217" src="http://2.bp.blogspot.com/-UW1BR5IoBxE/ThnzawK-IWI/AAAAAAAAAJA/V3ihVlsxr2s/s320/TensorAlgebra_Functor.png" width="320" /></a></div><br />How do we get an action on arrows? Well, we can use the universal property to construct one. If we have an arrow f: A -> B, then (injectTA . f) is an arrow A -> T(B). Then we use the universal property to lift to an arrow f': T(A) -> T(B).<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-ydt_A6xCfzM/ThnzbW516TI/AAAAAAAAAJE/Sm4fYC8PxT8/s1600/TensorAlgebra_FunctorDerivation.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="221" src="http://1.bp.blogspot.com/-ydt_A6xCfzM/ThnzbW516TI/AAAAAAAAAJE/Sm4fYC8PxT8/s320/TensorAlgebra_FunctorDerivation.png" width="320" /></a></div><br />Here's the code:<br /><code></code><br /><code></code><br /><code><pre>fmapTA :: (Num k, Ord b, Show b) =><br /> (Vect k a -> Vect k b) -> Vect k (TensorAlgebra a) -> Vect k (TensorAlgebra b)<br />fmapTA f = liftTA (injectTA . f)<br /></pre></code><br />For example:<br /><code></code><br /><code></code><br /><code><pre>newtype ABasis = A Int deriving (Eq,Ord,Show)<br />newtype BBasis = B Int deriving (Eq,Ord,Show)<br /><br />> let f = linear (\(A i) -> case i of 1 -> return (B 1) <+> return (B 2);<br /> 2 -> return (B 3) <+> return (B 4);<br /> _ -> zerov :: Vect Q BBasis)<br />> let f' = fmapTA f<br />> return (TA 2 [A 1, A 2]) :: Vect Q (TensorAlgebra ABasis)<br />A 1*A 2<br />> f' it<br />B 1*B 3+B 1*B 4+B 2*B 3+B 2*B 4<br /></pre></code><br />So this is variable substitution again. In this case, as f is just a linear map between vector spaces, we can think of it as something like a change of basis of the underlying space. Then f' shows us how the (non-commutative) polynomials defined over the space transform under the change of basis.<br /><br />Let's just verify that this is a functor. We have to show:<br />- That fmapTA f is an algebra morphism (ie it is an arrow in <b>k-Alg</b>)<br />- That fmapTA commutes with the category structure, ie fmapTA id = id, and fmapTA (g . f) = fmapTA g . fmapTA f.<br /><br />Here's a QuickCheck property:<br /><code></code><br /><code></code><br /><code><pre>prop_Functor_Vect_TensorAlgebra (f,g,k,x,y) =<br /> prop_AlgebraMorphism (fmapTA f') (k,x,y) &&<br /> (fmapTA id) x == id x &&<br /> fmapTA (g' . f') x == (fmapTA g' . fmapTA f') x<br /> where f' = linfun f<br /> g' = linfun g<br /> types = (f,g,k,x,y) :: (LinFun Q ABasis BBasis, LinFun Q BBasis CBasis,<br /> Q, Vect Q (TensorAlgebra ABasis), Vect Q (TensorAlgebra ABasis) )<br /><br />> quickCheck prop_Functor_Vect_TensorAlgebra<br />+++ OK, passed 100 tests.<br /></pre></code><br />So can we declare a Functor instance? Well no, actually. Haskell only allows us to declare type constructors as Functor instances, whereas what we would want to do is declare the type function (\Vect k a -> Vect k (TensorAlgebra a)) as a Functor, which isn't allowed.<br /><br /><br />Ok, so we have a functor T: <b>k-Vect</b> -> <b>k-Alg</b>, the tensor algebra functor. We also have a forgetful functor going the other way, <b>k-Alg</b> -> <b>k-Vect</b>, which consists in taking an algebra, and simply forgetting that it is an algebra, and seeing only the vector space structure. (As it does at least remember the vector space structure, perhaps we should call this a semi-forgetful, or merely absent-minded functor.)<br /><br />The cognoscenti will no doubt have seen what is coming next: we have an adjunction, and hence a monad.<br /><br />How so? Well, it's obvious from its type signature that injectTA is return. For (>>=) / bind, we can define the following:<br /><code></code><br /><code></code><br /><code><pre>bindTA :: (Num k, Ord b, Show b) =><br /> Vect k (TensorAlgebra a) -> (Vect k a -> Vect k (TensorAlgebra b)) -> Vect k (TensorAlgebra b)<br />bindTA = flip liftTA<br /></pre></code><br />Note that in addition to flipping the arguments, bindTA also imposes a more restrictive signature than liftTA: the target algebra is constrained to be a tensor algebra.<br /><code></code><br /><code></code><br /><code><pre>> let f = linear (\(A i) -> case i of 1 -> return (TA 2 [B 1, B 2]);<br /> 2 -> return (TA 1 [B 3]) + return (TA 1 [B 4]);<br /> _ -> zerov :: Vect Q (TensorAlgebra BBasis))<br />> return (TA 2 [A 1, A 2]) `bindTA` f<br />B 1*B 2*B 3+B 1*B 2*B 4<br /></pre></code><br />So the effect of bind is to feed a non-commutative polynomial through a variable substitution.<br /><br /><br />Monads are meant to satisfy the following <a href="http://www.haskell.org/haskellwiki/Monad_Laws">monad laws</a>:<br />- "Left identity": return a >>= f == f a<br />- "Right identity": m >>= return == m<br />- "Associativity": (m >>= f) >>= g == m >>= (\x -> f x >>= g)<br /><br />As usual, we write a QuickCheck property:<br /><code></code><br /><code></code><br /><code><pre>prop_Monad_Vect_TensorAlgebra (fmatrix,gmatrix,a,ta)=<br /> injectTA a `bindTA` f == f a && -- left identity<br /> ta `bindTA` injectTA == ta && -- right identity<br /> (ta `bindTA` f) `bindTA` g == ta `bindTA` (\a -> f a `bindTA` g) -- associativity<br /> where f = linfun fmatrix<br /> g = linfun gmatrix<br /> types = (fmatrix,gmatrix,a,ta) :: (LinFun Q ABasis (TensorAlgebra BBasis),<br /> LinFun Q BBasis (TensorAlgebra CBasis),<br /> Vect Q ABasis, Vect Q (TensorAlgebra ABasis) )<br /><br />> quickCheck prop_Monad_Vect_TensorAlgebra<br />+++ OK, passed 100 tests.<br /></pre></code><br />Once again, we can't actually declare a Monad instance, because our type function (\Vect k a -> Vect k (TensorAlgebra a)) is not a type constructor.<br /><br /><br />So, we have a functor, and indeed a monad, T: <b>k-Vect</b> -> <b>k-Alg</b>. Now recall that the free vector space construction (\a -> Vect k a) was itself a functor, indeed a monad, from <b>Set</b> -> <b>k-Vect</b>. What happens if we compose these two functors? Why then of course we get a functor, and a monad, from <b>Set</b> -> <b>k-Alg</b>. In Haskell terms, this is a functor a -> Vect k (TensorAlgebra a).<br /><br />What does this functor look like? Well, relative to a, Vect k (TensorAlgebra a) is the <i>free algebra</i> on a, consisting of all expressions in which the elements of k and the elements of a are combined using (commutative) addition and (non-commutative) multiplication. In other words, the elements of a can be thought of as variable symbols, and Vect k (TensorAlgebra a) as the algebra of non-commutative polynomials in these variables.<br /><br />Here's the code:<br /><code></code><br /><code></code><br /><code><pre>injectTA' :: Num k => a -> Vect k (TensorAlgebra a)<br />injectTA' = injectTA . return<br /><br />liftTA' :: (Num k, Ord b, Show b, Algebra k b) =><br /> (a -> Vect k b) -> Vect k (TensorAlgebra a) -> Vect k b<br />liftTA' = liftTA . linear<br /><br />fmapTA' :: (Num k, Ord b, Show b) =><br /> (a -> b) -> Vect k (TensorAlgebra a) -> Vect k (TensorAlgebra b)<br />fmapTA' = fmapTA . fmap<br /><br />bindTA' :: (Num k, Ord b, Show b) =><br /> Vect k (TensorAlgebra a) -> (a -> Vect k (TensorAlgebra b)) -> Vect k (TensorAlgebra b)<br />bindTA' = flip liftTA'<br /></pre></code><br />The only one of these which might require a little explanation is liftTA'. This works by applying a universal property twice, as shown by the diagram below: first, the universal property of free vector spaces is used to lift a function a -> Vect k (TensorAlgebra b) to a function Vect k a -> Vect k (TensorAlgebra b); then the universal property of the tensor algebra is used to lift that to a function Vect k (TensorAlgebra a) -> Vect k (TensorAlgebra b).<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-qJkxa70qXsk/ThnzaJagvtI/AAAAAAAAAI8/jE0_1VIqZCo/s1600/FreeAlgebra_LiftDerivation.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="90" src="http://1.bp.blogspot.com/-qJkxa70qXsk/ThnzaJagvtI/AAAAAAAAAI8/jE0_1VIqZCo/s320/FreeAlgebra_LiftDerivation.png" width="320" /></a></div><br />Here's an example, which shows that in the free algebra as in the tensor algebra, bind corresponds to variable substitution:<br /><code></code><br /><code>> let [t,x,y,z] = map injectTA' ["t","x","y","z"] :: [Vect Q (TensorAlgebra String)]<br />> let f "x" = 1-t^2; f "y" = 2*t; f "z" = 1+t^2<br />> (x^2+y^2-z^2) `bindTA'` f<br />0</code><br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-58120470002389970182011-04-23T21:48:00.000+01:002011-04-23T21:48:45.624+01:00What is a Coalgebra?<a href="http://haskellformaths.blogspot.com/2011/04/what-is-algebra.html">Last time</a> we saw how to define an algebra structure on a vector space, in terms of category theory. I think perhaps some readers wondered what we gained by using category theory. The answer may be: not much, yet. However, in due course, we would like to understand the connection between quantum algebra and knot theory, and for that, category theory is essential.<br /><br />This week, I want to look at coalgebras. We already saw, in the case of <a href="http://haskellformaths.blogspot.com/2011/02/products-of-lists-and-vector-spaces.html">products and coproducts</a>, how given a structure in category theory, you can define a dual structure by reversing the directions of all the arrows. So it is with algebras and coalgebras.<br /><br />Recall that an algebra consisted of a k-vector space A together with linear functions<br />unit :: k -> A<br />mult :: A⊗A -> A<br />satisfying two commutative diagrams, associativity and unit.<br /><br />Well, a coalgebra consists of a k-vector space C together with two linear functions:<br />counit :: C -> k<br />comult :: C -> C⊗C<br />satisfying the following two commutative diagrams:<br /><br />Coassociativity:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-USwBOcKB6sY/TbM1GUBYxKI/AAAAAAAAAIs/nLhWSj9YB0U/s1600/Coassoc.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="234" src="http://1.bp.blogspot.com/-USwBOcKB6sY/TbM1GUBYxKI/AAAAAAAAAIs/nLhWSj9YB0U/s320/Coassoc.png" width="320" /></a></div><br />This diagram is actually shorthand for the following diagram:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/-z55STZY8KW0/TbM1G6huW0I/AAAAAAAAAIw/3QPjm8OPAGY/s1600/Coassoc2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="208" src="http://4.bp.blogspot.com/-z55STZY8KW0/TbM1G6huW0I/AAAAAAAAAIw/3QPjm8OPAGY/s320/Coassoc2.png" width="320" /></a></div>The isomorphisms at the top are the assocL and assocR isomorphisms that we defined <a href="http://haskellformaths.blogspot.com/2011/03/tensor-products-part-2-monoids-and.html">here</a>.<br /><br />Counit:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-7pVoe5pn29U/TbM1HKUlnhI/AAAAAAAAAI0/8aan1SHxjfQ/s1600/Counit.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="149" src="http://3.bp.blogspot.com/-7pVoe5pn29U/TbM1HKUlnhI/AAAAAAAAAI0/8aan1SHxjfQ/s320/Counit.png" width="320" /></a></div><br /><br />These are just the associativity and unit diagrams, but with arrows reversed and relabeled.<br /><br />Recall that when we say that a diagram commutes, we mean that it doesn't matter which way you follow the arrows, you end up with the same result. In other words, what these diagrams are saying is:<br /><code></code><br /><code>comult⊗id . comult == id⊗comult . comult (Coassoc)<br />counit⊗id . comult == unitInL (Left counit)<br />id⊗comult . comult == unitInR (Right counit)</code><br />(where unitInL, unitInR are the isomorphisms that we defined in <a href="http://haskellformaths.blogspot.com/2011/03/tensor-products-part-2-monoids-and.html">here</a>.)<br /><br /><br />In HaskellForMaths, recall that we work with free vector spaces over a basis type, so the definition comes out slightly different:<br /><code></code><br /><code><pre>module Math.Algebras.Structures where<br /><br />...<br /><br />class Coalgebra k c where<br /> counit :: Vect k c -> k<br /> comult :: Vect k c -> Vect k (Tensor c c)<br /></pre></code><br />What this definition really says is that c is the <i>basis</i> for a coalgebra. As before, we could try using type families to make this look more like the mathematical definition:<br /><code></code><br /><code><pre>type TensorProd k u v =<br /> (u ~ Vect k a, v ~ Vect k b) => Vect k (Tensor a b)<br /><br />class Coalgebra2 k c where<br /> counit2 :: c -> k<br /> comult2 :: c -> TensorProd k c c<br /></pre></code><br />In this definition, c is the coalgebra itself. However, I'm not going to pursue this approach for now.<br /><br /><br />What do coalgebras look like? Well, they look a bit like algebras would, if you looked at them through the wrong end of the telescope.<br /><br />More specifically, given any basis b, define a dual basis as follows:<br /><code></code><br /><code><pre>newtype Dual basis = Dual basis deriving (Eq,Ord)<br /><br />instance Show basis => Show (Dual basis) where<br /> show (Dual b) = show b ++ "'"<br /></pre></code><br />(For those who know what a dual vector space is - this is it. For those who don't, I'll explain in a minute.)<br /><br />Then, given an Algebra instance on some <i>finite-dimensional</i> basis b, we can define a Coalgebra instance on Dual b as follows:<br /><br />1. Write out the unit and mult operations in the algebra as matrices.<br /><br />For example, in the case of the quaternions, we have<br />unit:<br /><code></code><br /><code><pre> 1 i j k<br /><br />1 -> 1 0 0 0<br /></pre></code><br />mult:<br /><code></code><br /><code><pre> 1 i j k<br /><br />1⊗1 -> 1 0 0 0<br />1⊗i -> 0 1 0 0<br />1⊗j -> 0 0 1 0<br />1⊗k -> 0 0 0 1<br />i⊗1 -> 0 1 0 0<br />i⊗i -> -1 0 0 0<br />i⊗j -> 0 0 0 1<br />i⊗k -> 0 0 -1 0<br />j⊗1 -> 0 0 1 0<br />j⊗i -> 0 0 0 -1<br />j⊗j -> -1 0 0 0<br />j⊗k -> 0 1 0 0<br />k⊗1 -> 0 0 0 1<br />k⊗i -> 0 0 1 0<br />k⊗j -> 0 -1 0 0<br />k⊗k -> -1 0 0 0<br /></pre></code><br />2. Then transpose these two matrices, and use them as the definitions for counit and comult, but replacing each basis element by its dual.<br /><br />So, in the case of the quaternions, we would get<br />counit:<br /><code></code><br /><code><pre> 1'<br /><br />1' -> 1<br />i' -> 0<br />j' -> 0<br />k' -> 0<br /></pre></code><br />comult:<br /><code></code><br /><code><pre> 1'⊗1' 1'⊗i' 1'⊗j' 1'⊗k' i'⊗1' i'⊗i' i'⊗j' i'⊗k' j'⊗1' j'⊗i' j'⊗j' j'⊗k' k'⊗1' k'⊗i' k'⊗j' k'⊗k'<br /><br />1' -> 1 0 0 0 0 -1 0 0 0 0 -1 0 0 0 0 -1<br />i' -> 0 1 0 0 1 0 0 0 0 0 0 1 0 0 -1 0<br />j' -> 0 0 1 0 0 0 0 -1 1 0 0 0 0 1 0 0<br />k' -> 0 0 0 1 0 0 1 0 0 -1 0 0 1 0 0 0<br /></pre></code><br /><br />In code, we get:<br /><code></code><br /><code><pre>instance Num k => Coalgebra k (Dual HBasis) where<br /> counit = unwrap . linear counit'<br /> where counit' (Dual One) = return ()<br /> counit' _ = zero<br /> comult = linear comult'<br /> where comult' (Dual One) = return (Dual One, Dual One) <+><br /> (-1) *> ( return (Dual I, Dual I) <+> return (Dual J, Dual J) <+> return (Dual K, Dual K) )<br /> comult' (Dual I) = return (Dual One, Dual I) <+> return (Dual I, Dual One) <+><br /> return (Dual J, Dual K) <+> (-1) *> return (Dual K, Dual J)<br /> comult' (Dual J) = return (Dual One, Dual J) <+> return (Dual J, Dual One) <+><br /> return (Dual K, Dual I) <+> (-1) *> return (Dual I, Dual K)<br /> comult' (Dual K) = return (Dual One, Dual K) <+> return (Dual K, Dual One) <+><br /> return (Dual I, Dual J) <+> (-1) *> return (Dual J, Dual I)<br /><br />unwrap :: Num k => Vect k () -> k<br />unwrap (V []) = 0<br />unwrap (V [( (),x)]) = x<br /></pre></code><br />(Recall that when we want to think of k as a vector space, we have to represent it as Vect k ().)<br /><br /><br />We should check that this does indeed define a coalgebra. It's clear, by definition, that counit and comult are linear, as required. Here's a quickcheck property for coassociativity and counit:<br /><code></code><br /><code><pre>prop_Coalgebra x =<br /> ((comult `tf` id) . comult) x == (assocL . (id `tf` comult) . comult) x && -- coassociativity<br /> ((counit' `tf` id) . comult) x == unitInL x && -- left counit<br /> ((id `tf` counit') . comult) x == unitInR x -- right counit<br /> where counit' = wrap . counit<br /><br />wrap :: Num k => k -> Vect k ()<br />wrap 0 = zero<br />wrap x = V [( (),x)]<br /></pre></code><br /><br />(It's a bit awkward that we have to keep wrapping and unwrapping between k and Vect k (). I think we could have avoided this if we had defined counit to have signature Vect k c -> Vect k () instead of Vect k c -> k. To be honest, I think that is probably the right thing to do, so perhaps I'll change it in some future release of HaskellForMaths. What does anyone else think?)<br /><br /><br />Anyway, here's a quickCheck property to test that the dual quaternions are a coalgebra:<br /><code></code><br /><code><pre>instance Arbitrary b => Arbitrary (Dual b) where<br /> arbitrary = fmap Dual arbitrary<br /><br />prop_Coalgebra_DualQuaternion x = prop_Coalgebra x<br /> where types = x :: Vect Q (Dual HBasis)<br /><br />> quickCheck prop_Coalgebra_DualQuaternion<br />+++ OK, passed 100 tests.<br /></pre></code><br /><br />So, given an algebra structure on some vector space (basis), we can define a coalgebra structure on the dual vector space (dual basis). But why did we use the dual? Why didn't we just use the above construction to define a coalgebra structure on the vector space itself? For example, for the quaternions, that would look like this:<br /><code></code><br /><code><pre>instance Num k => Coalgebra k HBasis where<br /> counit = unwrap . linear counit'<br /> where counit' One = return ()<br /> counit' _ = zero<br /> comult = linear comult'<br /> where comult' One = return (One,One) <+> (-1) *> ( return (I,I) <+> return (J,J) <+> return (K,K) )<br /> comult' I = return (One,I) <+> return (I,One) <+> return (J,K) <+> (-1) *> return (K,J)<br /> comult' J = return (One,J) <+> return (J,One) <+> return (K,I) <+> (-1) *> return (I,K)<br /> comult' K = return (One,K) <+> return (K,One) <+> return (I,J) <+> (-1) *> return (J,I)<br /></pre></code><br />Well, we could indeed do that. However, it obscures the underlying mathematics. The point is that an algebra structure on a finite-dimensional vector space gives rise "naturally" to a coalgebra structure on the dual space. It is then also true that a finite-dimensional vector space is naturally isomorphic to its dual, which is I guess why the second construction works.<br /><br />Okay, so why is the coalgebra structure on the dual vector space "natural"?<br /><br />Well first, what is a dual vector space anyway? Given a vector space V, the dual space V* is Hom(V,k), the space of linear maps from V to k. If V is finite-dimensional with basis b, then as we have seen, we can define a basis Dual b for V* which is in one-to-one correspondence with b. Given a basis element ei, then the dual basis element Dual ei represents the linear map that sends ei to 1, and any other basis element ej, j /= i, to 0.<br /><br />It is convenient to define a linear map called the evaluation map, ev: V*⊗V -> k, with ev(a⊗x) = a(x):<br /><code></code><br /><code>ev :: (Num k, Ord b) => Vect k (Tensor (Dual b) b) -> k<br />ev = unwrap . linear (\(Dual bi, bj) -> delta bi bj *> return ())<br /><br />-- where delta i j = if i == j then 1 else 0</code><br /><br />Then given an element a in V* = Vect k (Dual b), and an element x in V = Vect k b, we can evaluate a(x) by calling ev (a `te` x).<br /><br />For example:<br /><code></code><br /><code>dual = fmap Dual<br /><br />> ev $ dual e1 `te` (4 *> e1 <+> 5 *> e2)<br />4<br />> ev $ dual e2 `te` (4 *> e1 <+> 5 *> e2)<br />5<br />> ev $ dual (e1 <+> 2 *> e2) `te` (4 *> e1 <+> 5 *> e2)<br />14</code><br /><br />Provided V is finite-dimensional, then every element of V* can be expressed in the form dual v, for some v in V.<br /><br />If we want to turn an element of Vect k (Dual b) into a real Haskell function Vect k b -> k, we can use the following code:<br /><code></code><br /><code>reify :: (Num k, Ord b) => Vect k (Dual b) -> (Vect k b -> k)<br />reify a x = ev (a `te` x)</code><br /><br />For example:<br /><code></code><br /><code>> let f = reify (dual e2)<br />> f (4 *> e1 <+> 5 *> e2)<br />5</code><br /><br /><br />Now, suppose that we have a linear map f: U -> V between vector spaces. This gives rise to a linear map f*: V* -> U*, by defining:<br />ev (f* a ⊗ x) = ev (a ⊗ f x)<br />It turns out that the matrix for f* will be the transpose of the matrix for f.<br /><br />For, suppose f(ui) = sum [mij vj | j <- ...] and f*(vi*) = sum [m*ij uj* | j <- ...]. Then<br /><code></code><br /><code>ev (f* vk* ⊗ ui) = ev (vk* ⊗ f ui) -- definition of f*<br />=> ev (sum [m*kl ul* | l <- ...] ⊗ ui) = ev (vk* ⊗ sum [mij vj | j <- ...]) -- expanding f and f*<br />=> sum [m*kl ev(ul* ⊗ ui) | l <- ...] = sum [mij ev (vk* ⊗ vj) | j <- ...] -- linearity of ev<br />=> sum [m*kl (delta l i) | l <- ...] = sum [mij (delta k j) | j <- ...] -- definition of ev<br />=> m*ki = mik -- definition of delta</code><br />So m* is the transpose of m.<br /><br />Hence we have a contravariant functor * from the category of finite-dimensional vector spaces to itself, which takes a space V to the dual space V*, and a linear map f: U -> V to the dual map f*: V* -> U*. ("Contravariant" just means that it reverses the directions of arrows.)<br /><br />Hopefully this explains why it is natural to think of an algebra structure on V as giving rise to a coalgebra structure on V*: a coalgebra is basically an algebra but with arrows reversed - and in going from vector spaces to their duals, we reverse arrows.<br /><br />By the way, the converse is also true: A coalgebra structure on V gives rise to an algebra structure on V*, in the same way.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-84635641133433875852011-04-16T20:21:00.001+01:002011-04-16T21:51:30.957+01:00What is an Algebra?Over the last few months, we've spent somewhat longer than I originally expected looking at vector spaces, direct sums and tensor products. I hope you haven't forgotten that the reason we were doing this is because we want to look at quantum algebra, and "quantum groups". What are quantum groups? Well, one thing they are is algebras - so the next thing we need to do is define algebras.<br /><br />Informally, an algebra is just a vector space which is also a ring (with unit) - or to put it another way, a ring (with unit) which is also a vector space. So a straightforward definition would be, A is an algebra if<br />(i) A is an additive group (this is required by both vector spaces and rings)<br />(ii) There is a scalar multiplication smult :: k×A -> A (satisfying some laws, as discussed in a previous post)<br />(iii) There is a multiplication mult :: A×A -> A, satisfying some laws:<br />- mult is associative: a(bc) = (ab)c<br />- mult distributes over addition: a(b+c) = (ab)+(ac), (a+b)c = (ac)+(bc)<br />(iv) There is a unit :: A, which is an identity for mult: 1a = a = a1<br /><br />Some examples:<br />- C is an algebra over R (2-dimensional as a vector space)<br />- 2×2 matrices over a field k form a k-algebra (4-dimensional)<br />- polynomials over a field k form a k-algebra (infinite-dimensional)<br /><br />It would be fairly straightforward to translate these definitions into a Haskell type class as they are. However, we're going to do things slightly differently, for two reasons.<br /><br />Firstly, we would like to use the language of category theory, and define multiplication and unit in terms of linear maps (arrows in the category of vector spaces). Specifically, we define linear maps:<br />unit :: k -> A<br />mult :: A⊗A -> A<br /><br />We then require that the following diagrams commute:<br /><br />Associativity:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/-HLIyGh7Gvcg/TaoA4VUiKgI/AAAAAAAAAIk/yc4fM809r0w/s1600/Associativity.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="243" src="http://1.bp.blogspot.com/-HLIyGh7Gvcg/TaoA4VUiKgI/AAAAAAAAAIk/yc4fM809r0w/s320/Associativity.png" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><br /></div><br /><br />When we say that this diagram commutes, what it means is that it doesn't matter which way you decide to follow the arrows, the result is the same. Specifically:<br />mult . mult⊗id == mult . id⊗mult<br /><br />Unit:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-83eZQCdAErM/TaoA6Y1KHrI/AAAAAAAAAIo/LNyIlAlY0T8/s1600/Unit.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="150" src="http://3.bp.blogspot.com/-83eZQCdAErM/TaoA6Y1KHrI/AAAAAAAAAIo/LNyIlAlY0T8/s320/Unit.png" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><br /></div><br /><br />In this case there are two commuting triangles, so we are saying:<br />mult . unit⊗id == unitOutL<br />mult . id⊗unit == unitOutR<br />(where unitOutL, unitOutR are the relevant isomorphisms, which we defined <a href="http://haskellformaths.blogspot.com/2011/03/tensor-products-part-2-monoids-and.html">last time</a>.)<br /><br />But hold on, haven't we forgotten one of the requirements? What about distributivity? Well, notice that the signature of mult was A⊗A -> A, not A×A -> A. A linear map from the tensor product is bilinear in each component (by definition of tensor product) - and bilinearity implies distributivity. So in this version, distributivity is built into the definition of mult. Neat, eh?<br /><br />The second reason our definition will be different is that in HaskellForMaths, all our vector spaces are free vector spaces over some basis type b: V = Vect k b. Consequently, our algebras will be A = Vect k a, where a is a k-basis for the algebra. Because of this, it will turn out to be more natural to express some things in terms of a, rather than A.<br /><br />With those forewarnings, here's the HaskellForMaths definition of an algebra:<br /><code></code><br /><code></code><br /><code><pre>module Math.Algebras.Structures where<br /><br />import Math.Algebras.VectorSpace<br />import Math.Algebras.TensorProduct<br /><br />class Algebra k a where<br /> unit :: k -> Vect k a<br /> mult :: Vect k (Tensor a a) -> Vect k a<br /></pre></code><br />In this definition, a represents the basis of the algebra, not the algebra itself, which is A = Vect k a. Recall that we defined a type Tensor a b, which is a basis for Vect k a ⊗ Vect k b.<br /><br /><br />If we wanted to stay a bit closer to the category theory definition, we could try continuing with the type family approach that we looked at last time:<br /><code></code><br /><code></code><br /><code><pre>type TensorProd k u v =<br /> (u ~ Vect k a, v ~ Vect k b) => Vect k (Tensor a b)<br /><br />class Algebra2 k a where<br /> unit2 :: k -> a<br /> mult2 :: TensorProd k a a -> a<br /></pre></code><br />In this definition a is the algebra itself. I'm not going to pursue that approach any further here, but if anyone fancies giving it a go, I'd be interested to hear how they get on.<br /><br /><br />Anyway, as discussed, unit and mult are required to be linear maps. We could check this using QuickCheck, but in practice we will always define unit and mult in such a way that they are clearly linear.<br /><br />However, we can write a QuickCheck property to check the other requirements:<br /><code></code><br /><code></code><br /><code><pre>prop_Algebra (k,x,y,z) =<br /> (mult . (id `tf` mult)) (x `te` (y `te` z)) ==<br /> (mult . (mult `tf` id)) ((x `te` y) `te` z) && -- associativity<br /> unitOutL (k' `te` x) == (mult . (unit' `tf` id)) (k' `te` x) && -- left unit<br /> unitOutR (x `te` k') == (mult . (id `tf` unit')) (x `te` k') -- right unit<br /> where k' = k *> return ()<br /></pre></code><br />(Recall that when we wish to consider k as a vector space, we represent it as the free vector space Vect k ().)<br /><br /><br />When we have an algebra, then we have a ring, so we can define a Num instance:<br /><code></code><br /><code></code><br /><code><pre>instance (Num k, Eq b, Ord b, Show b, Algebra k b) => Num (Vect k b) where<br /> x+y = x <+> y<br /> negate x = neg x<br /> x*y = mult (x `te` y)<br /> fromInteger n = unit (fromInteger n)<br /> abs _ = error "Prelude.Num.abs: inappropriate abstraction"<br /> signum _ = error "Prelude.Num.signum: inappropriate abstraction"<br /></pre></code><br />This means that when we have an algebra, we'll be able to write expressions using the usual arithmetic operators.<br /><br /><br />Okay, so how about some examples of algebras. Well, we mentioned the complex numbers as an algebra over the reals, but let's go one better and define the quaternion algebra. This is a four dimensional algebra over any field k, which is generated by {1, i, j, k}, satisfying the relations i^2 = j^2 = k^2 = ijk = -1. (It follows, for example that (ijk)k = (-1)k, so ij(k^2) = -k, so ij = k.)<br /><br />Here's the code. First, we define our basis. The quaternions are traditionally denoted H, after Hamilton, who discovered them:<br /><code></code><br /><code></code><br /><code><pre>data HBasis = One | I | J | K deriving (Eq,Ord)<br /><br />type Quaternion k = Vect k HBasis<br /><br />i,j,k :: Num k => Quaternion k<br />i = return I<br />j = return J<br />k = return K<br /><br />instance Show HBasis where<br /> show One = "1"<br /> show I = "i"<br /> show J = "j"<br /> show K = "k"<br /><br />instance (Num k) => Algebra k HBasis where<br /> unit x = x *> return One<br /> mult = linear m<br /> where m (One,b) = return b<br /> m (b,One) = return b<br /> m (I,I) = unit (-1)<br /> m (J,J) = unit (-1)<br /> m (K,K) = unit (-1)<br /> m (I,J) = return K<br /> m (J,I) = -1 *> return K<br /> m (J,K) = return I<br /> m (K,J) = -1 *> return I<br /> m (K,I) = return J<br /> m (I,K) = -1 *> return J<br /></pre></code><br />Note that unit and mult are both linear by definition.<br /><br />Let's just check that the code works as expected:<br /><code></code><br /><code>> :l Math.Algebras.Quaternions<br />> i^2<br />-1<br />> j^2<br />-1<br />> i*j<br />k</code><br /><br />Now, are we sure that the quaternions are an algebra? Well, it's clear from the definition that the left and right unit conditions hold - see the lines m (One,b) = m (b,One) = return b. But it's not obvious that the associativity condition holds, so perhaps we should quickCheck:<br /><code></code><br /><code></code><br /><code><pre>instance Arbitrary HBasis where<br /> arbitrary = elements [One,I,J,K]<br /><br />prop_Algebra_Quaternion (k,x,y,z) = prop_Algebra (k,x,y,z)<br /> where types = (k,x,y,z) :: (Q, Quaternion Q, Quaternion Q, Quaternion Q)<br /><br />> quickCheck prop_Algebra_Quaternion<br />+++ OK, passed 100 tests.<br /></pre></code><br /><br />Ok, how about 2*2 matrices. These form a four dimensional algebra generated by the elementary matrices {e11, e12, e21, e22}, where eij is the matrix with a 1 in the (i,j) position, and 0s elsewhere:<br /><code></code><br /><code></code><br /><code><pre>data Mat2 = E2 Int Int deriving (Eq,Ord,Show)<br /><br />instance Num k => Algebra k Mat2 where<br /> unit x = x *> V [(E2 i i, 1) | i <- [1..2] ]<br /> mult = linear mult' where<br /> mult' (E2 i j, E2 k l) = delta j k *> return (E2 i l)<br /><br />delta i j | i == j = 1<br /> | otherwise = 0<br /></pre></code><br />Notice the way that we only have to define multiplication on our basis elements, the elementary matrices eij, and the rest follows by bilinearity. Notice also that unit and mult are linear by definition. Let's just sanity check that this works as expected:<br /><code></code><br /><code>> :l Math.Algebras.Matrix<br />> unit 1 :: Vect Q Mat2<br />E2 1 1+E2 2 2<br />> let a = 2 *> return (E2 1 2) + 3 *> return (E2 2 1)<br />> a^2<br />6E2 1 1+6E2 2 2</code><br /><br />It's straightforward to define an Arbitrary instance for Mat2, and quickCheck that it satisfies the algebra conditions.<br /><br /><br />Finally, what about polynomials? Let's go one better, and define polynomials in more than one variable. An obvious basis for these polynomials as a vector space is the set of monomials. For example, polynomials in x,y,z are a vector space on the basis { x^i y^j z^k | i <- [0..], j <- [0..], k <- [0..] }.<br /><br />Recall that our vector space code requires that the basis be an Ord instance, so we need to define an ordering on monomials. There are many ways to do this. We'll use the graded lex or glex ordering, which says that monomials of higher degree sort before those of lower degree, and among those of equal degree, lexicographic (alphabetical) ordering applies.<br /><br />Given any set X of variables, we can construct the polynomial algebra over X as the vector space with basis the monomials in X. In the example above, we had X = {x,y,z}. For this reason, we'll allow our glex monomials to be polymorphic in the type of the variables. (In practice though, as you will see shortly, we will often just use String as the type of our variables.)<br /><br />So a glex monomial over variables v is basically just a list of powers of elements of v:<br /><code></code><br /><code>data GlexMonomial v = Glex Int [(v,Int)] deriving (Eq)<br />-- The initial Int is the degree of the monomial. Storing it speeds up equality tests and comparisons</code><br /><br />For example x^3 y^2 would be represented as Glex 5 [("x",3),("y",2)].<br /><code></code><br /><code></code><br /><code><pre>instance Ord v => Ord (GlexMonomial v) where<br /> compare (Glex si xis) (Glex sj yjs) =<br /> compare (-si, [(x,-i) | (x,i) <- xis]) (-sj, [(y,-j) | (y,j) <- yjs])<br />-- all the minus signs are to make things sort in the right order<br /></pre></code><br />[There's a bug in the HaskellForMaths v0.3.2 version of this Ord instance - the above code, which fixes it, will be in the next release.]<br /><br />I won't bore you with the Show instance - it's a bit fiddly.<br /><br />The Algebra instance uses the fact that monomials form a monoid under multiplication, with unit 1. Given any monoid, we can form the free vector space having the monoid elements as basis, and then lift the unit and multiplication in the monoid into the vector space, thus forming an algebra called the monoid algebra. Here's the construction:<br /><code></code><br /><code></code><br /><code><pre>instance (Num k, Ord v) => Algebra k (GlexMonomial v) where<br /> unit x = x *> return munit<br /> where munit = Glex 0 []<br /> mult xy = nf $ fmap (\(a,b) -> a `mmult` b) xy<br /> where mmult (Glex si xis) (Glex sj yjs) = Glex (si+sj) $ addmerge xis yjs<br /></pre></code><br />(In the addmerge function, we ensure that provided the variables were listed in ascending order in both inputs, then they are still so in the output.)<br /><br />Finally, here's a convenience function for injecting a variable into the polynomial algebra:<br /><code></code><br /><code>glexVar v = V [(Glex 1 [(v,1)], 1)]</code><br /><br />Then for example, we can do the following:<br /><code></code><br /><code>type GlexPoly k v = Vect k (GlexMonomial v)<br /><br />> let x = glexVar "x" :: GlexPoly Q String<br />> let y = glexVar "y" :: GlexPoly Q String<br />> let z = glexVar "z" :: GlexPoly Q String<br />> (x+y+z)^3<br />x^3+3x^2y+3x^2z+3xy^2+6xyz+3xz^2+y^3+3y^2z+3yz^2+z^3</code><br /><br />I hope you were impressed at how easy that all was. The foundation of free vector spaces, tensor products and algebras is only around a hundred lines of code. It then takes just another dozen lines or so to define an algebra: just define a basis, and define how the basis elements multiply - the rest follows by linearity.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-6671458623101799572011-03-18T10:23:00.000+00:002011-03-18T10:23:35.042+00:00Tensor Products, part 2: Monoids and Arrows[New release, HaskellForMaths v0.3.2, available on <a href="http://hackage.haskell.org/package/HaskellForMaths">Hackage</a>]<br /><br /><a href="http://haskellformaths.blogspot.com/2011/02/tensor-products-of-vector-spaces-part-1.html">Last time</a> we looked at the tensor product of free vector spaces. Given A = Vect k a, B = Vect k b, then the tensor product A⊗B can be represented as Vect k (a,b). As we saw, the tensor product is the "mother of all bilinear functions".<br /><br />In the HaskellForMaths library, I have defined a couple of type synonyms for direct sum and tensor product:<br /><code></code><br /><code>type DSum a b = Either a b<br />type Tensor a b = (a,b)</code><br /><br />This means that in type signatures we can write the type of a direct sum as Vect k (DSum a b), and of a tensor product as Vect k (Tensor a b). The idea is that this will remind us what we're dealing with, and make things clearer.<br /><br />During development, I initially called the tensor type TensorBasis. In maths, tensor product is thought of as an operation on vector spaces - A⊗B - rather than on their bases. It would be nicer if we could define direct sum and tensor product as operators on the vector spaces themselves, rather than their bases.<br /><br />Well, we can have a go, something like this:<br /><code></code><br /><code><pre>{-# LANGUAGE TypeFamilies, RankNTypes #-}<br /><br />type DirectSum k u v =<br /> (u ~ Vect k a, v ~ Vect k b) => Vect k (DSum a b)<br /><br />type TensorProd k u v =<br /> (u ~ Vect k a, v ~ Vect k b) => Vect k (Tensor a b)<br /><br />type En = Vect Q EBasis<br /></pre></code><br />This appears to work:<br /><code></code><br /><code>$ ghci -XTypeFamilies<br />...<br />> :l Math.Test.TAlgebras.TTensorProduct<br />...<br />> e1 `te` e2 :: TensorProd Q En En<br />(e1,e2)</code><br /><br />I'll reserve judgement. (Earlier in the development of the quantum algebra code for HaskellForMaths, I tried something similar to this, and ran into problems later on - but I can't now remember exactly what I did, so perhaps this will work.)<br /><br /><br />Okay, so what can we do with tensor products. Well first, given vectors u in A = Vect k a and v in B = Vect k b, we can form their tensor product, u⊗v, an element of A⊗B = Vect k (Tensor a b). To calculate u⊗v, we use the bilinearity of tensor product to reduce the tensor product of arbitrary vectors to a linear combination of tensor products of basis elements:<br />(x1 a1 + x2 a2)⊗(y1 b1 + y2 b2) = x1 y1 a1⊗b1 + x1 y2 a1⊗b2 + x2 y1 a2⊗b1 + x2 y2 a2⊗b2<br />Here's the code:<br /><code></code><br /><code>te :: Num k => Vect k a -> Vect k b -> Vect k (Tensor a b)<br />te (V us) (V vs) = V [((a,b), x*y) | (a,x) <- us, (b,y) <- vs]</code><br /><br />This is in essence just the "tensor" function from last time, but rewritten to take its two inputs separately rather than in a direct sum. Mnemonic: "te" stands for "<b>t</b>ensor product of <b>e</b>lements". Note that the definition respects normal form: provided the inputs are in normal form (the as and bs are in order, and the xs and ys are non-zero), then so is the output.<br /><br /><br /><span class="Apple-style-span" style="font-size: large;">Associativity</span><br /><br />We can form tensor products of tensor products, such as A⊗(B⊗C) = Vect k (a,(b,c)), and likewise (A⊗B)⊗C = Vect k ((a,b),c). These two are isomorphic as vector spaces. This is obvious if you think about it in the right way. Recall from last week that we can think of elements of A⊗B = Vect k (a,b) as 2-dimensional matrices with rows indexed by a, columns indexed by b, and entries in k. Well A⊗B⊗C (we can drop the parentheses as it makes no difference) is the space of three-dimensional matrices, with one dimension indexed by a, one by b, and one by c.<br /><br />We can define isomorphisms either way with the following Haskell code:<br /><code></code><br /><code>assocL :: Vect k (Tensor u (Tensor v w)) -> Vect k (Tensor (Tensor u v) w)<br />assocL = fmap ( \(a,(b,c)) -> ((a,b),c) )<br /><br />assocR :: Vect k (Tensor (Tensor u v) w) -> Vect k (Tensor u (Tensor v w))<br />assocR = fmap ( \((a,b),c) -> (a,(b,c)) )</code><br /><br />It's clear that these functions are linear, since they're defined using fmap. It's also clear that they are bijections, since they are mutually inverse. Hence they are the required isomorphisms.<br /><br /><br /><span class="Apple-style-span" style="font-size: large;">Unit</span><br /><br />Last time we saw that the field k is itself a vector space, which can be represented as the free vector space Vect k (). What happens if we take the tensor product k⊗A of the field with some other vector space A = Vect k a? Well, if you think about it in terms of matrices, Vect k () is a one-dimensional vector space, so Vect k ((),a) will be a 1*n matrix (where n is the number of basis elements in a). But a 1*n matrix looks just the same as an n-vector:<br /><br /><pre> a1 a2 ... a1 a2 ...<br />() ( . . ) ~= ( . . )<br /></pre><br />So we should expect that k⊗A = Vect k ((),a) is isomorphic to A = Vect k a. And indeed it is - here are the relevant isomorphisms:<br /><code></code><br /><code>unitInL = fmap ( \a -> ((),a) )<br /><br />unitOutL = fmap ( \((),a) -> a )<br /><br />unitInR = fmap ( \a -> (a,()) )<br /><br />unitOutR = fmap ( \(a,()) -> a )</code><br /><br />So tensor product is associative, and has a unit. In other words, vector spaces form a monoid under tensor product.<br /><br /><br /><span class="Apple-style-span" style="font-size: large;">Tensor product of functions</span><br /><br />Given linear functions f: A -> A', g: B -> B', we can define a linear function f⊗g: A⊗B -> A'⊗B' by<br />(f⊗g)(a⊗b) = f(a)⊗g(b)<br /><br />Exercise: Prove that f⊗g is linear<br /><br />Here's the Haskell code:<br /><code></code><br /><code><pre>tf :: (Num k, Ord a', Ord b') => (Vect k a -> Vect k a') -> (Vect k b -> Vect k b')<br /> -> Vect k (Tensor a b) -> Vect k (Tensor a' b')<br />tf f g (V ts) = sum [x *> te (f $ return a) (g $ return b) | ((a,b), x) <- ts]<br /> where sum = foldl add zero<br /></pre></code><br />(Mnemonic: "tf" stands for "<b>t</b>ensor product of <b>f</b>unctions".)<br /><br />Let's just check that this is linear:<br /><code></code><br /><code><pre>prop_Linear_tf ((f,g),k,(a1,a2,b1,b2)) = prop_Linear (linfun f `tf` linfun g) (k, a1 `te` b1, a2 `te` b2)<br /> where types = (f,g,k,a1,a2,b1,b2) :: (LinFun Q ABasis SBasis, LinFun Q BBasis TBasis, Q,<br /> Vect Q ABasis, Vect Q ABasis, Vect Q BBasis, Vect Q BBasis)<br /><br />> quickCheck prop_Linear_tf<br />+++ OK, passed 100 tests.<br /></pre></code><br /><br />So we now have tensor product operations on objects and on arrows. In each case, tensor product takes a pair of objects/arrows, and returns a new object/arrow.<br /><br />There is a product category k-Vect×k-Vect, consisting of pairs of objects and pairs of arrows from k-Vect. The identity arrow is defined to be (id,id), and composition is defined by (f,g) . (f',g') = (f . f', g . g'). Given these definitions, it turns out that tensor product is a functor from k-Vect×k-Vect to k-Vect. (Another way to say this is that tensor product is a bifunctor in the category of vector spaces.)<br /><br />Recall that a functor is just a map that "commutes" with the category operations, id and . (composition).<br />So the conditions for tensor product to be a functor are:<br />id⊗id = id<br />(f' . f)⊗(g' . g) = (f'⊗g') . (f⊗g)<br /><br />Both of these follow immediately from the definition of f⊗g that was given above. However, just in case you don't believe me, here's a quickCheck property to prove it:<br /><code></code><br /><code><pre>prop_TensorFunctor ((f1,f2,g1,g2),(a,b)) =<br /> (id `tf` id) (a `te` b) == id (a `te` b) &&<br /> ((f' . f) `tf` (g' . g)) (a `te` b) == ((f' `tf` g') . (f `tf` g)) (a `te` b)<br /> where f = linfun f1<br /> f' = linfun f2<br /> g = linfun g1<br /> g' = linfun g2<br /> types = (f1,f2,g1,g2,a,b) :: (LinFun Q ABasis ABasis, LinFun Q ABasis ABasis,<br /> LinFun Q BBasis BBasis, LinFun Q BBasis BBasis,<br /> Vect Q ABasis, Vect Q BBasis)<br /><br />> quickCheck prop_TensorFunctor<br />+++ OK, passed 100 tests.<br /></pre></code><br />We can think of composition as doing things in series, and tensor as doing things in parallel.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://lh3.googleusercontent.com/-wNnfMjoPFlw/TYMvykI5OhI/AAAAAAAAAIU/qUYFrMhwJiQ/s1600/ArrowComposition.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="93" src="https://lh3.googleusercontent.com/-wNnfMjoPFlw/TYMvykI5OhI/AAAAAAAAAIU/qUYFrMhwJiQ/s200/ArrowComposition.png" width="200" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://lh5.googleusercontent.com/-31cOu-meR0Y/TYMvy56GlSI/AAAAAAAAAIY/xWLUH0S_Nx0/s1600/ArrowTensor.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="200" src="https://lh5.googleusercontent.com/-31cOu-meR0Y/TYMvy56GlSI/AAAAAAAAAIY/xWLUH0S_Nx0/s200/ArrowTensor.png" width="182" /></a></div><br />Then the second bifunctor condition can be paraphrased as "Doing things in parallel, in series, is the same as doing things in series, in parallel", as represented by the following diagram.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://lh3.googleusercontent.com/-_YPjcDf51DY/TYMvyPBHKhI/AAAAAAAAAIM/v7xIn8juQuk/s1600/ArrowBifunctor.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="146" src="https://lh3.googleusercontent.com/-_YPjcDf51DY/TYMvyPBHKhI/AAAAAAAAAIM/v7xIn8juQuk/s400/ArrowBifunctor.png" width="400" /></a></div><br /><br />You might recall that there are a couple of Haskell type classes for that kind of thing. The Category typeclass from Control.Category is about doing things in series. Here is the definition:<br /><code></code><br /><code><pre>class Category cat where<br /> id :: cat a a<br /> (.) :: cat b c -> cat a b -> cat a c<br /></pre></code><br />The Arrow typeclass from Control.Arrow is about doing things in parallel:<br /><code></code><br /><code><pre>class Category arr => Arrow arr where<br /> arr :: (a -> b) -> arr a b<br /> first :: arr a b -> arr (a,c) (b,c)<br /> second :: arr a b -> arr (c,a) (c,b)<br /> (***) :: arr a b -> arr a' b' -> arr (a,a') (b,b')<br /> (&&&) :: arr a b -> arr a b' -> arr a (b,b')<br /></pre></code><br />Intuitively, linear functions (Vect k a -> Vect k b) are arrows, via the definitions:<br />id = id<br />(.) = (.)<br />arr = fmap<br />first f = f `tf` id<br />second f = id `tf` f<br />f *** g = f `tf` g<br />(f &&& g) a = (f `tf` g) (a `te` a)<br /><br />However, in order to define an Arrow instance we'll have to wrap the functions in a newtype.<br /><code></code><br /><code><pre>import Prelude as P<br />import Control.Category as C<br />import Control.Arrow<br /><br />newtype Linear k a b = Linear (Vect k a -> Vect k b)<br /><br />instance Category (Linear k) where<br /> id = Linear P.id<br /> (Linear f) . (Linear g) = Linear (f P.. g)<br /><br />instance Num k => Arrow (Linear k) where<br /> arr f = Linear (fmap f)<br /> first (Linear f) = Linear f *** Linear P.id<br /> second (Linear f) = Linear P.id *** Linear f<br /> Linear f *** Linear g = Linear (f `tf2` g)<br /> where tf2 f g (V ts) = V $ concat<br /> [let V us = x *> te (f $ return a) (g $ return b) in us | ((a,b), x) <- ts]<br /> Linear f &&& Linear g = (Linear f *** Linear g) C.. Linear (\a -> a `te` a)<br /></pre></code><br />Note that we can't use tf directly, because it requires Ord instances for a and b, and Haskell doesn't give us a way to require these. For this reason we define a tf2 function, which is equivalent except that it doesn't guarantee that results are in normal form.<br /><br />There is loads of other stuff I could talk about:<br />Exercise: Show that direct sum is also a monoid, with the zero vector space as its identity. (Write Haskell functions for the necessary isomorphisms.)<br />Exercise: Show that tensor product distributes over direct sum - A⊗(B⊕C) is isomorphic to (A⊗B)⊕(A⊗C). (Write the isomorphisms.)<br />Exercise: Show that given f: A->A', g: B->B', it is possible to define a linear function f⊕g: A⊕B->A'⊕B' by (f⊕g)(a⊕b) = f(a)⊕g(b). (Write a dsumf function analogous to tf.)<br /><br />There is another arrow related typeclass called ArrowChoice. It represents arrows where you have a choice of doing either one thing or another thing:<br /><code></code><br /><code><pre>class Arrow arr => ArrowChoice arr where<br /> left :: arr a b -> arr (Either a c) (Either b c)<br /> right :: arr a b -> arr (Either c a) (Either c b)<br /> (+++) :: arr a a' -> arr b b' -> arr (Either a b) (Either a' b')<br /> (|||) :: arr a c -> arr b c -> arr (Either a b) c<br /></pre></code><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://lh3.googleusercontent.com/-gnO5Y_5Ae4I/TYMvyfE-rTI/AAAAAAAAAIQ/fLwtCSVHOX0/s1600/ArrowChoice.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://lh3.googleusercontent.com/-gnO5Y_5Ae4I/TYMvyfE-rTI/AAAAAAAAAIQ/fLwtCSVHOX0/s200/ArrowChoice.png" width="200" /></a></div><br /><br />Exercise: Show that the dsumf function can be used to give an ArrowChoice instance for linear functions, where the left summand goes down one path and the right summand down another.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-85004864487019666552011-02-21T20:13:00.001+00:002011-02-22T20:26:06.275+00:00Tensor products of vector spaces, part 1A little while back on this blog, we defined the <a href="http://haskellformaths.blogspot.com/2010/12/free-vector-space-on-type-part-1.html">free k-vector space over a type b</a>:<br /><code></code><br /><code>newtype Vect k b = V [(b,k)] deriving (Eq,Ord)</code><br />Elements of Vect k b are k-linear combinations of elements of b.<br /><br />Whenever we have a mathematical structure like this, we want to know about building blocks and new-from-old constructions.<br /><br />We already looked at one new-from-old construction: given free k-vector spaces A = Vect k a and B = Vect k b, we can construct their direct sum A⊕B = Vect k (Either a b).<br /><br />We saw that the direct sum is both the <a href="http://haskellformaths.blogspot.com/2011/02/products-of-lists-and-vector-spaces.html">product</a> and the <a href="http://haskellformaths.blogspot.com/2011/01/coproducts-of-lists-and-free-vector.html">coproduct</a> in the category of free vector spaces - which means that it is the object which satisfies the universal properties implied by the following two diagrams:<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-7wIViKlEwSo/TWLBKRnpMBI/AAAAAAAAAH8/q1EsnivgWvU/s1600/Vect_product.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="117" src="http://3.bp.blogspot.com/-7wIViKlEwSo/TWLBKRnpMBI/AAAAAAAAAH8/q1EsnivgWvU/s320/Vect_product.png" width="320" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/-DSAB9Cos0LQ/TWLBSgvjKrI/AAAAAAAAAIA/CYsko9S-X2I/s1600/Vect_coproduct.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="117" src="http://2.bp.blogspot.com/-DSAB9Cos0LQ/TWLBSgvjKrI/AAAAAAAAAIA/CYsko9S-X2I/s320/Vect_coproduct.png" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><br /></div>So we have injections i1, i2 : Vect k a, Vect k b -> Vect k (Either a b), to put elements of A and B into the direct sum A⊕B, and projections p1, p2 : Vect k (Either a b) -> Vect k a, Vect k b to take them back out again.<br /><br /><br />However, there is another obvious new-from-old construction: Vect k (a,b). What does this represent?<br /><br />In order to answer that question, we need to look at bilinear functions. The basic idea of a bilinear function is that it is a function of two arguments, which is linear in each argument. So we might start by looking at functions f :: Vect k a -> Vect k b -> Vect k t.<br /><br />However, functions of two arguments don't really sit very well in category theory, where arrows are meant to have a single source. (We can handle functions of two arguments in multicategories, but I don't want to go there just yet.) In order to stay within category theory, we need to combine the two arguments into a single argument, using the direct sum construction. So instead of looking at functions f :: Vect k a -> Vect k b -> Vect k t, we will look at functions f :: Vect k (Either a b) -> Vect k t.<br /><br />To see that they are equivalent, recall from last time that Vect k (Either a b) is isomorphic to (Vect k a, Vect k b), via the isomorphisms:<br /><code></code><br /><code>to :: (Vect k a, Vect k b) -> Vect k (Either a b)<br />to = \(u,v) -> i1 u <+> i2 v<br />from :: Vect k (Either a b) -> (Vect k a, Vect k b)<br />from = \uv -> (p1 uv, p2 uv)</code><br />So in going from f :: Vect k a -> Vect k b -> Vect k t to f :: Vect k (Either a b) -> Vect k t, we're really just uncurrying.<br /><br />Ok, so suppose we are given f :: Vect k (Either a b) -> Vect k t. It helps to still think of this as a function of two arguments, even though we've wrapped them up together in either side of a direct sum. Then we say that f is bilinear, if it is linear in each side of the direct sum. That is:<br />- for any fixed a0 in A, the function f_a0 :: Vect k b -> Vect k t, f_a0 = \b -> f (i1 a0 <+> i2 b) is linear<br />- for any fixed b0 in B, the function f_b0 :: Vect k a -> Vect k t, f_b0 = \a -> f (i1 a <+> i2 b0) is linear<br /><br /><br />Here's a QuickCheck property to test whether a function is bilinear:<br /><code></code><br /><code></code><br /><code><pre>prop_Bilinear :: (Num k, Ord a, Ord b, Ord t) =><br /> (Vect k (Either a b) -> Vect k t) -> (k, Vect k a, Vect k a, Vect k b, Vect k b) -> Bool<br />prop_Bilinear f (k,a1,a2,b1,b2) =<br /> prop_Linear (\b -> f (i1 a1 <+> i1 b)) (k,b1,b2) &&<br /> prop_Linear (\a -> f (i1 a <+> i1 b1)) (k,a1,a2)<br /><br />prop_BilinearQn f (a,u1,u2,v1,v2) = prop_Bilinear f (a,u1,u2,v1,v2)<br /> where types = (a,u1,u2,v1,v2) :: (Q, Vect Q EBasis, Vect Q EBasis, Vect Q EBasis, Vect Q EBasis)<br /></pre></code><br />What are some examples of bilinear functions?<br /><br />Well, perhaps the most straightforward is the dot product of vectors. If our vector spaces A and B are the same, then we can define the dot product:<br /><code></code><br /><code></code><br /><code><pre>dot0 uv = sum [ if a == b then x*y else 0 | (a,x) <- u, (b,y) <- v]<br /> where V u = p1 uv<br /> V v = p2 uv<br /></pre></code><br />However, as it stands, this won't pass our QuickCheck property - because it has the wrong type! This has the type dot0 :: Vect k (Either a b) -> k, whereas we need something of type Vect k (Either a b) -> Vect k t.<br /><br />Now, it is of course true that k is a k-vector space. However, as it stands, it's not a free k-vector space over some basis type t. Luckily, this is only a technicality, which is easily fixed. When we want to consider k as itself a (free) vector space, we will take t = (), the unit type, and equate k with Vect k (). Since the type () has only a single inhabitant, the value (), then Vect k () consists of scalar multiples of () - so it is basically just a single copy of k itself. The isomorphism between k and Vect k () is \k -> k *> return ().<br /><br />Okay, so now that we know how to represent k as a free k-vector space, we can define dot product again:<br /><code></code><br /><code></code><br /><code><pre>dot1 uv = nf $ V [( (), if a == b then x*y else 0) | (a,x) <- u, (b,y) <- v]<br /> where V u = p1 uv<br /> V v = p2 uv<br /></pre></code><br />This now has the type dot1 :: Vect k (Either a b) -> Vect k (). Here's how you use it:<br /><code></code><br /><code>> dot1 ( i1 (e1 <+> 2 *> e2) <+> i2 (3 *> e1 <+> e2) )<br />5()</code><br />(So thinking of our function as a function of two arguments, what we do is use i1 to inject the first argument into the left hand side of the direct sum, and i2 to inject the second argument into the right hand side.)<br /><br />So we can now use the QuickCheck property:<br /><code></code><br /><code>> quickCheck (prop_BilinearQn dot1)<br />+++ OK, passed 100 tests.</code><br /><br />Another example of a bilinear function is polynomial multiplication. Polynomials of course form a vector space, with basis {x^i | i <- [0..] }. So we could define a type to represent the monomials x^i, and then form the polynomials as the free vector space in the monomials. In a few weeks we will do that, but for the moment, to save time, let's just use our existing EBasis type, and take E i to represent x^i. Then polynomial multiplication is the following function:<br /><code></code><br /><code></code><br /><code><pre>polymult1 uv = nf $ V [(E (i+j) , x*y) | (E i,x) <- u, (E j,y) <- v]<br /> where V u = p1 uv<br /> V v = p2 uv<br /></pre></code><br />Let's just convince ourselves that this is polynomial multiplication:<br /><code></code><br /><code>> polymult1 (i1 (e 0 <+> e 1) <+> i2 (e 0 <+> e 1))<br />e0+2e1+e2</code><br />So this is just our way of saying that (1+x)*(1+x) = 1+2x+x^2.<br /><br />Again, let's verify that this is bilinear:<br /><code></code><br /><code>> quickCheck (prop_BilinearQn polymult1)<br />+++ OK, passed 100 tests.</code><br /><br />So what's all this got to do with Vect k (a,b)? Well, here's another bilinear function:<br /><code></code><br /><code></code><br /><code><pre>tensor :: (Num k, Ord a, Ord b) => Vect k (Either a b) -> Vect k (a, b)<br />tensor uv = nf $ V [( (a,b), x*y) | (a,x) <- u, (b,y) <- v]<br /> where V u = p1 uv; V v = p2 uv<br /><br />> quickCheck (prop_BilinearQn tensor)<br />+++ OK, passed 100 tests.<br /></pre></code><br />So this "tensor" function takes each pair of basis elements a, b in the input to a basis element (a,b) in the output. The thing that is interesting about this bilinear function is that it is in some sense "the mother of all bilinear functions". Specifically, you can specify a bilinear function completely by specifying what happens to each pair (a,b) of basis elements. It follows that any bilinear function f :: Vect k (Either a b) -> Vect k t can be factored as f = f' . tensor, where f' :: Vect k (a,b) -> Vect k t is the linear function having the required action on the basis elements (a,b) of Vect k (a,b).<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-APOApycJjVw/TWLDhMB8VEI/AAAAAAAAAIE/Q1aso4KoyJA/s1600/Tensor_vect.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="111" src="http://3.bp.blogspot.com/-APOApycJjVw/TWLDhMB8VEI/AAAAAAAAAIE/Q1aso4KoyJA/s320/Tensor_vect.png" width="320" /></a></div><br />For example:<br /><code></code><br /><code></code><br /><code><pre>bilinear :: (Num k, Ord a, Ord b, Ord c) =><br /> ((a, b) -> Vect k c) -> Vect k (Either a b) -> Vect k c<br />bilinear f = linear f . tensor<br /><br />dot = bilinear (\(a,b) -> if a == b then return () else zero)<br /><br />polymult = bilinear (\(E i, E j) -> return (E (i+j)))<br /></pre></code><br /><br />We can check that these are indeed the same functions as we were looking at before:<br /><code></code><br /><code>> quickCheck (\x -> dot1 x == dot x)<br />+++ OK, passed 100 tests.<br />> quickCheck (\x -> polymult1 x == polymult x)<br />+++ OK, passed 100 tests.</code><br />So Vect k (a,b) has a special role in the theory of bilinear functions. If A = Vect k a, B = Vect k b, then we write A⊗B = Vect k (a,b) (pronounced "A tensor B").<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-0-GnsueVhuA/TWLDzsUuWpI/AAAAAAAAAII/gq8-MsjD8GA/s1600/Tensor_product.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="174" src="http://3.bp.blogspot.com/-0-GnsueVhuA/TWLDzsUuWpI/AAAAAAAAAII/gq8-MsjD8GA/s320/Tensor_product.png" width="320" /></a></div><br /><br />[By the way, it's possible that this diagram might upset category theorists - because the arrows in the diagram are not all arrows in the category of vector spaces. Specifically, note that bilinear maps are not, in general, linear. We'll come back to this in a moment.]<br /><br />So a bilinear map can be specified by its action on the tensor basis (a,b). This corresponds to writing out matrices. To specify any bilinear map Vect k (Either a b) -> Vect k t, you write out a matrix with rows indexed by a, columns indexed by b, and entries in Vect k t.<br /><code></code><br /><code></code><br /><code><pre> b1 b2 ...<br /> a1 (t11 t12 ...)<br /> a2 (t21 t22 ...)<br />... (... )<br /></pre></code><br />So this says that (ai,bj) is taken to tij. Then given an element of A⊕B = Vect k (Either a b), which we can think of as a vector (x1 a1 + x2 a2 + ...) in A = Vect k a together with a vector (y1 b1 + y2 b2 + ...) in B = Vect k b, then we can calculate its image under the bilinear map by doing matrix multiplication as follows:<br /><code></code><br /><code></code><br /><code><pre> a1 a2 ... b1 b2 ...<br />(x1 x2 ...) a1 (t11 t12 ...) b1 (y1)<br /> a2 (t21 t22 ...) b2 (y2)<br /> ... (... ) ... (...)<br /></pre></code><br />(Sorry, this diagram might be a bit confusing. The ai, bj are labeling the rows and columns. The xi are the entries in a row vector in A, the yj are the entries in a column vector in B, and the tij are the entries in the matrix.)<br /><br />So xi ai <+> yj bj goes to xi yj tij.<br /><br />For example, dot product corresponds to the matrix:<br /><code></code><br /><code></code><br /><code><pre>(1 0 0)<br />(0 1 0)<br />(0 0 1)<br /></pre></code><br />Polynomial multiplication corresponds to the matrix:<br /><code></code><br /><code></code><br /><code><pre> e0 e1 e2 ...<br />e0 (e0 e1 e2 ...)<br />e1 (e1 e2 e3 ...)<br />e2 (e2 e3 e4 ...)<br />...<br /></pre></code><br />A matrix with entries in T = Vect k t is just a convenient way of specifying a linear map from A⊗B = Vect k (a,b) to T.<br /><br />Indeed, any matrix, provided that all the entries are in the same T, defines a bilinear function. So bilinear functions are ten-a-penny.<br /><br /><br />Now, I stated above that bilinear functions are not in general linear. For example:<br /><code></code><br /><code>> quickCheck (prop_Linear polymult)<br />*** Failed! Falsifiable (after 2 tests and 2 shrinks): <br />(0,Right e1,Left e1)</code><br />What went wrong? Well:<br /><code></code><br /><code>> polymult (Right e1)<br />0<br />> polymult (Left e1)<br />0<br />> polymult (Left e1 <+> Right e1)<br />e2</code><br />So we fail to have f (a <+> b) = f a <+> f b, which is one of the requirements of a linear function.<br /><br /><br />Conversely, it's also important to realise that linear functions (on Vect k (Either a b)) are not in general bilinear. For example:<br /><code></code><br /><code>> quickCheck (prop_BilinearQn id)<br />*** Failed! Falsifiable (after 2 tests): <br />(1,0,0,e1,0)</code><br />The problem here is:<br /><code></code><br /><code>> id $ i1 (zero <+> zero) <+> i2 e1<br />Right e1<br />> id $ (i1 zero <+> i2 e1) <+> (i1 zero <+> i2 e1)<br />2Right e1</code><br />So we fail to have linearity in the left hand side (or the right for that matter).<br /><br />Indeed we can kind of see that linearity and bilinearity are in conflict.<br />- Linearity requires that f (a1 <+> a2 <+> b) = f a1 <+> f a2 <+> f b<br />- Bilinearity requires that f (a1 <+> a2 <+> b) = f (a1 <+> b) <+> f (a2 <+> b)<br /><br />Exercise: Find a function which is both linear and bilinear.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-52219750163192423382011-02-01T21:47:00.000+00:002011-02-01T21:47:32.121+00:00Products of lists and vector spaces<a href="http://haskellformaths.blogspot.com/2011/01/coproducts-of-lists-and-free-vector.html">Last time</a>, we looked at coproducts - of sets/types, of lists, and of free vector spaces. I realised afterwards that there were a couple more things I should have said, but forgot.<br /><br />Recall that the coproduct of A and B is an object A+B, together with injections i1: A -> A+B, i2: B-> A+B, with the property that whenever we have arrows f: A -> T, g: B -> T, they can be factored through A+B to give an arrow f+g, satisfying f+g . i1 = f, f+g . i2 = g.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/TTmxj8viJhI/AAAAAAAAAHQ/MAV4M0oczNQ/s1600/Coproduct.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="148" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/TTmxj8viJhI/AAAAAAAAAHQ/MAV4M0oczNQ/s320/Coproduct.png" width="320" /></a></div><br /><br />Firstly then, I forgot to say why we called the coproduct A+B with a plus sign. Well, it's because, via the injections i1 and i2, it contains (a copy of) A and (a copy of) B. So it's a bit like a sum of A and B.<br /><br />Second, I forgot to say that in the case of vector spaces, the coproduct is called the <i>direct sum</i>, and has its own special symbol A⊕B.<br /><br /><br />Okay, so this time I want to look at products.<br /><br />Suppose we have objects A and B in some category. Then their product (if it exists) is an object A×B, together with projections p1: A×B -> A, p2: A×B -> B, with the following universal property: whenever we have arrows f: S -> A and g: S -> B, then they can be factored through A×B to give an arrow f×g: S -> A×B, such that f = p1 . f×g, g = p2 . f×g.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/TUh5Ss3vvXI/AAAAAAAAAHo/DUn5vgfTRos/s1600/Product_Set.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="185" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/TUh5Ss3vvXI/AAAAAAAAAHo/DUn5vgfTRos/s320/Product_Set.png" width="320" /></a></div><br /><br />(The definitions of product and coproduct are dual to one another - the diagrams are the same but with the directions of the arrows reversed.)<br /><br />In the category Set, the product of sets A and B is their Cartesian product A×B. In the category Hask, of course, the product of types a and b is written (a,b), p1 is called fst, and p2 is called snd.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TUh5dvytFMI/AAAAAAAAAHs/5S0F2GqmsIE/s1600/Product_Hask.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="169" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TUh5dvytFMI/AAAAAAAAAHs/5S0F2GqmsIE/s320/Product_Hask.png" width="320" /></a></div><br /><br />We can then define the required product map as:<br /><code>(f .*. g) x = (f x, g x)</code><br /><br />Then it should be clear that fst . (f .*. g) = f, and snd . (f .*. g) = g, as required.<br /><br /><br />Okay, so what do products look like in the category of lists (free monoids)? (Recall that in this category, the arrows are required to be monoid homomorphisms, meaning that f [] = [] and f (xs++ys) = f xs ++ f ys. It follows that we can express f = concatMap f', for some f'.)<br /><br />Well, the obvious thing to try as the product is the Cartesian product ([a],[b]). Is the Cartesian product of two monoids a monoid? Well yes it is actually. We could give it a monoid structure as follows:<br /><code></code><br /><code>(as1, bs1) ++ (as2, bs2) = (as1++as2, bs1++bs2)<br />[] = ([],[])</code><br />This isn't valid Haskell code of course. It's just my shorthand way of expressing the following code from Data.Monoid:<br /><code></code><br /><code><pre>instance Monoid [a] where<br /> mempty = []<br /> mappend = (++)<br /><br />instance (Monoid a, Monoid b) => Monoid (a,b) where<br /> mempty = (mempty, mempty)<br /> (a1,b1) `mappend` (a2,b2) =<br /> (a1 `mappend` a2, b1 `mappend` b2)<br /></pre></code><br />From these two instances, it follows that ([a],[b]) is a monoid, with monoid operations equivalent to those I gave above. (In particular, it's clear that the construction satisfies the monoid laws: associativity of ++, identity of [].)<br /><br />But it feels like there's something unsatisfactory about this. Wouldn't it be better for the product of list types [a] and [b] to be another list type [x], for some type x?<br /><br />Our first thought might be to try [(a.b)]. The product map would then need to be something like \ss -> zip (f ss) (g ss). However, we quickly see that this won't work: what if f ss and g ss are not the same length.<br /><br />What else might work? Well, if you think of ([a],[b]) as some as on the left and some bs on the right, then the answer should spring to mind. Let's try [Either a b]. We can then define:<br /><code></code><br /><code>p1 xs = [x | Left x <- xs] -- this is doing a filter and a map at the same time<br />p2 xs = [x | Right x <- xs]</code><br />with the product map<br /><code></code><br /><code>f×g = \ss -> map Left (f ss) ++ map Right (g ss)</code><br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/_XQ7FznWBAYE/TUh6bPr8-jI/AAAAAAAAAHw/GievKDbbwNc/s1600/Product_ListEither.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="179" src="http://3.bp.blogspot.com/_XQ7FznWBAYE/TUh6bPr8-jI/AAAAAAAAAHw/GievKDbbwNc/s320/Product_ListEither.png" width="320" /></a></div><br /><br />Then it is clear that p1 . f×g = f and p2 . f×g = g, as required.<br /><br />What is the relationship between ([a],[b]) and [Either a b]? Well, ([a],[b]) looks a bit like a subset of [Either a b], via the injection i (as,bs) = map Left as ++ map Right bs. However, this injection is not a monoid homomorphism, since<br /><code>i ([],[b1] ++ ([a1],[]) /= i ([],[b1]) ++ i ([a1],[])</code><br />So ([a],[b]) is not a submonoid of [Either a b].<br /><br />On the other hand, there is a projection p :: [Either a b] -> ([a],[b]), p xs = (p1 xs, p2 xs). This is a monoid homomorphism, so ([a],[b]) is a quotient of [Either a b].<br /><br /><br />So which is the right answer? Which of ([a],[b]) and [Either a b] is really the product of [a] and [b]?<br /><br />Well, it depends. It depends which category we think we're working in. If we're working in the category of monoids, then it is ([a],[b]). However, if we're working in the category of free monoids (lists), then it is [Either a b].<br /><br />You see, ([a],[b]) is not a <i>free</i> monoid. What does this mean? Well, it basically means it's not a list. But how do we know that ([a],[b]) isn't equivalent to some list? And anyway, what does "free" mean in free monoid?<br /><br />"Free" is a concept that can be applied to many algebraic theories, not just monoids. There is more than one way to define it.<br /><br />An algebraic theory defines various constants and operations. In the case of monoids, there is one constant - which we may variously call [] or mempty or 0 or 1 - and one operation - ++ or mappend or + or *. Now, a given monoid may turn out to be generated by some subset of its elements - meaning that every element of the monoid can be equated with some expression in the generators, constants, and operations.<br /><br />For example, the monoid of natural numbers is generated by the prime numbers: every natural number is equal to some expression in 1, *, and the prime numbers. The monoid [x] is generated by the singleton lists: every element of [x] is equal to some expression in [], ++, and the singleton lists. By a slight abuse of notation, we can say that [x] is generated by x - by identifying the singleton lists with the image of x under \x -> [x].<br /><br />Then we say that a monoid is free on its generators if there are no relations among its elements other than those implied by the monoid laws. That is, no two expressions in the generators, constants, and operators are equal to one another, unless it is as a consequence of the monoid laws.<br /><br />For example, suppose it happens that<br /><code>(x ++ y) ++ z = x ++ (y ++ z)</code><br />That's okay, because it follows from the monoid laws. On the other hand, suppose that<br /><code>x ++ y = y ++ x</code><br />This does not follow from the monoid laws (unless x = [] or y = []), so is a non-trivial relation. (Thus the natural numbers under multiplication are not a free monoid - because they're commutative.)<br /><br />What about our type ([a],[b]) then? Well consider the following relations:<br /><code></code><br /><code>(as,[]) ++ ([],bs) = ([],bs) ++ (as,[])<br />(as1++as2,bs1) ++ ([],bs2) = (as1,bs1) ++ (as2,bs2) = (as1,[]) ++ (as2,bs1++bs2)</code><br />We have commutativity relations between the [a] and [b] parts of the product. Crucially, these relations are not implied by the monoid structure alone. So intuitively, we can see that ([a],[b]) is not free.<br /><br />The "no relations" definition of free is the algebraic way to think about it. However, there is also a category theory way to define it. The basic idea is that if a monoid is free on its generators, then given any other monoid with the same generators, we can construct it as a homomorphic image of our free monoid, by "adding" the appropriate relations.<br /><br />In order to express this properly, we're going to need to use some category theory, and specifically the concept of the forgetful functor. Recall that given any algebraic category, such as Mon (monoids), there is a forgetful functor U: Mon -> Set, which consists in simply forgetting the algebraic structure. U takes objects to their underlying sets, and arrows to the underlying functions. In Haskell, U: Mon -> Hask consists in forgetting that our objects (types) are monoids, and forgetting that our arrows (functions) are monoid homomorphisms. (As a consequence, U is syntactically invisible in Haskell. However, to properly understand the definition of free, we have to remember that it's there.)<br /><br />Then, given an object x (the generators), a free monoid on x is a monoid y, together with a function i: x -> U y, such that whenever we have an object z in Mon and a function f': x -> U z, then we can lift it to a unique arrow f: y -> z, such that f' = Uf . i.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TUh7ULyTe1I/AAAAAAAAAH0/ajdu5dLSRpI/s1600/Free+monoid.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TUh7ULyTe1I/AAAAAAAAAH0/ajdu5dLSRpI/s320/Free+monoid.png" width="311" /></a></div><br /><br />When we say that lists are free monoids, we mean specifically that (the type) [x] is free on (the type) x, via the function i = \x -> [x] (on values). This is free, because given any other monoid z, and function f' :: x -> z, then we can lift to a monoid homomorphism f :: [x] -> z, with f' = f . i. How? Well, the basic idea is to use concatMap. The type of concatMap is:<br /><code>concatMap :: (a -> [b]) -> [a] -> [b]</code><br />So it's doing the lifting we want. However this isn't quite right, because this assumes that the target monoid z is a list. So we need this slight variant:<br /><code></code><br /><code>mconcatmap :: (Monoid z) => (x -> z) -> [x] -> z<br />mconcatmap f xs = mconcat (map f xs)</code><br />If we set f = mconcatmap f', then we will have<br /><code></code><br /><code>(f . i) x<br />= f (i x)<br />= f [x]<br />= mconcatmap f' [x]<br />= mconcat (map f' [x])<br />= mconcat [f' x]<br />= foldr mappend mempty [f' x] -- definition of mconcat<br />= mappend mempty (f' x) -- definition of foldr<br />= f' x -- identity of mempty</code><br /><br />Now, what would it mean for ([a],[b]) to be free? Well, first, what is it going to be free on? To be free on a and b is the same as being free on Either a b (the disjoint union of a and b). Then our function i is going to be<br /><code></code><br /><code>i (Left a) = ([a],[])<br />i (Right b) = ([],[b])</code><br />Then for ([a],[b]) to be free would mean that whenever we have a function f' :: Either a b -> z, with z a monoid, then we can lift it to a monoid homomorphism f : ([a],[b]) -> z, such that f' = f . i.<br /><br />So can we?<br /><br />Well, what if our target monoid z doesn't satisfy the a-b commutativity relations that we saw. That is, what if:<br /><code>f' a1 `mappend` f' b1 /= f' b1 `mappend` f' a1 -- (A)</code><br />That would be a problem.<br /><br />We are required to find an f such that f' = f . i.<br />We know that i a1 = ([a1],[]), i b1 = ([],[b1]). So we know that i a1 `mappend` i b1 = i b1 `mappend` i a1.<br />f is required to be a monoid homomorphism, so by definition:<br /><code></code><br /><code>f (i a1 `mappend` i b1) = f (i a1) `mappend` f (i b1)<br />f (i b1 `mappend` i a1) = f (i b1) `mappend` f (i a1)</code><br />But then since the two left hand sides are equal, then so are the two right hand sides, giving:<br /><code>f (i a1) `mappend` f (i b1) = f (i b1) `mappend` f (i a1) -- (B)</code><br /><br />But now we have a contradiction between (A) and (B), since f' = f . i.<br /><br />So for a concrete counterexample, showing that ([a],[b]) is not free, all we need is a monoid z in which the a-b commutativity relations don't hold. Well that's easy: [Either a b]. Just take f' :: Either a b -> [Either a b], f' = \x -> [x]. Now try to find an f :: ([a],[b]) -> [Either a b], with f' = f . i.<br /><br />The obvious f is f (as,bs) = map Left as ++ map Right bs.<br />But the problem is that this f isn't a monoid homomorphism:<br /><code>f ( ([],[b1]) `mappend` ([a1],[]) ) /= f ([],[b1]) `mappend` f ([a1],[])</code><br /><br /><br />Notice the connection between the two definitions of free. It was because ([a],[b]) had non-trivial relations that we couldn't lift a function to a monoid homomorphism in some cases. The cases where we couldn't were where the target monoid z didn't satisfy the relations.<br /><br />Okay, so sorry, that got a bit technical. To summarise, the product of [a], [b] in the category of lists / free monoids is [Either a b].<br /><br /><br />What about vector spaces? What is the product of Vect k a and Vect k b?<br /><br />Well, similarly to lists, we can make (Vect k a, Vect k b) into a vector space, by defining<br />0 = (0,0)<br />(a1,b1) + (a2,b2) = (a1+a2,b1+b2)<br />k(a,b) = (ka,kb)<br /><br />Exercise: Show that with these definitions, fst, snd and f .*. g are vector space morphisms (linear maps).<br /><br />Alternatively, Vect k (Either a b) is of course a vector space. We can define:<br /><code></code><br /><code><pre>p1 = linear p1' where<br /> p1' (Left a) = return a<br /> p1' (Right b) = zero<br /><br />p2 = linear p2' where<br /> p2' (Left a) = zero<br /> p2' (Right b) = return b<br /><br />prodf f g = linear fg' where<br /> fg' b = fmap Left (f (return b)) <+> fmap Right (g (return b))<br /></pre></code><br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TUh8jfbnGhI/AAAAAAAAAH4/C1dfdvwkTcw/s1600/Product_VectEither.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="119" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TUh8jfbnGhI/AAAAAAAAAH4/C1dfdvwkTcw/s320/Product_VectEither.png" width="320" /></a></div><br /><br />In this case p1, p2, f×g are vector space morphisms by definition, since they were constructed using "linear". How do we know that they satisfy the product property? Well, this looks like a job for QuickCheck. The following code builds on the code we developed last time:<br /><code></code><br /><code><pre>prop_Product (f',g',x) =<br /> f x == (p1 . fg) x &&<br /> g x == (p2 . fg) x<br /> where f = linfun f'<br /> g = linfun g'<br /> fg = prodf f g<br /><br />newtype SBasis = S Int deriving (Eq,Ord,Show,Arbitrary)<br /><br />prop_ProductQn (f,g,x) = prop_Product (f,g,x)<br /> where types = (f,g,x) :: (LinFun Q SBasis ABasis, LinFun Q SBasis BBasis, Vect Q SBasis)<br /><br />> quickCheck prop_ProductQn<br />+++ OK, passed 100 tests.<br /></pre></code><br /><br />As we did with lists, we can ask again, which is the correct definition of product, (Vect k a, Vect k b), or Vect k (Either a b)?<br /><br />Well, in this case it turns out that they are equivalent to one another, via the mutually inverse isomorphisms<br /><code></code><br /><code>\(va,vb) -> fmap Left va <+> fmap Right vb<br />\v -> (p1 v, p2 v)</code><br />Unlike in the list case, these are both vector space morphisms (linear functions).<br /><br />Why the difference? Why does it work out for vector spaces whereas it didn't for lists? Well, I think it's basically because vector spaces are commutative.<br /><br />(It is also the case that vector spaces are always free on a basis. So since we have an obvious bijection between the bases of (Vect k a, Vect k b) and Vect k (Either a b), then we must have an isomorphism between the vector spaces.)<br /><br /><br />Now, we're left with a little puzzle. We have found that both the product and the coproduct of two vector spaces is Vect k (Either a b). So we still haven't figured out what Vect k (a,b) represents.<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com1tag:blogger.com,1999:blog-5195188167565410449.post-92161491843437585972011-01-21T16:35:00.001+00:002011-01-21T16:38:30.043+00:00Coproducts of lists and free vector spaces<a href="http://haskellformaths.blogspot.com/2011/01/free-vector-space-on-type-part-2.html">Recently</a> we've been looking at vector spaces. We defined a type Vect k b, representing the free k-vector space over a type b - meaning, the vector space consisting of k-linear combinations of the inhabitants of b - so b is the basis. Like any good mathematical structure, vector spaces admit various new-from-old constructions. Last time I posed the puzzle, what do Vect k (Either a b) and Vect k (a,b) represent? As we're aiming for quantum algebra, I'm going to frame the answers in the language of category theory.<br /><br />Suppose we have objects A and B in some category. Then their coproduct (if it exists) is an object A+B, together with injections i1: A -> A+B, i2: B -> A+B, with the following universal property: whenever we have arrows f: A -> T and g: B -> T, they can be factored through A+B to give an arrow f+g: A+B -> T, such that f = f+g . i1, g = f+g . i2.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/TTmxj8viJhI/AAAAAAAAAHQ/MAV4M0oczNQ/s1600/Coproduct.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="148" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/TTmxj8viJhI/AAAAAAAAAHQ/MAV4M0oczNQ/s320/Coproduct.png" width="320" /></a></div><br /><br />Notice that this definition does not give us a <i>construction</i> for the coproduct. In any given category, it doesn't tell us how to construct the coproduct, or even if there is one. Even if we have a construction for the coproduct in one category, there is no guarantee that it, or something similar, will work in another related category.<br /><br />In the category Set, the coproduct of sets A and B is their disjoint union. In order to see this, we can work in the category Hask of Haskell types. We can regard Hask as a subcategory of Set, by identifying a type with its set of inhabitants. If a and b are Haskell types / sets of inhabitants, then their disjoint union is Either a b. The elements of Either a b can be from either a or b (hence, from their union), and they are kept disjoint in the left and right parts of the union (so that for example Either a a contains two copies of a, not just one). The injections i1 and i2 are then the value constructors Left and Right. Given f :: a -> t, g :: b -> t, we define:<br /><code></code><br /><code>(f .+. g) (Left a) = f a<br />(f .+. g) (Right b) = g b</code><br />Then it should be clear that (f .+. g) . Left = f, and (f .+. g) . Right = g, as required<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TTmx2nMkRkI/AAAAAAAAAHU/1NXMJpw8_b8/s1600/Coproduct_Either.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="148" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TTmx2nMkRkI/AAAAAAAAAHU/1NXMJpw8_b8/s320/Coproduct_Either.png" width="320" /></a></div><br /><br />In a moment, we'll look at coproducts of vector spaces, but first, as a warmup, let's think about the coproducts in a simpler category: lists / free monoids. Recall that a monoid is an algebraic structure having an associative operation ++, and an identity for ++ called []. (That is [] ++ x = x = x ++ [].)<br /><br />A monoid homomorphism is a function f :: [a] -> [b] such that f [] = [] and f (a1 ++ a2) = f a1 ++ f a2. With a little thought, you should be able to convince yourself that all monoid homomorphisms are of the form concatMap f', where f' :: a -> [b]. (Which is, incidentally, the same as saying that they are of the form (>>= f').) In the category of free monoids, the arrows are constrained to be monoid homomorphisms.<br /><br />So for our coproduct, we are looking for an object satisfying the universal property shown in the following diagram:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/_XQ7FznWBAYE/TTmyCCzMNCI/AAAAAAAAAHY/2ax929JPXSE/s1600/Coproduct_ListQuestion.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="148" src="http://2.bp.blogspot.com/_XQ7FznWBAYE/TTmyCCzMNCI/AAAAAAAAAHY/2ax929JPXSE/s320/Coproduct_ListQuestion.png" width="320" /></a></div><br /><br />Perhaps the first thing to try is the disjoint union: Either [a] [b]. This is the coproduct of [a] and [b] as sets, but is it also their coproduct as monoids? Well, let's see.<br /><br />Hmm, firstly, it's not a list (doh!): so you can't apply ++ to it, and it doesn't have a []. However, before we give up on that, let's consider whether we're asking the right question. Perhaps we should only be requiring that Either [a] [b] is (or can be made to be) a Monoid instance. Is the disjoint union of two monoids a monoid? Suppose we try to define ++ for it:<br />Left a1 ++ Left a2 = Left (a1++a2)<br />Right b1 ++ Right b2 = Right (b1++b2)<br />But now we begin to see the problem. What are we going to do for Left as ++ Right bs? There's nothing sensible we can do, because our disjoint union Either [a] [b] does not allow mixed lists of as and bs.<br /><br />However, this immediately suggests that we would be better off looking at [Either a b] - the free monoid over the disjoint union of a and b. This is a list - and it does allow us to form mixed lists of as and bs.<br /><br />We can then set i1 = map Left, i2 = map Right, and these are list homomorphisms (they interact with [] and ++ in the required way). Then we can define:<br /><code></code><br /><code></code><br /><code><pre>h = concatMap h' where<br /> h' (Left a) = f' a<br /> h' (Right b) = g' b<br /></pre></code><br />So our suspicion is that [Either a b] is the coproduct, with h the required coproduct map.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/TTmyVzlXgOI/AAAAAAAAAHc/h0fPEl-ivp0/s1600/Coproduct_ListEither.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="148" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/TTmyVzlXgOI/AAAAAAAAAHc/h0fPEl-ivp0/s320/Coproduct_ListEither.png" width="320" /></a></div><br /><br />Let's just check the coproduct conditions:<br />h . i1<br />= concatMap h' . map Left<br />= concatMap f'<br />= f<br />and similarly, h . i2 = g, as required.<br /><br /><br />Notice that the disjoint union Either [a] [b] is (isomorphic to) a subset of the free monoid [Either a b], via Left as -> map Left as; Right bs -> map Right bs. So we were thinking along the right lines in suggesting Either [a] [b]. The problem was that Either [a] [b] isn't a monoid, it's only a set. We can regard [Either a b] as the <i>closure</i> of Either [a] [b] under the monoid operations. [Either a b] is the smallest free monoid containing the disjoint union Either [a] [b] (modulo isomorphism of Haskell types).<br /><br />(This is a bit hand-wavy. This idea of closure under algebraic operations makes sense in maths / set theory, but I'm not quite sure how best to express it in Haskell / type theory. If anyone has any suggestions, I'd be pleased to hear them.)<br /><br />Okay, so what about a coproduct in the category of k-vector spaces. First, recall that the arrows in this category are linear maps f satisfying f (a+b) = f a + f b, f (k*a) = k * f a. Again, it should be obvious that a linear map is fully determined by its action on basis elements - so every linear map f :: Vect k a -> Vect k b can be expressed as linear f' where f' :: a -> Vect k b.<br /><br />Recall that we defined linear f' last time - it's really just (>>= f'), but followed by reduction to normal form:<br /><code>linear f v = nf $ v >>= f</code><br /><br />Okay, so vector spaces of course have underlying sets, so we will expect the coproduct of Vect k a and Vect k b to contain the disjoint union Either (Vect k a) (Vect k b). As with lists though, we will have the problem that this is not closed under vector addition - we can't add an element of Vect k a to an element of Vect k b within this type.<br /><br />So as before, let's try Vect k (Either a b). Then we can set i1 = fmap Left, i2 = fmap Right, and they are both linear maps by construction. (We don't need to call nf afterwards, since Left and Right are order-preserving.)<br /><code></code><br /><code>i1 = fmap Left<br />i2 = fmap Right</code><br />Then we can define the coproduct map (f+g) as follows:<br /><code></code><br /><code></code><br /><code><pre>coprodf f g = linear fg' where<br /> fg' (Left a) = f (return a)<br /> fg' (Right b) = g (return b)<br /></pre></code><br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/_XQ7FznWBAYE/TTm2O7Lg4FI/AAAAAAAAAHg/n9XoBxGxe5U/s1600/Coproduct_VectEither.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="114" src="http://3.bp.blogspot.com/_XQ7FznWBAYE/TTm2O7Lg4FI/AAAAAAAAAHg/n9XoBxGxe5U/s320/Coproduct_VectEither.png" width="320" /></a></div><br /><br />We need to verify that this satisfies the coproduct conditions: f+g . i1 = f and f+g . i2 = g. It would be nice to test this using a QuickCheck property. In order to do that, we need a way to construct arbitrary <i>linear</i> maps. (This is not the same thing as arbitrary <i>functions</i> Vect k a -> Vect k b, so I don't think that I can use QuickCheck's Coarbitrary class - but the experts may know better.) Luckily, that is fairly straightforward: we can construct arbitrary lists [(a, Vect k b)], and then each pair (a,vb) can be interpreted as saying that the basis element a is taken to the vector vb.<br /><code></code><br /><code></code><br /><code><pre>type LinFun k a b = [(a, Vect k b)]<br /><br />linfun :: (Eq a, Ord b, Num k) => LinFun k a b -> Vect k a -> Vect k b<br />linfun avbs = linear f where<br /> f a = case lookup a avbs of<br /> Just vb -> vb<br /> Nothing -> zero<br /></pre></code><br />With that preparation, here is a QuickCheck property that expresses the coproduct condition.<br /><code></code><br /><code></code><br /><code><pre>prop_Coproduct (f',g',a,b) =<br /> f a == (fg . i1) a &&<br /> g b == (fg . i2) b<br /> where f = linfun f'<br /> g = linfun g'<br /> fg = coprodf f g<br /></pre></code><br />That property can be used for any vector spaces. Let's define some particular vector spaces to do the test on.<br /><code></code><br /><code></code><br /><code><pre>newtype ABasis = A Int deriving (Eq,Ord,Show,Arbitrary) -- GeneralizedNewtypeDeriving<br />newtype BBasis = B Int deriving (Eq,Ord,Show,Arbitrary)<br />newtype TBasis = T Int deriving (Eq,Ord,Show,Arbitrary)<br /><br />instance (Num k, Ord b, Arbitrary k, Arbitrary b) => Arbitrary (Vect k b) where<br /> arbitrary = do ts <- arbitrary :: Gen [(b, k)] -- ScopedTypeVariables<br /> return $ nf $ V ts<br /></pre></code><br />(I should emphasize that not all vector space bases are newtypes around Int - we can have finite bases, or bases with other interesting internal structure, as we will see in later installments. For the purposes of this test however, I think this is sufficient.)<br /><code></code><br /><code></code><br /><code><pre>prop_CoproductQn (f,g,a,b) = prop_Coproduct (f,g,a,b)<br /> where types = (f,g,a,b) :: (LinFun Q ABasis TBasis, LinFun Q BBasis TBasis, Vect Q ABasis, Vect Q BBasis)<br /><br />> quickCheck prop_CoproductQn<br />+++ OK, passed 100 tests.<br /></pre></code><br />So we do indeed have a coproduct on vector spaces. To summarise: The coproduct of free vector spaces is the free vector space on the coproduct (of the bases).<br /><br />Next time, we'll look at products - where there might be a small surprise.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com5tag:blogger.com,1999:blog-5195188167565410449.post-12947935802267178662011-01-10T21:26:00.000+00:002011-01-10T21:26:41.201+00:00The free vector space on a type, part 2<a href="http://haskellformaths.blogspot.com/2010/12/free-vector-space-on-type-part-1.html">Last time</a>, I defined the free k-vector space over a type b:<br /><code></code><br /><code>data Vect k b = V [(b,k)]</code><br />Elements of Vect k b represent formal sums of scalar multiples of elements of b, where the scalars are taken from the field k. (For example, V [(E1,5),(E3,2)] represents the formal sum 5E1+2E3.) Thus b is the basis for the vector space.<br /><br />We saw that there is a functor (in the mathematical sense) from the category <b>Hask</b> (of Haskell types and functions) to the category <b>k-Vect</b> (of k-vector spaces and k-linear maps). In maths, we would usually represent a functor by a capital letter, eg F, and apply it to objects and arrows by prefixing. For example, if a, b are objects in the source category, then the image objects in the target category would be called F a and F b. If f :: a -> b is an arrow in the source category, then the image arrow in the target category would be called F f.<br /><br />Haskell allows us to declare a type constructor as a Functor instance, and give it an implementation of fmap. This corresponds to describing a functor (in the mathematical sense), but with a different naming convention. In our case, we declared the type constructor (Vect k) as a Functor instance. So the functor's action on objects is called (Vect k) - given any object b in <b>Hask</b> (ie a Haskell type), we can apply (Vect k) to get an object Vect k b in <b>k-Vect</b> (ie a k-vector space). However, the functor's action on arrows is called fmap - given any arrow f :: a -> b in <b>Hask</b> (ie a Haskell function), we can apply fmap to get an arrow fmap f :: Vect k a -> Vect k b in <b>k-Vect</b> (ie a k-linear map).<br /><br />Haskell allows us to declare <i>only</i> type constructors as functors. In maths, there are many functors which are not of this form. For example, the simplest is the <i>forgetful</i> functor. Given any algebraic category <b>A</b>, we have the forgetful functor <b>A</b> -> <b>Set</b>, which simply forgets the algebraic structure. The forgetful functor takes the objects of <b>A</b> to their underlying sets, and the arrows of <b>A</b> to the underlying functions.<br /><br />For example, in our case, the forgetful functor <b>k-Vect</b> -> <b>Hask</b> consists in forgetting that the objects Vect k b are vector spaces (with addition, scalar multiplication etc defined), and considering them just as Haskell types; and forgetting that the arrows Vect k a -> Vect k b are linear maps, and considering them just as Haskell functions.<br /><br />(Notice that when working in Haskell, the category <b>Hask</b> acts as a kind of stand-in for the category <b>Set</b>. If we identify a type with its inhabitants (which form a set), then <b>Hask</b> is something like the computable subcategory of <b>Set</b>.)<br /><br /><br />So we actually have functors going both ways. We have the <i>free</i> functor F: <b>Hask</b> -> <b>k-Vect</b> - which takes types and functions to free k-vector spaces and linear maps. And we have the forgetful functor G: <b>k-Vect</b> -> <b>Hask</b> - which takes free k-vector spaces and linear maps, and just forgets their algebraic structure, so that they're just types and functions again.<br /><br />Note that these two functors are <i>not</i> mutual inverses. (G . F) is not the identity on Hask - indeed it takes b to Vect k b, both considered as objects in <b>Hask</b> (and similarly with arrows). The two functors are however <i>adjoint</i>. (I'm not going to explain what this means, but see <a href="http://en.wikipedia.org/wiki/Adjoint_functors">Wikipedia</a>, or most books on category theory.)<br /><br />Whenever we have an adjunction, then in fact we also have a monad. Here's the definition for our case:<br /><code></code><br /><code><pre>instance Num k => Monad (Vect k) where<br /> return a = V [(a,1)]<br /> V ts >>= f = V $ concat [ [(b,y*x) | let V us = f a, (b,y) <- us] | (a,x) <- ts]<br /></pre></code><br />This monad is most easily understood using the <a href="http://www.haskell.org/haskellwiki/Monads_as_containers">monad as container</a> analogy. A free k-vector space over b is just a container of elements of b. Okay, so it's a slightly funny sort of container. It most resembles a multiset or bag - an unordered container in which you can have more than one of each element. However, free k-vector spaces go further. A free Q-vector space is a container in which we're allowed to have fractional or negative amounts of each basis element, such as 1/2 e1 - 3 e2. In a free C-vector space, we're even allowed imaginary amounts of each element, such as i e3.<br /><br />These oddities aside though, free k-vector spaces are monads in much the same way as any other container. For example, let's compare them to the list monad.<br />- For a container monad, <code>return</code> means "put into the container". For List, return a is [a]. For k-Vect, return a is 1 a (where 1 is the scalar 1 in our field k).<br />- For container monads, it's most natural to look next at the <code>join</code> operation, which combines a container of containers into a single container. For List, join = concat. For k-Vect, join combines a linear combination of linear combinations into a single linear combination (in the obvious way).<br />- Finally there is bind or <code>(>>=)</code>. bind can be defined in terms of join and fmap:<br /><code>x >>= f = join ((fmap f) x)</code><br />For lists, bind is basically concatMap. For k-Vect, bind corresponds to extending a function on basis elements to a function on vectors "by linearity". That is, if f :: a -> Vect k b, then (>>= f) :: Vect k a -> Vect k b is defined (in effect, by structural induction) so as to be linear, by saying that (>>= f) 0 = 0, (>>= f) (k a) = k (f a), (>>= f) (a + b) = f a + f b.<br /><br />So k-Vect is like just a strange sort of list. Think of them as distant cousins. Incidentally, this is not only because they're both containers (if you believed my story about k-Vect being a container). There's another reason: Both the List and k-Vect monads arise from free-forgetful adjunctions. In the case of lists, the list datatype is the free monoid, and the list monad arises from the free-forgetful adjunction for monoids.<br /><br />That's most of what I wanted to say for now. However, there's one small detail to add. Last time we defined a normal form for elements of Vect k b, in which the basis elements are in order, without repeats, and none of the scalars are zero. In order to calculate this normal form, we require an Ord instance for b. Unfortunately, Haskell doesn't let us specify that when defining the Monad instance for (Vect k). So whenever we use (>>=), we should call nf afterwards, to put the result in normal form.<br /><br />For this reason, we define a convenience function:<br /><code></code><br /><code>linear :: (Ord b, Num k) => (a -> Vect k b) -> Vect k a -> Vect k b<br />linear f v = nf $ v >>= f</code><br />Given f :: a -> Vect k b, linear f :: Vect k a -> Vect k b is the extension of f from basis elements to vectors "by linearity". Hence, linear f is guaranteed to be linear, by construction. We can confirm this on an example using the QuickCheck properties we defined last time.<br /><code></code><br /><code>> let f (E 1) = e1; f (E 2) = e1 <+> e2; f _ = zero<br />> (linear f) (e1 <+> e2)<br />2e1+e2<br />> quickCheck (prop_LinearQn (linear f))<br />+++ OK, passed 100 tests.</code><br /><br />Acknowledgement: I'm partially retreading in Dan Piponi's steps here. He first described the free vector space monad <a href="http://blog.sigfpe.com/2007/02/monads-for-vector-spaces-probability.html">here</a>. When I come to discuss the connection between quantum algebra and knot theory, I'll be revisiting some more material that Dan sketched out <a href="http://blog.sigfpe.com/2008/10/untangling-with-continued-fractions.html">here</a>.<br /><br />Exercise for next time: What does Vect k (Either a b) represent? What does Vect k (a,b) represent?<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com2tag:blogger.com,1999:blog-5195188167565410449.post-46720690978546472832010-12-13T19:53:00.000+00:002010-12-13T19:53:55.048+00:00The free vector space on a type, part 1As I mentioned last time, I want to spend the next few posts talking about quantum algebra. Well, we've got to start somewhere, so let's start with vector spaces.<br /><br />You probably know what a vector space is. It's what is sounds like: a space of vectors, that you can add together, or multiply by scalars (that is, real numbers, or more generally, elements of some field k). Here's the official definition:<br />An additive (or Abelian) group is a set with a binary operation called addition, such that<br />- addition is associative: x+(y+z) = (x+y)+z<br />- addition is commutative: x+y = y+x<br />- there is an additive identity: x+0 = x = 0+x<br />- there are additive inverses: x+(-x) = 0 = (-x)+x<br />A vector space over a field k is an additive group V, together with an operation k * V -> V called scalar multiplication, such that:<br />- scalar multiplication distributes over vector addition: a(x+y) = ax+ay<br />- scalar multiplication distributes over scalar addition: (a+b)x = ax+bx<br />- associativity: (ab)x = a(bx)<br />- unit: 1a = a<br /><br />There are some obvious examples:<br />- R^2 is a 2-dimensional vector space over the reals R, R^3 is a 3-dimensional vector space. (I'm not going to define dimension quite yet, but hopefully it's intuitively obvious what it means.)<br />- R^n is an R-vector space for any n.<br />- Indeed, k^n is a k-vector space for any field k.<br /><br />Some slightly more interesting examples:<br />- C is a 2-dimensional vector space over R. (The reason it's more interesting is that of course C possesses additional algebraic structure, beyond the vector space structure.)<br />- 2*2 matrices over k form a 4-dimensional k-vector space.<br />- Polynomials in X with coefficients in k form an (infinite dimensional) k-vector space.<br /><br /><br />If we wanted to code the above definition into Haskell, probably the first idea that would come to mind would be to use type classes:<br /><code></code><br /><code><pre>class AddGrp a where<br /> add :: a -> a -> a<br /> zero :: a<br /> neg :: a -> a -- additive inverse<br /><br />class (Field k, AddGrp v) => VecSp k v where<br /> smult :: k -> v -> v -- scalar multiplication<br /></pre></code><br />(Type classes similar to these are defined are in the <a href="http://hackage.haskell.org/package/vector-space">vector-space</a> package.)<br /><br /><br />For most vector spaces that one encounters in "real life", there is some set of elements, usually obvious, which form a "basis" for the vector space, meaning that all elements can be expressed as linear combinations of basis elements. For example, in R^3, the obvious basis is {(0,0,1), (0,1,0), (1,0,0)}. Any element (x,y,z) of R^3 can be expressed as the linear combination x(1,0,0)+y(0,1,0)+z(0,0,1).<br /><br />(Mathematicians would want to stress that there are other bases for R^3 that would serve equally well, and indeed, that a significant part of the theory of vector spaces can go through without even talking about bases. However, for our purposes - we want to write code to calculate in vector spaces - then working with a basis is natural.)<br /><br /><br />Okay, so we want a way to build a vector space from a basis. (More specifically, a k-vector space, for some given field k.) What sorts of things shall we allow as our basis? Well, why not just allow any type, whatsoever:<br /><code></code><br /><code>module Math.Algebras.VectorSpace where<br /><br />import qualified Data.List as L<br /><br />data Vect k b = V [(b,k)] deriving (Eq,Ord)</code><br /><br />This says that a k-vector space over basis b consists of a linear combination of elements of b. (So the [(b,k)] is to be thought of as a sum, with each (b,k) pair representing a basis element in b multiplied by a scalar coefficient in k.)<br /><br />For example, we can define the "boring basis" type, which just consists of numbered basis elements:<br /><code></code><br /><code>newtype EBasis = E Int deriving (Eq,Ord)<br /><br />instance Show EBasis where show (E i) = "e" ++ show i<br /><br />e i = return (E i) -- don't worry about what "return" is doing here for the moment<br />e1 = e 1<br />e2 = e 2<br />e3 = e 3</code><br /><br />Then a typical element of Vect Double EBasis is:<br /><code></code><br /><code>> :load Math.Algebras.VectorSpace<br />> V [(E 1, 0.5), (E 3, 0.7)]<br />0.5e1+0.7e3</code><br /><br />So of course, the Show instances for EBasis (see above), and Vect k b (not shown) are coming into play here.<br /><br />How do we know that this <i>is</i> a vector space? Well actually, it's not yet, because we haven't defined the addition and scalar multiplication operations on it. So, without further ado:<br /><code></code><br /><code><pre>infixr 7 *><br />infixl 6 <+><br /><br />-- |The zero vector<br />zero :: Vect k b<br />zero = V []<br /><br />-- |Addition of vectors<br />add :: (Ord b, Num k) => Vect k b -> Vect k b -> Vect k b<br />add (V ts) (V us) = V $ addmerge ts us<br /><br />-- |Addition of vectors (same as add)<br />(<+>) :: (Ord b, Num k) => Vect k b -> Vect k b -> Vect k b<br />(<+>) = add<br /><br />addmerge ((a,x):ts) ((b,y):us) =<br /> case compare a b of<br /> LT -> (a,x) : addmerge ts ((b,y):us)<br /> EQ -> if x+y == 0 then addmerge ts us else (a,x+y) : addmerge ts us<br /> GT -> (b,y) : addmerge ((a,x):ts) us<br />addmerge ts [] = ts<br />addmerge [] us = us<br /><br />-- |Negation of vector<br />neg :: (Num k) => Vect k b -> Vect k b<br />neg (V ts) = V $ map (\(b,x) -> (b,-x)) ts<br /><br />-- |Scalar multiplication (on the left)<br />smultL :: (Num k) => k -> Vect k b -> Vect k b<br />smultL 0 _ = zero -- V []<br />smultL k (V ts) = V [(ei,k*xi) | (ei,xi) <- ts]<br /><br />-- |Same as smultL. Mnemonic is "multiply through (from the left)"<br />(*>) :: (Num k) => k -> Vect k b -> Vect k b<br />(*>) = smultL<br /></pre></code><br />A few things to mention:<br />- First, note that we required a Num instance for k. Strictly speaking, as we stated that k is a field, then we should have required a Fractional instance. However, on occasion we are going to break the rules slightly.<br />- Second, note that for addition, we required an Ord instance for b. We could have defined addition using (++) to concatenate linear combinations - however, the problem with that is that it wouldn't then easily follow that e1+e3 = e3+e1, or that e1+e1 = 2e1. By requiring an Ord instance, we can guarantee that there is a unique normal form in which to express any vector - namely, list the basis elements in order, combine duplicates, remove zero coefficients.<br />- Finally, note that I didn't define Vect k b as an instance of a vector space type class. That's just because I didn't yet see a reason to.<br /><br />It will turn out to be useful to have a function that can take an arbitrary element of Vect k b and return a vector in normal form:<br /><code></code><br /><code><pre>-- |Convert an element of Vect k b into normal form. Normal form consists in having the basis elements in ascending order,<br />-- with no duplicates, and all coefficients non-zero<br />nf :: (Ord b, Num k) => Vect k b -> Vect k b<br />nf (V ts) = V $ nf' $ L.sortBy compareFst ts where<br /> nf' ((b1,x1):(b2,x2):ts) =<br /> case compare b1 b2 of<br /> LT -> if x1 == 0 then nf' ((b2,x2):ts) else (b1,x1) : nf' ((b2,x2):ts)<br /> EQ -> if x1+x2 == 0 then nf' ts else nf' ((b1,x1+x2):ts)<br /> GT -> error "nf': not pre-sorted"<br /> nf' [(b,x)] = if x == 0 then [] else [(b,x)]<br /> nf' [] = []<br /> compareFst (b1,x1) (b2,x2) = compare b1 b2<br /></pre></code><br />Okay, so we ought to check that the Vect k b is a vector space. Let's write some QuickCheck properties:<br /><code></code><br /><code><pre>prop_AddGrp (x,y,z) =<br /> x <+> (y <+> z) == (x <+> y) <+> z && -- associativity<br /> x <+> y == y <+> x && -- commutativity<br /> x <+> zero == x && -- identity<br /> x <+> neg x == zero -- inverse<br /><br />prop_VecSp (a,b,x,y,z) =<br /> prop_AddGrp (x,y,z) &&<br /> a *> (x <+> y) == a *> x <+> a *> y && -- distributivity through vectors<br /> (a+b) *> x == a *> x <+> b *> x && -- distributivity through scalars<br /> (a*b) *> x == a *> (b *> x) && -- associativity<br /> 1 *> x == x -- unit<br /><br />instance Arbitrary EBasis where<br /> arbitrary = do n <- arbitrary :: Gen Int<br /> return (E n)<br /><br />instance Arbitrary Q where<br /> arbitrary = do n <- arbitrary :: Gen Integer<br /> d <- arbitrary :: Gen Integer<br /> return (if d == 0 then fromInteger n else fromInteger n / fromInteger d)<br /><br />instance Arbitrary (Vect Q EBasis) where<br /> arbitrary = do ts <- arbitrary :: Gen [(EBasis, Q)]<br /> return $ nf $ V ts<br /><br />prop_VecSpQn (a,b,x,y,z) = prop_VecSp (a,b,x,y,z)<br /> where types = (a,b,x,y,z) :: (Q, Q, Vect Q EBasis, Vect Q EBasis, Vect Q EBasis)<br /><br />> quickCheck prop_VecSpQn<br />+++ OK, passed 100 tests.<br /></pre></code><br />(I'm using Q instead of R as my field in order to avoid false negatives caused by the fact that arithmetic in Double is not exact.)<br /><br />So it looks like Vect k b is indeed a vector space. In category theory, it is called the <i>free</i> k-vector space over b. "Free" here means that there are no relations among the basis elements: it will never turn out, for example, that e1 = e2+e3.<br /><br /><br />Vector spaces of course form a category, specifically an algebraic category (there are other types, as we'll see in due course). The objects in the category are the vector spaces. The arrows or morphisms in the category are the functions between vector spaces which "commute" with the algebraic structure. Specifically, they are the functions f such that:<br />- f(x+y) = f(x)+f(y)<br />- f(0) = 0<br />- f(-x) = -f(x)<br />- f(a.x) = a.f(x)<br /><br />Such a function is called <i>linear</i>, the idea being that it preserves lines. This is because it follows from the the conditions that f(a.x+b.y) = a.f(x)+b.f(y) .<br /><br />We can write a QuickCheck property to check whether a given function is linear:<br /><code></code><br /><code><pre>prop_Linear f (a,x,y) =<br /> f (x <+> y) == f x <+> f y &&<br /> f zero == zero &&<br /> f (neg x) == neg (f x) &&<br /> f (a *> x) == a *> f x<br /><br />prop_LinearQn f (a,x,y) = prop_Linear f (a,x,y)<br /> where types = (a,x,y) :: (Q, Vect Q EBasis, Vect Q EBasis)<br /></pre></code><br />For example:<br /><code></code><br /><code>> quickCheck (prop_LinearQn (2 *>))<br />+++ OK, passed 100 tests.</code><br /><br />We won't need to use this quite yet, but it's handy to have around.<br /><br /><br />Now, in category theory we have the concept of a functor, which is a map from one category to another, which commutes with the category structure. Specifically, a functor F consists of a map from the objects of one category to the objects of the other, and from the arrows of one category to the arrows of the other, satisfying:<br />- F(id_A) = id_F(A)<br />- F(f . g) = F(f) . F(g) (where dot denotes function composition)<br /><br />How does this relate to the Functor type class in Haskell? Well, the Haskell type class enables us to declare that a /type constructor/ is a functor. For example, (Vect k) is a type constructor, which acts on a type b to construct another type Vect k b. (Vect k) is indeed a functor, witness the following declaration:<br /><code></code><br /><code><pre>instance Functor (Vect k) where<br /> fmap f (V ts) = V [(f b, x) | (b,x) <- ts]<br /></pre></code><br />This says that if we have a function f on our basis elements, then we can lift it to a function on linear combinations of basis elements in the obvious way.<br /><br />In mathematics, we would think of the free vector space construction as a functor from <b>Set</b> (the category of sets) to <b>k-Vect</b> (the category of k-vector spaces). In Haskell, we need to think of the (Vect k) construction slightly differently. It operates on types, rather than sets, so the source category is <b>Hask</b>, the category of Haskell types.<br /><br />What is the relationship between <b>Hask</b> and <b>Set</b>? Well, if we identify a type with the set of values which inhabit it, then we can regard <b>Hask</b> as a subcategory of <b>Set</b>, consisting of those sets and functions which can be represented in Haskell. (That would imply for example that we are restricted to <i>computable</i> functions.)<br /><br />So (Vect k) is a functor from <b>Hask</b> to the subcategory of <b>k-Vect</b> consisting of vector spaces over sets/types in <b>Hask</b>.<br /><br />So just to spell it out, the (Vect k) functor:<br />- Takes an object b in <b>Hask</b>/<b>Set</b> - ie a type, or its set of inhabitants - to an object Vect k b in <b>k-Vect</b><br />- Takes an arrow f in <b>Hask</b> (ie a function f :: a -> b), to an arrow (fmap f) :: Vect k a -> Vect k b in <b>k-Vect</b>.<br /><br />Now, there's just one small fly in the ointment. In order to get equality of vectors to work out right, we wanted to insist that they were expressed in normal form, which meant we needed an Ord instance for b. However, in the Functor instance for (Vect k), Haskell doesn't let us express this constraint, and our fmap is unable to use the Ord instance for b. What this means is that fmap f might return a vector which is not in normal form - so we need to remember to call nf afterwards. For example:<br /><code></code><br /><code>newtype FBasis = F Int deriving (Eq,Ord)<br /><br />instance Show FBasis where show (F i) = "f" ++ show i<br /><br />> let f = \(E i) -> F (10 - div i 2)<br />> let f' = fmap f :: Vect Q EBasis -> Vect Q FBasis<br />> f' (e1 <+> 2 *> e2 <+> e3)<br />f10+2f9+f9<br />> let f'' = nf . fmap f :: Vect Q EBasis -> Vect Q FBasis<br />> f'' (e1 <+> 2 *> e2 <+> e3)<br />3f9+f10</code><br /><br />So it might be fairer to say that it is the combination of nf and fmap that forms the functor on arrows.<br /><br />The definition of a functor requires that the target arrow is an arrow in the target category. In this case, the requirement is that it is a linear function, rather than just any function between vector spaces. So let's just check:<br /><code></code><br /><code>> quickCheck (prop_LinearQn f'')<br />+++ OK, passed 100 tests.</code><br /><br />That's enough for now - more next time.<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com2tag:blogger.com,1999:blog-5195188167565410449.post-32656073310517911352010-11-07T18:16:00.000+00:002010-11-07T18:16:52.165+00:00New modules - Quantum AlgebraI've put up a new version of HaskellForMaths on <a href="http://hackage.haskell.org/package/HaskellForMaths">Hackage</a>, v0.3.1. It's quite a significant update, with more than a dozen new modules, plus improved documentation of several existing modules. I wrote the new modules in the course of reading Kassel's Quantum Groups. The modules are about algebras, coalgebras, bialgebras, Hopf algebras, tensor categories and quantum algebra.<br /><br />The new modules fall into two groups:<br /><br /><ul><li>Math.Algebras.* - Modules about algebras (and co-, bi- and Hopf algebras) in general</li><li>Math.QuantumAlgebra.* - Modules specifically about quantum algebra</li></ul><br />In (slightly) more detail, here are the modules:<br /><br /><ul><li>Math.Algebras.VectorSpace - defines a type for the free k-vector space over a basis set b </li><li>Math.Algebras.TensorProduct - defines tensor product of two vector spaces</li><li>Math.Algebras.Structures - defines a number of additional algebraic structures that can be given to vector spaces: algebra, coalgebra, bialgebra, Hopf algebra, module, comodule</li><li>Math.Algebras.Quaternions - a simple example of an algebra</li><li>Math.Algebras.Matrix - the 2*2 matrices - another simple example of an algebra</li><li>Math.Algebras.Commutative - commutative polynomials (such as x^2+3yz) - another algebra</li><li>Math.Algebras.NonCommutative - non-commutative polynomials (where xy /= yx) - another algebra</li><li>Math.Algebras.GroupAlgebra - a key example of a Hopf algebra</li><li>Math.Algebras.AffinePlane - the affine plane and its symmetries - more Hopf algebras, preparing for the quantum plane</li><li>Math.Algebras.TensorAlgebra</li><li>Math.Algebras.LaurentPoly - we use Laurent polynomials in q (that is, polynomials in q and q^-1) as our quantum scalars</li></ul><br /><br /><br /><ul><li>Math.QuantumAlgebra.QuantumPlane - the quantum plane and its symmetries, as examples of non-commutative, non-cocommutative Hopf algebras</li><li>Math.QuantumAlgebra.TensorCategory</li><li>Math.QuantumAlgebra.Tangle - The tangle category (which includes knots, links and braids as subcategories), and some representations (from which we derive knot invariants)</li><li>Math.QuantumAlgebra.OrientedTangle</li></ul><br />The following diagram is something like a dependency diagram, with "above" meaning "depends on".<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/_XQ7FznWBAYE/TNbrgDNoIPI/AAAAAAAAAHI/-QY8b9soqns/s1600/QA+modules.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="305" src="http://3.bp.blogspot.com/_XQ7FznWBAYE/TNbrgDNoIPI/AAAAAAAAAHI/-QY8b9soqns/s640/QA+modules.png" width="640" /></a></div><br />Each layer depends on the layers beneath it. There are also a few dependencies within layers, that I've hinted at by proximity.<br /><br />Some of these modules overlap somewhat in content with other modules that already exist in HaskellForMaths. In particular, there are already modules for commutative algebra, non-commutative algebra, and knot theory. For the moment, those existing modules still offer some features not offered by the new modules (for example, calculation of Groebner bases).<br /><br />For the next little while in this blog, I want to start going through these new modules, and investigating quantum algebra. I should emphasize that this is still work in progress. For example, I'm intending to add modules for quantum enveloping algebras - but I have some reading to do first.<br /><br />(Oh, and I know that I did previously promise to look at finite simple groups, and Coxeter groups, in this blog. I'll probably still come back to those at some point.)<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-269194141288970632010-10-14T20:03:00.000+01:002010-10-14T20:03:26.038+01:00Word length in the Symmetric groupPreviously on this blog, we saw how to think about groups abstractly via group presentations, where a group is given as a set of generators satisfying specified relations. Last time, we saw that questions about the length of reduced words in such a presentation can be visualised as questions about the length of paths in the Cayley graph of the group (relative to the generators).<br /><br />This time, I want to focus on just one family of groups - the symmetric groups Sn, as generated by the adjacent transpositions {si = (i i+1)}. Here's the Haskell code defining this presentation of Sn:<br /><code></code><br /><code><pre>newtype SGen = S Int deriving (Eq,Ord)<br /><br />instance Show SGen where<br /> show (S i) = "s" ++ show i<br /><br />_S n = (gs, r ++ s ++ t) where<br /> gs = map S [1..n-1]<br /> r = [([S i, S i],[]) | i <- [1..n-1]]<br /> s = [(concat $ replicate 3 [S i, S (i+1)],[]) | i <- [1..n-2]]<br /> t = [([S i, S j, S i, S j],[]) | i <- [1..n-1], j <- [i+2..n-1]]<br /></pre></code><br />The three sets of relations say: each generator si squares to the identity; if i, j are not adjacent, then si and sj commute; if i, j are adjacent, then (si*sj)^3 is the identity.<br /><br />Here is the Cayley graph for S4 under this presentation:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TLdQa1RiUJI/AAAAAAAAAHE/89shnGJO6rA/s1600/CayleyGraphS4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TLdQa1RiUJI/AAAAAAAAAHE/89shnGJO6rA/s1600/CayleyGraphS4.png" /></a></div><br />The vertices are labeled with the reduced words in the generators si. How can we find out which permutations these correspond to? Well, that's easy:<br /><code></code><br /><code>fromTranspositions ts = product $ map (\(S i) -> p [[i,i+1]]) ts</code><br />For example:<br /><code></code><br /><code>> :load Math.Algebra.Group.CayleyGraph<br />> fromTranspositions [S 1, S 2, S 1, S 3, S 2, S 1]<br />[[1,4],[2,3]]</code><br />This is the permutation that reverses the list [1..4]<br /><code></code><br /><code>> map (.^ it) [1..4]<br />[4,3,2,1]</code><br />What about the other way round? Suppose we are given a permutation in Sn. How do we find its expression as a product of the transpositions si? Well the answer is (roughly): use <a href="http://en.wikipedia.org/wiki/Bubblesort">bubblesort</a>!<br /><br />Here's bubblesort in Haskell:<br /><code></code><br /><code><pre>bubblesort [] = []<br />bubblesort xs = bubblesort' [] xs where<br /> bubblesort' ls (r1:r2:rs) = if r1 <= r2 then bubblesort' (r1:ls) (r2:rs) else bubblesort' (r2:ls) (r1:rs)<br /> bubblesort' ls [r] = bubblesort (reverse ls) ++ [r]<br /></pre></code><br />So we sweep through the list from front to back, swapping any pairs that we find out of order - and then repeat. At the end of each sweep, we're guaranteed that the last element (in sort order) has reached the end of the list - so for the next sweep, we can leave it at the end and only sweep through the earlier elements. Hence the list we're sweeping through is one element shorter each time, so we're guaranteed to terminate. (We could terminate early, the first time a sweep makes no swaps - but I haven't coded that.)<br /><br />Just to prove that the code works:<br /><code></code><br /><code>> bubblesort [2,3,1]<br />[1,2,3]</code><br />How does this help for turning a permutation into a sequence of transpositions? Well it's simple - every time we swap two elements, we are performing a transposition - so just record which swaps we perform. So here's a modified version of the above code, which records the swaps:<br /><code></code><br /><code><pre>-- given a permutation of [1..n] (as a list), return the transpositions which led to it<br />toTrans [] = []<br />toTrans xs = toTrans' 1 [] [] xs where<br /> toTrans' i ts ls (r1:r2:rs) =<br /> if r1 <= r2<br /> then toTrans' (i+1) ts (r1:ls) (r2:rs) -- no swap needed<br /> else toTrans' (i+1) (S i : ts) (r2:ls) (r1:rs) -- swap needed<br /> toTrans' i ts ls [r] = toTrans (reverse ls) ++ ts<br /></pre></code><br />Notice that the ts are returned in reverse to the order that they were used. This is because we are using them to <i>undo</i> the permutation - so we are performing the <i>inverse</i> of the permutation we are trying to find. Since each generator is its own inverse, we can recover the permutation we are after simply by reversing. In the code, we reverse as we go along.<br /><br />For example:<br /><code></code><br /><code>> toTrans [2,3,1]<br />[s1,s2]<br />> toTrans [4,3,2,1]<br />[s1,s2,s1,s3,s2,s1]</code><br />Now, there's only one problem. As you can see, this code takes as input a rearrangement of [1..n]. This is a permutation, yes, but considered passively. Whereas in this blog we have been more accustomed to thinking of permutations actively, as something a bit like a function, which has an action on a graph, or other combinatorial structure, or if you like, just on the set [1..n]. In other words, our Permutation type represents the action itself, not the outcome of the action. (Recall that the implementation uses a Data.Map of (from,to) pairs.)<br /><br />But of course it's easy to convert from one viewpoint to the other. So here's the code to take a permutation in cycle notation and turn it into a sequence of transpositions:<br /><code></code><br /><code><pre>-- given a permutation action on [1..n], factor it into transpositions<br />toTranspositions 1 = []<br />toTranspositions g = toTrans [i .^ (g^-1) | i <- [1..n] ] where<br /> n = maximum $ supp g<br /></pre></code><br />For example:<br /><code></code><br /><code>> toTranspositions $ p [[1,4],[2,3]]<br />[s1,s2,s1,s3,s2,s1]</code><br />Why does the code have [i .^ (g^-1) | i <- [1..n]], rather than [i .^ g | i <- [1..n]]?<br />Well, suppose i .^ g = j. This says that g moves i to the j position. But we want to know what ends up in the i position. Suppose that j .^ g = i, for some j. Applying g^-1 to both sides, we see that j = i .^ (g^-1).<br /><br /><br />Okay, so given a permutation, in either form, we can reconstruct it as a reduced word in the generators.<br /><br />We saw last time that the length of a reduced word is also the length of the shortest path from 1 to the element in the Cayley graph. Distance in the Cayley graph is a metric on the group, so the length of a reduced word tells us "how far" the element is from being the identity.<br /><br />If it's only this distance that we're interested in, then there is a more direct way to work it out. Given a permutation g of [1..n], then an <i>inversion</i> is a pair (i,j) with i < j but i .^ g > j .^ g. In Haskell:<br /><code></code><br /><code><pre>inversions g = [(i,j) | i <- [1..n], j <- [i+1..n], i < j, i .^ g > j .^ g]<br /> where n = maximum $ supp g<br /></pre></code><br />For example:<br /><code></code><br /><code>> inversions $ fromList [1,4,3,2]<br />[(2,3),(2,4),(3,4)]</code><br />With a little thought, you should be able to convince yourself that the number of inversions is equal to the length of the reduced word for g - because each swap that we perform during bubblesort corrects exactly one inversion.<br /><br />Okay, so this is all very nice, but what use is it? Well, of course, maths doesn't have to be useful, any more than any other aesthetic pursuit. However, as it happens, in this case it is.<br /><br />In statistics, the <a href="http://en.wikipedia.org/wiki/Kendall_tau_rank_correlation_coefficient">Kendall tau test</a> gives an indicator of the correlation between two measured quantities (for example, the height and weight of the test subjects). Suppose that we are given a list of pairs (eg (height,weight) pairs), and we want to know how strongly correlated the first and second quantities are.<br /><br />Ok, so what we do is, we rank the first quantities from lowest to highest, and replace each quantity by its rank (a number from 1 to n). We do the same for the second quantities. So we end up with a list of pairs of numbers from 1 to n. Now, we sort the list on the first element, and then count the number of inversions in the second element.<br /><br />For example, suppose our original list was [(1.55m, 60kg), (1.8m, 80kg), (1.5m, 70kg), (1.6m, 72kg)]. Converting to ranks, we get [(2nd,1st),(4th,4th),(1st,2nd),(3rd,3rd)]. Sorting on fst, we get [(1,2),(2,1),(3,3),(4,4)]. Looking at snd, we see that we have just one inversion. The idea is that the fewer inversions we have, the better correlated the two quantities. (Of course in reality there's a bit more to it than that - to convert the number of inversions into a probability, we need to know the distribution of word lengths for Sn, where n is the number of pairs of test data that we have.)<br /><br />So you can think of the Kendall tau test as saying: What permutation has been applied in moving from the first quantities (the heights) to the second quantities (the weights)? How far is that permutation from the identity (on the Cayley graph)? What proportion of all permutations (in Sn) lie at that distance or less from the identity? (Even more concretely, we can imagine colouring in successive shells of the Cayley graph, working out from the identity, until we hit the given permutation, and then asking what proportion of the "surface" of the graph has been coloured.)DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-5560641359943115222010-09-20T21:06:00.000+01:002010-09-20T21:06:22.353+01:00Cayley graphs of groups[New version HaskellForMaths 0.2.2 released <a href="http://hackage.haskell.org/package/HaskellForMaths">here</a>]<br /><br />Recently, we've been looking at group presentations, where a group is presented as a set of generators together with a set of relations that hold between those generators. Group elements are then represented as words in the generators.<br /><br />One can then ask questions about these words, such as: What is the longest (reduced) word in the group? How many (reduced) words are there of each length?<br /><br />This week I want to look at Cayley graphs, which are a way of visualising groups. Questions about word length translate to questions about path distance in the Cayley graph.<br /><br />So, the Cayley graph of a group, relative to a generating set gs, is the graph<br />- with a vertex for each element of the group<br />- with an edge from x to y just whenever x*g = y for some generator g in gs<br /><br />Notice that as we have defined it, the edges are <i>directed</i> (from x to y), so this is a directed graph, or digraph.<br /><br />Here's the Haskell code:<br /><code></code><br /><code><pre>module Math.Algebra.Group.CayleyGraph where<br /><br />import Math.Algebra.Group.PermutationGroup as P<br />import Math.Algebra.Group.StringRewriting as SR<br />import Math.Combinatorics.Graph<br /><br />import qualified Data.List as L<br />import qualified Data.Set as S<br /><br /><br />data Digraph a = DG [a] [(a,a)] deriving (Eq,Ord,Show)<br /><br />-- Cayley digraph given a group presentation of generators and relations<br />cayleyDigraphS (gs,rs) = DG vs es where<br /> rs' = knuthBendix rs<br /> vs = L.sort $ nfs (gs,rs') -- reduced words<br /> es = [(v,v') | v <- vs, v' <- nbrs v ]<br /> nbrs v = L.sort [rewrite rs' (v ++ [g]) | g <- gs]<br /><br />-- Cayley digraph given group generators as permutations<br />cayleyDigraphP gs = DG vs es where<br /> vs = P.elts gs<br /> es = [(v,v') | v <- vs, v' <- nbrs v ]<br /> nbrs v = L.sort [v * g | g <- gs]<br /></pre></code><br />As an example, let's look at the Cayley digraph of the dihedral group D8 (the symmetries of a square), generated by a rotation and a reflection:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/_XQ7FznWBAYE/TJe6DWcIGmI/AAAAAAAAAGc/2DFTDor8I_U/s1600/Square.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/_XQ7FznWBAYE/TJe6DWcIGmI/AAAAAAAAAGc/2DFTDor8I_U/s320/Square.png" /></a></div><code></code><br /><code>> :load Math.Algebra.Group.CayleyGraph<br />> let a = p [[1,2,3,4]]<br />> let b = p [[1,2],[3,4]]<br />> a^3*b == b*a<br />True<br />> cayleyDigraphS (['a','b'],[("aaaa",""),("bb",""),("aaab","ba")])<br />DG ["","a","aa","aaa","aab","ab","b","ba"] [("","a"),("","b"),("a","aa"),("a","ab"),("aa","aaa"),("aa","aab"),("aaa",""),("aaa","ba"),("aab","aa"),("aab","ab"),("ab","a"),("ab","b"),("b",""),("b","ba"),("ba","aaa"),("ba","aab")]<br />> cayleyDigraphP [a,b]<br />DG [[],[[1,2],[3,4]],[[1,2,3,4]],[[1,3],[2,4]],[[1,3]],[[1,4,3,2]],[[1,4],[2,3]],[[2,4]]] [([],[[1,2],[3,4]]),([],[[1,2,3,4]]),([[1,2],[3,4]],[]),([[1,2],[3,4]],[[1,3]]),([[1,2,3,4]],[[1,3],[2,4]]),([[1,2,3,4]],[[2,4]]),([[1,3],[2,4]],[[1,4,3,2]]),([[1,3],[2,4]],[[1,4],[2,3]]),([[1,3]],[[1,4,3,2]]),([[1,3]],[[1,4],[2,3]]),([[1,4,3,2]],[]),([[1,4,3,2]],[[1,3]]),([[1,4],[2,3]],[[1,3],[2,4]]),([[1,4],[2,3]],[[2,4]]),([[2,4]],[[1,2],[3,4]]),([[2,4]],[[1,2,3,4]])]</code><br /><br />These are of course the same Cayley digraph, just with different vertex labels. Here's a picture:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TJe6X667ROI/AAAAAAAAAGk/xJQtuxc-j84/s1600/CayleyDigraphD8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TJe6X667ROI/AAAAAAAAAGk/xJQtuxc-j84/s320/CayleyDigraphD8.png" /></a></div><br />The picture might remind you of something. You can think of a Cayley digraph as a state transition diagram, where the states are the group elements, and the transitions are multiplication (on the right) by g, for each generator g. It might help to think of each edge as being labelled by the generator that caused it.<br /><br />A few things to notice.<br /><br />First, Cayley digraphs are always regular: the out-degree of each vertex, the number of edges leading out of it, will always equal the number of generators; and similarly for the in-degree, the number of edges leading into each vertex. (Exercise: Prove this.) In fact, we can say more - the graph "looks the same" from any vertex - this follows from the group properties. (Exercise: Explain.)<br /><br />Second, notice how some of the edges come in pairs going in opposite directions. Why is that? In this case, it's because one of our generators is its own inverse (which one?) - so if it can take you from x to y, then it can take you back again. In general, whenever our set of generators contains a g such that g^-1 is also in the set, then the edges corresponding to g, g^-1 will come in opposing pairs.<br /><br />Given this, we can omit the arrows on the edges if we adopt the convention that whenever we are given a set of generators, their inverses are also implied. In this way, we obtain an undirected or simple graph. Here's the code:<br /><code></code><br /><code><pre>toSet = S.toList . S.fromList<br /><br />-- The Cayley graph on the generators gs *and their inverses*, given relations rs<br />cayleyGraphS (gs,rs) = graph (vs,es) where<br /> rs' = knuthBendix rs<br /> vs = L.sort $ nfs (gs,rs') -- all reduced words<br /> es = toSet [ L.sort [v,v'] | v <- vs, v' <- nbrs v ] -- toSet orders and removes duplicates<br /> nbrs v = [rewrite rs' (v ++ [g]) | g <- gs]<br /><br />cayleyGraphP gs = graph (vs,es) where<br /> vs = P.elts gs<br /> es = toSet [ L.sort [v,v'] | v <- vs, v' <- nbrs v ]<br /> nbrs v = [v * g | g <- gs]<br /></pre></code><br />For example:<br /><code></code><br /><code>> cayleyGraphS (['a','b'],[("aaaa",""),("bb",""),("aaab","ba")])<br />G ["","a","aa","aaa","aab","ab","b","ba"] [["","a"],["","aaa"],["","b"],["a","aa"],["a","ab"],["aa","aaa"],["aa","aab"],["aaa","ba"],["aab","ab"],["aab","ba"],["ab","b"],["b","ba"]]</code><br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/TJe6sbmyA9I/AAAAAAAAAGs/Ag01Mhf0ggY/s1600/CayleyGraphD8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/TJe6sbmyA9I/AAAAAAAAAGs/Ag01Mhf0ggY/s320/CayleyGraphD8.png" /></a></div><br />One important point to note is that the Cayley graph of a group is relative to the generators. For example, we saw last time that the dihedral groups can also be generated by two reflections. In the case of D8, we can set r = (1 2)(3 4), s = (1 3).<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/_XQ7FznWBAYE/TJe63ckvTEI/AAAAAAAAAG0/BredDjXIG5E/s1600/SquareReflectionAxes.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/_XQ7FznWBAYE/TJe63ckvTEI/AAAAAAAAAG0/BredDjXIG5E/s320/SquareReflectionAxes.png" /></a></div>Before scrolling down, see if you can guess what the Cayley graph looks like. I'll give you a clue: Cayley graphs are always regular - what is the valency of each vertex in this case?<br /><br /><code></code><br /><code>> let r = p [[1,2],[3,4]]<br />> let s = p [[1,3]]<br />> (r*s)^4<br />[]<br />> cayleyGraphS (['r','s'],[("rr",""),("ss",""),("rsrsrsrs","")])<br />G ["","r","rs","rsr","rsrs","s","sr","srs"] [["","r"],["","s"],["r","rs"],["rs","rsr"],["rsr","rsrs"],["rsrs","srs"],["s","sr"],["sr","srs"]]</code><br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/TJe7Ax34VjI/AAAAAAAAAG8/9F490Zq1vzs/s1600/CayleyGraphD8rs.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/TJe7Ax34VjI/AAAAAAAAAG8/9F490Zq1vzs/s320/CayleyGraphD8rs.png" /></a></div><br />So the point to emphasize is that this graph and the one shown previously are Cayley graphs of the same group. The vertices represent the same elements (considered as permutations). However, because we have taken different sets of generators, we get different edges, and hence different graphs.<br /><br />Ok, so what does the Cayley graph tell us about the group? Well, as an example, consider the Cayley graph of the Rubik cube group, as generated by the face rotations f, b, l, r, u, d (as defined <a href="http://haskellformaths.blogspot.com/2009/08/how-to-count-number-of-positions-of.html">previously</a>). The vertices of the graph can be identified with the possible positions or states of the cube. The group element 1 corresponds to the solved cube. The edges correspond to single moves that can be made on the cube. If someone gives you a scrambled cube to solve, they are asking you to find a path from that vertex of the Cayley graph back to 1.<br /><br />Given any graph, and vertices x and y, the distance from x to y is defined as the length of the shortest path from x to y. On the Rubik graph (ie, the Cayley graph of the Rubik cube), the distance from x to 1 is the minimum number of moves needed to solve position x. The HaskellForMaths library provides a distance function on graphs. Thus for example:<br /><code></code><br /><code>> let graphD8rs = cayleyGraphS (['r','s'],[("rr",""),("ss",""),("rsrsrsrs","")])<br />> distance graphD8rs "" "rsr"<br />3</code><br />The distance from 1 to an element g is of course the length of the reduced word for g.<br /><br />The diameter of a graph is defined as the maximum distance between vertices. So the diameter of the Rubik graph is the maximum number of moves that are required to solve a scrambled position. It has <a href="http://www.bbc.co.uk/news/technology-10929159">recently</a> been shown that this number is twenty.<br /><code></code><br /><code>> diameter graphD8rs<br />4</code><br />The diameter of a Cayley graph is the length of the longest reduced word.<br /><br />That's really all I wanted to say for the moment. Next time, we'll take some of these ideas further.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-54266881058901753382010-07-18T20:56:00.001+01:002010-07-18T21:10:10.284+01:00Group presentations<a href="http://haskellformaths.blogspot.com/2010/05/string-rewriting-and-knuth-bendix.html">Last time</a> we looked at string rewriting systems and the Knuth-Bendix completion algorithm. The motivation for doing that was to enable us to think about groups in a more abstract way than before.<br /><br />The example we looked at last time was the symmetry group of the square. We found that this group could be generated by two elements a, b, satisfying the relations:<br />a^4 = 1<br />b^2 = 1<br />a^3 b = b a<br /><br />This way of thinking about the group is called a group presentation, and the usual notation would be:<br /><a,b | a^4=1, b^2=1, a^3 b = b a><br /><br />In our Haskell code, we represent this as:<br /><code></code><br /><code>( ['a','b'], [("aaaa",""),("bb",""),("aaab","ba")] )</code><br /><br />We saw how to use the Knuth-Bendix algorithm to turn the relations into a confluent rewrite system:<br /><br /><code></code><br /><code>> :load Math.Algebra.Group.StringRewriting<br />> mapM_ print $ knuthBendix [("aaaa",""),("bb",""),("aaab","ba")]<br />("bb","")<br />("bab","aaa")<br />("baa","aab")<br />("aba","b")<br />("aaab","ba")<br />("aaaa","")</code><br /><br />The rewrite system itself isn't particularly informative. Its importance lies in what it enables us to do. Given any word in the generators, we reduce it as follows: wherever we can find the left hand side of one of rules as a subword, we replace it by the right hand side of the rule. If we keep doing this until there are no more matches, then we end up with a normal form for the element - that is, another word in the generators, which represents the same group element, and is the smallest such word relative to the shortlex ordering. Several things follow from this.<br /><br />First, the ability to find the shortest word is sometimes useful in itself. If we could do this for the Rubik cube group (taking the six face rotations as generators), then we would be able to code "God's algorithm" to find the shortest solution to any given cube position.<br /><br />Second, any two words that represent the same group element will reduce to the same normal form. Hence, given any two words in the generators, we can tell whether they represent the same element. This is called "solving the word problem" for the group.<br /><br />Third, this enables us to list (the normal forms of) all the elements of the group - and hence, among other things, to count them.<br /><br />Fourth, it enables us to do arithmetic in the group:<br />- To multiply two elements, represented as words w1, w2, just concatenate them to w1++w2, then reduce using the rewrite system<br />- The identity element of the group is of course the empty word ""<br />- But what about inverses?<br /><br />Strings (lists) under concatenation form a monoid, not a group. So what do we do about inverses?<br /><br />Well, one possibility is to include them as additional symbols. So, suppose that our generators are a,b. Then we should introduce additional symbols a<sup>-1</sup>, b<sup>-1</sup>, and consider words over the four symbols {a,b,a<sup>-1</sup>,b<sup>-1</sup>}. (For brevity, it is customary to use the symbols A, B for a<sup>-1</sup>, b<sup>-1</sup>.)<br /><br />If we take this approach, then we will need to add some new rules too. We will need the rules a a<sup>-1</sup> = 1, etc. We will probably also need the "inverses" of the relations in our presentation. For example, if we have a^4 = 1, then we should also have a rule (a<sup>-1</sup>)^4 = 1.<br /><br />It's going to be a bit of a pain. (And it's probably going to cause Knuth-Bendix to get indigestion, in some cases at least.) Luckily, for finite groups, we don't really need this. In a finite group, each generator must have finite order: in our example a^4 = 1, b^2 = 1. So the inverse of each generator is itself a power of that generator - a<sup>-1</sup> = a^3, b<sup>-1</sup> = b. So for a finite group - or in fact any group where the generators are all of finite order - then the inverses are already there, expressible as words in the generators.<br /><br />So for most purposes, we have no need to introduce the inverses as new symbols. For example, if we want to list the elements of a finite group, or tell whether two words in the generators represent the same element, then we are fine. When it will matter is if we are specifically interested in the length of the words. For example, if we want God's algorithm for solving Rubik's cube, we are interested in the length of words in the generators <i>and</i> their inverses - the clockwise and anti-clockwise face rotations.<br /><div class="separator" style="clear: both; text-align: auto;"><br /></div>There is one situation when even this won't matter - and that is if the generators are their own inverses. If we have a generator g such that g^2 = 1, then it follows that g<sup>-1</sup> = g. Such an element is called an <i>involution</i>.<br /><br />Are there groups which can be generated by involutions alone? Yes, there are. Let's have a look at a couple.<br /><br />Consider the symmetry group of a regular polygon, say a pentagon. Consider the two reflections shown below. 'a' is the reflection in an axis through a vertex, and 'b' is the reflection in an axis through the midpoint of an adjacent edge. Hence the angle between the axes is pi/5 (or for an n-gon, pi/n).<br /><br /><a href="http://3.bp.blogspot.com/_XQ7FznWBAYE/TENZM9Ri4wI/AAAAAAAAAF8/9DkYD_7gU8k/s1600/pentagonreflections.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/_XQ7FznWBAYE/TENZM9Ri4wI/AAAAAAAAAF8/9DkYD_7gU8k/s320/pentagonreflections.png" /></a><br /><br />It should be clear that ab is a 1/5 rotation of the pentagon. It follows that a,b generate the symmetry group of the pentagon, with a^2 = b^2 = (ab)^5 =1.<br /><br /><code></code><br /><code>> elts (['a','b'], [("aa",""), ("bb",""), ("ababababab","")])<br />["","a","b","ab","ba","aba","bab","abab","baba","ababa"]<br />> length it<br />10</code><br /><br />Next, consider the symmetric group S4 (or in general, Sn). It can be generated by the transpositions s1 = (1 2), s2 = (2 3), and s3 = (3 4), which correspond to the diagrams below:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_XQ7FznWBAYE/TENZehvkKCI/AAAAAAAAAGE/VtXtfJgojjA/s1600/s4a.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="46" src="http://4.bp.blogspot.com/_XQ7FznWBAYE/TENZehvkKCI/AAAAAAAAAGE/VtXtfJgojjA/s400/s4a.png" width="400" /></a></div><br />Now, multiplication in the group corresponds to concatenation of the diagrams, going down the page. For example:<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/_XQ7FznWBAYE/TENZzs__-eI/AAAAAAAAAGM/JlCoJSe8pzI/s1600/s4b.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="http://3.bp.blogspot.com/_XQ7FznWBAYE/TENZzs__-eI/AAAAAAAAAGM/JlCoJSe8pzI/s640/s4b.png" width="640" /></a></div><br /><br />In fact, each of those diagrams represents the identity element - as you can check by following each point along the lines down the page, and checking that it ends up where it started. Hence each diagram represents a relation for S4. The diagrams show that s1^2 = 1, (s1s2)^3=1, and (s1s3)^2 = 1.<br /><br />In the general case, it's clear that Sn can be generated by n-1 transpositions s<sub>i</sub> of the form (i i+1), and that they satisfy the following relations:<br />si^2 = 1<br />(si sj)^3 = 1 if |i-j| = 1<br />(si sj)^2 = 1 if |i-j| > 1<br /><br />Here's some Haskell code to construct these presentations of Sn. (Did I mention that all of the string rewriting code works on arbitrary lists, not just strings?)<br /><code></code><br /><code></code><br /><code><pre>newtype S = S Int deriving (Eq,Ord)<br /><br />instance Show S where<br /> show (S i) = "s" ++ show i<br /><br />_S n = (gs, r ++ s ++ t) where<br /> gs = map S [1..n-1]<br /> r = [([S i, S i],[]) | i <- [1..n-1]]<br /> s = [(concat $ replicate 3 [S i, S (i+1)],[]) | i <- [1..n-2]]<br /> t = [([S i, S j, S i, S j],[]) | i <- [1..n-1], j <- [i+2..n-1]]<br /></pre></code><br /><br />And just to check:<br /><code></code><br /><code>> _S 4<br />([s1,s2,s3],[([s1,s1],[]),([s2,s2],[]),([s3,s3],[]),([s1,s2,s1,s2,s1,s2],[]),([s2,s3,s2,s3,s2,s3],[]),([s1,s3,s1,s3],[])])<br />> elts $ _S 4<br />[[],[s1],[s2],[s3],[s1,s2],[s1,s3],[s2,s1],[s2,s3],[s3,s2],[s1,s2,s1],[s1,s2,s3],[s1,s3,s2],[s2,s1,s3],[s2,s3,s2],[s3,s2,s1],[s1,s2,s1,s3],[s1,s2,s3,s2],[s1,s3,s2,s1],[s2,s1,s3,s2],[s2,s3,s2,s1],[s1,s2,s1,s3,s2],[s1,s2,s3,s2,s1],[s2,s1,s3,s2,s1],[s1,s2,s1,s3,s2,s1]]<br />> length it<br />24</code><br /><br />Anyway, that's it for now. Where I'm heading with this stuff is finite reflection groups and Coxeter groups, but I might take a couple of detours along the way.DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0tag:blogger.com,1999:blog-5195188167565410449.post-34444597815358377472010-05-28T22:08:00.001+01:002010-05-29T08:38:53.850+01:00String rewriting and Knuth-Bendix completion<div class="separator" style="clear: both; text-align: auto;">Previously in this blog we have been looking at symmetry groups of combinatorial structures. We have represented these symmetries concretely as permutations - for example, symmetries of graphs as permutations of their vertices. However, mathematicians tend to think about groups more abstractly.</div><br />Consider the symmetry group of the square (the cyclic graph C4). It can be generated by two permutations:<br /><code></code><br /><code>> :load Math.Algebra.Group.PermutationGroup<br />> let a = p [[1,2,3,4]]<br />> let b = p [[1,2],[3,4]]</code><br /><br /><a href="http://2.bp.blogspot.com/_XQ7FznWBAYE/TAAvwBoHKVI/AAAAAAAAAF0/AhwVdfdCjtM/s1600/squaresyms.GIF" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="197" src="http://2.bp.blogspot.com/_XQ7FznWBAYE/TAAvwBoHKVI/AAAAAAAAAF0/AhwVdfdCjtM/s400/squaresyms.GIF" width="400" /></a><br /><br />We can list various relations that are satisfied by these generators:<br />a^4 = 1<br />b^2 = 1<br />a^3 b = b a<br /><br />Of course, there are other relations that hold between the generators. However, the relations above are in fact sufficient to uniquely identify the group (up to isomorphism).<br /><br />Since a and b generate the group, any element in the group can be expressed as a product of a's and b's (and also their inverses, but we'll ignore that for now). However, there are of course an infinite number of such expressions, but only a finite number of group elements, so many of these expressions must represent the same element. For example, since b^2=1, then abba represents the same element as aa.<br /><br />Given two expressions, it would obviously be helpful to have a method for telling whether they represent the same group element. What we need is a string rewriting system. We can think of expressions in the generators as words in the symbols 'a' and 'b'. And we can reinterpret the relations above as rewrite rules:<br />"aaaa" -> ""<br />"bb" -> ""<br />"aaab" -> "ba"<br /><br />Each of these rules consists of a left hand side and a right hand side. Given any word in the generator symbols, if we find the left hand side anywhere in the word, we can replace it by the right hand side. For example, in the word "abba", we can apply the rule "bb" -> "", giving "aa".<br /><br />So, the idea is that given any word in the generator symbols, we repeatedly apply the rewrite rules until we can go no further. The hope is that if two words represent the same group element, then we will end up with the same word after rewriting. We'll see later that there's a bit more to do before that will work, but for the moment, let's at least write some Haskell code to do the string rewriting.<br /><br />So the first thing we are going to need to do is try to find the left hand side of a rule as a subword within a word. Actually, we want to do a bit more than that - if X is our word, and Y the subword, then we want to find the A and B such that X = AYB.<br /><br /><code></code><br /><code></code><br /><code></code><br /><code><pre>import qualified Data.List as L<br /><br />splitSubstring xs ys = splitSubstring' [] xs where<br /> splitSubstring' ls [] = Nothing<br /> splitSubstring' ls (r:rs) =<br /> if ys `L.isPrefixOf` (r:rs)<br /> then Just (reverse ls, drop (length ys) (r:rs))<br /> else splitSubstring' (r:ls) rs<br /></pre></code><br /><br />Then if our rewrite rule is L -> R, then a single application of the rule consists in replacing L by R within the word:<br /><br /><code></code><br /><code></code><br /><code></code><br /><code><pre>rewrite1 (l,r) xs =<br /> case xs `splitSubstring` l of<br /> Nothing -> Nothing<br /> Just (a,b) -> Just (a++r++b)<br /></pre></code><br /><br />Okay, so suppose we have a rewrite system (that is, a collection of rewrite rules), and a word. Then we want to repeatedly apply the rules until we find that no rule applies:<br /><br /><code></code><br /><code></code><br /><code></code><br /><code><pre>rewrite rules word = rewrite' rules word where<br /> rewrite' (r:rs) xs =<br /> case rewrite1 r xs of<br /> Nothing -> rewrite' rs xs<br /> Just ys -> rewrite' rules ys<br /> rewrite' [] xs = xs<br /></pre></code><br /><br />For example:<br /><code></code><br /><code>> :load Math.Algebra.Group.StringRewriting<br />> rewrite [("aaaa",""),("bb",""),("aaab","ba")] "abba"<br />"aa"</code><br /><br />So far, so good. However, there are some problems with the rewrite system that we constructed above. Suppose that the word we wanted to reduce was "aaabb".<br />If we apply the rule "aaab" -> "ba", then we have "aaabb" -> "bab".<br />However, if we apply the rule "bb" -> "", then we have "aaabb" -> "aaa".<br />Neither "bab" nor "aaa" reduces any further. So we have two problems:<br />- The same starting word can end up at different end words, depending on the order in which we apply the rules<br />- We can see from the example that the words "bab" and "aaa" actually represent the same element in our group, but our rewrite system can't rewrite either of them<br /><br />What can we do about this? Well here's an idea. Let's just add "bab" -> "aaa" as a new rewrite rule to our system. We know that they are equal as elements of the group, so this is a valid thing to do.<br /><br />That's good, but we still have problems. What about the word "aaaab"?<br />If we apply the rule "aaaa" -> "", then "aaaab" -> "b"<br />On the other hand, if we apply the rule "aaab" -> "ba", then "aaaab" -> "aba"<br /><br />So let's do the same again, and add a new rule "aba" -> "b".<br /><br />What we're doing here is called the Knuth-Bendix algorithm. Let's take a step back. So in each case, I found a word that could be reduced in two different ways. How did I do that? Well, what I was looking for is two rules with overlapping left hand sides. That is, I was looking for rules L1 -> R1, L2 -> R2, with<br />L1 = AB<br />L2 = BC<br />A pair of rules like this is called a critical pair. If we can find a critical pair, then by looking at the word ABC, we see that<br />ABC = (AB)C = L1 C -> R1 C<br />ABC = A(BC) = A L2 -> A R2<br />So we are justified in adding a new rule R1 C -> A R2<br /><br />So the Knuth-Bendix algorithm basically says, for each critical pair, introduce a new rule, until there are no more critical pairs. There's a little bit more to it than that:<br />- We want the rewrite system to <i>reduce</i> the word. That means that we want an ordering on words, and given a pair, we want to make them into a rule that takes the greater to the lesser, rather than vice versa. The most obvious ordering to use is called shortlex: take longer words to shorter words, and if the lengths are equal, use alphabetical ordering.<br />- Whenever we introduce a new rule, it might be that the left hand side of some existing rule becomes reducible. In that case, the existing rule becomes redundant, since any word that it would reduce can now be reduced by the new rule.<br /><br />Here's the code:<br /><br /><code></code><br /><code></code><br /><code></code><br /><code><pre>-- given two strings x,y, find if possible a,b,c with x=ab y=bc<br />findOverlap xs ys = findOverlap' [] xs ys where<br /> findOverlap' as [] cs = Nothing<br /> findOverlap' as (b:bs) cs =<br /> if (b:bs) `L.isPrefixOf` cs<br /> then Just (reverse as, b:bs, drop (length (b:bs)) cs)<br /> else findOverlap' (b:as) bs cs<br /><br />shortlex x y = compare (length x, x) (length y, y)<br /><br />ordpair x y =<br /> case shortlex x y of<br /> LT -> Just (y,x)<br /> EQ -> Nothing<br /> GT -> Just (x,y)<br /><br />knuthBendix1 rules = knuthBendix' rules pairs where<br /> pairs = [(lri,lrj) | lri <- rules, lrj <- rules, lri /= lrj]<br /> knuthBendix' rules [] = rules<br /> knuthBendix' rules ( ((li,ri),(lj,rj)) : ps) =<br /> case findOverlap li lj of<br /> Nothing -> knuthBendix' rules ps<br /> Just (a,b,c) -> case ordpair (rewrite rules (ri++c)) (rewrite rules (a++rj)) of<br /> Nothing -> knuthBendix' rules ps -- they both reduce to the same thing<br /> Just rule' -> let rules' = reduce rule' rules<br /> ps' = ps ++<br /> [(rule',rule) | rule <- rules'] ++<br /> [(rule,rule') | rule <- rules']<br /> in knuthBendix' (rule':rules') ps'<br /> reduce rule@(l,r) rules = filter (\(l',r') -> not (L.isInfixOf l l')) rules<br /></pre></code><br /><br />For example:<br /><br /><code></code><br /><code>> knuthBendix1 [("aaaa",""), ("bb",""), ("aaab","ba")]<br />[("baa","aab"),("bab","aaa"),("aba","b"),("aaaa",""),("bb",""),("aaab","ba")]</code><br /><br />A few words about the Knuth-Bendix algorithm<br />- It is not guaranteed to terminate. Every time we introduce a new rule, we have the potential to create new critical pairs, and there are pathological examples where this goes on forever<br />- The algorithm can be made slightly more efficient, by doing things like choosing to process shorter critical pairs first. In the HaskellForMaths library, a more efficient version is given, called simply "knuthBendix"<br /><br />Back to the example. So Knuth-Bendix has found three new rules. The full system, with these new rules added, has no more critical pairs. As a consequence, it is a confluent rewrite system - meaning that if you start at some given word, and reduce it using the rules, then it doesn't matter in what order you apply the rules, you will always end up at the same word. This word that you end up with can therefore be used as a normal form.<br /><br />This allows us to "solve the word problem" for this group. That is, given any two words in the generator symbols, we can find out whether they represent the same group element by rewriting them both, and seeing if they end up at the same normal form. For example:<br /><br /><code></code><br /><code>> let rules = knuthBendix [("aaaa",""), ("bb",""), ("aaab","ba")]<br />> rewrite rules "aaaba"<br />"aab"<br />> rewrite rules "baabb"<br />"aab"<br />> rewrite rules "babab"<br />"b"</code><br /><br />So we see that "aaaba" and "baabb" represent the same group element, whereas "babab" represents a different one. (If you want, you could go back and check this using the original permutations.)<br /><br />We can even list (the normal forms of) all elements of the group. What we do is start with the empty word (which represents the identity element of the group), and then incrementally build longer and longer words. At each stage, we look at all combinations that can be formed by pre-pending a generator symbol to a word from the preceding stage. However, if we ever come across a word which can be reduced, then we know that it - and any word that could be formed from it at a later stage - is not a normal form, and so can be discarded. Here's the code:<br /><br /><code></code><br /><code></code><br /><code></code><br /><code><pre>nfs (gs,rs) = nfs' [[]] where<br /> nfs' [] = [] -- we have run out of words<br /> nfs' ws = let ws' = [g:w | g <- gs, w <- ws, (not . isNewlyReducible) (g:w)]<br /> in ws ++ nfs' ws'<br /> isNewlyReducible w = any (`L.isPrefixOf` w) (map fst rs)<br /><br />elts (gs,rs) = nfs (gs, knuthBendix rs)<br /></pre></code><br /><br />For example:<br /><br /><code></code><br /><code>> elts (['a','b'], [("aaaa",""), ("bb",""), ("aaab","ba")])<br />["","a","b","aa","ab","ba","aaa","aab"]</code><br /><br />As expected, we have eight elements.<br /><br />That's enough for now. Next time (hopefully) I'll look at some more examples.<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com3tag:blogger.com,1999:blog-5195188167565410449.post-55168315847648817532010-04-25T20:55:00.000+01:002010-04-25T20:55:58.516+01:00Block systems and block homomorphism<div class="separator" style="clear: both; text-align: center;"><br /></div><br /><div class="separator" style="clear: both; text-align: auto;">Recently in this blog, we looked at the strong generating set (SGS) algorithm for permutation groups, and how we can use it to investigate the structure of groups. Last time, we saw how to partially "factor" intransitive groups, using the transitive constituent homomorphism. (Recall that by "factoring" a group G, we mean finding a proper normal subgroup K, and consequently also a quotient group G/K - which is equivalent to finding a proper homomorphism from G.) This time, I want to do the same for imprimitive groups. So, what is an imprimitive group?</div><br />Well, given a permutation group acting on a set X, it can happen that X consists of "blocks" Y1, Y2, ... of points which always "move together". That is, a subset Y of X is a block if for all g in G, Y^g (the image of Y under the action of g) is either equal to Y or disjoint from it. A full set of blocks (that is, blocks Y1, Y2, ... which are disjoint, and whose union is the whole of X) is called a block system.<br /><br />For example, suppose that X is the vertices of the hexagon. The symmetry group of the hexagon is the dihedral group D12, generated by a rotation and a reflection:<br /><code></code><br /><code>> :load Math.Algebra.Group.Subquotients<br />> mapM_ print $ _D 12<br />[[1,2,3,4,5,6]]<br />[[1,6],[2,5],[3,4]]</code><br /><a href="http://2.bp.blogspot.com/_XQ7FznWBAYE/S9SbaTA-AqI/AAAAAAAAAFU/s4qYvoXmDZs/s1600/hexagon.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/_XQ7FznWBAYE/S9SbaTA-AqI/AAAAAAAAAFU/s4qYvoXmDZs/s320/hexagon.png" /></a><br />A block system for the hexagon is shown below. The blocks are the pairs of opposite vertices. You can verify that they satisfy the definition of blocks: any symmetry must take a pair of opposite points either to itself, or to another pair disjoint from it.<br /><a href="http://1.bp.blogspot.com/_XQ7FznWBAYE/S9Sbh1EjrNI/AAAAAAAAAFc/2XyS8SkJKWc/s1600/hexagon14.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://1.bp.blogspot.com/_XQ7FznWBAYE/S9Sbh1EjrNI/AAAAAAAAAFc/2XyS8SkJKWc/s320/hexagon14.png" /></a><br />A given group can have more than one block system. Here is another block system for the hexagon. The blocks are the two equilateral triangles formed by the vertices.<br /><a href="http://2.bp.blogspot.com/_XQ7FznWBAYE/S9Sbl3gM5eI/AAAAAAAAAFk/sNxzgnmKXn8/s1600/hexagon135.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/_XQ7FznWBAYE/S9Sbl3gM5eI/AAAAAAAAAFk/sNxzgnmKXn8/s320/hexagon135.png" /></a><br />There are also the trivial block systems, consisting of either just one block containing all the points, or a block for each point. From now on, we will silently exclude these.<br /><br />So, I was meant to be telling you what an imprimitive group is. Well, it's just a group which has a non-trivial block system. Conversely, a primitive group is one which has no non-trivial block system.<br /><br />When we have an imprimitive group, we will be able to form a homomorphism - and hence factor the group - by considering the induced action of the group on the blocks. But I'm jumping ahead. First we need to write some Haskell code - to find block systems.<br /><br />The idea is to write a function that, given a pair of points Y = {y1,y2} in X (or indeed any subset Y of X), can find the smallest block containing Y. The way it works is as follows. We start by supposing that each point is in a block of its own, except for the points in Y. We initialise a map, with the points in X as keys, and the blocks as values, where we represent a block by its least element.<br /><br />Now, suppose that we currently think that the minimal block is Y = {y1,y2,...}. What we're going to do is work through the elements of Y, and work through the generators of G, trying to find a problem. So suppose that we have got as far as some element y of Y, and some generator g of G. We know that y is in the same block as y1, and what we have to check is that y^g is in the same block as y1^g. So we look up their representatives in the map, and check that they're the same. If they're not, then we need to merge the two classes. Here's the code (it's a little opaque, but it's basically doing what I just described).<br /><br /><code></code><br /><code><pre>minimalBlock gs ys@(y1:yt) = minimalBlock' p yt gs where<br /> xs = foldl union [] $ map supp gs<br /> p = M.fromList $ [(yi,y1) | yi <- ys] ++ [(x,x) | x <- xs \\ ys]<br /> minimalBlock' p (q:qs) (h:hs) =<br /> let r = p M.! q -- representative of class containing q<br /> k = p M.! (q .^ h) -- rep of class (q^h)<br /> l = p M.! (r .^ h) -- rep of class (r^h)<br /> in if k /= l -- then we need to merge the classes<br /> then let p' = M.map (\x -> if x == l then k else x) p<br /> qs' = qs ++ [l]<br /> in minimalBlock' p' (q:qs') hs<br /> else minimalBlock' p (q:qs) hs<br /> minimalBlock' p (q:qs) [] = minimalBlock' p qs gs<br /> minimalBlock' p [] _ =<br /> let reps = toListSet $ M.elems p<br /> in L.sort [ filter (\x -> p M.! x == r) xs | r <- reps ]<br /></pre></code><br />Once we have this function, then finding the block systems is simple - just take each pair {x1,xi} from X, and find the minimal block containing it.<br /><code></code><br /><code><pre>blockSystems gs<br /> | isTransitive gs = toListSet $ filter (/= [x:xs]) $ map (minimalBlock gs) [ [x,x'] | x' <- xs ]<br /> | otherwise = error "blockSystems: not transitive"<br /> where x:xs = foldl union [] $ map supp gs<br /></pre></code><br />If we have an SGS for G, then we can do slightly better. For suppose that within the stabiliser G<sub>x1</sub>, there is an element taking xi to xj. Then clearly xi and xj must be in the same minimal block. So in fact, we need only consider pairs {x1,xi}, with xi the minimal element of each orbit in G<sub>x1</sub>. (Of course, the point is that if we have an SGS for G, then we can trivially list a set of generators for G<sub>x1</sub>.)<br /><code></code><br /><code><pre>blockSystemsSGS gs = toListSet $ filter (/= [x:xs]) $ map (minimalBlock gs) [ [x,x'] | x' <- rs ]<br /> where x:xs = foldl union [] $ map supp gs<br /> hs = filter (\g -> x < minsupp g) gs -- sgs for stabiliser Gx<br /> os = orbits hs<br /> rs = map head os ++ (xs \\ L.sort (concat os)) -- orbit representatives, including singleton cycles<br /></pre></code><br /><br />Let's test it:<br /><code></code><br /><code>> mapM_ print $ blockSystems $ _D 12<br />[[1,3,5],[2,4,6]]<br />[[1,4],[2,5],[3,6]]</code><br /><br />Okay, so given a group, we can find its non-trivial block systems, if any. What next? Well, as I hinted earlier, this enables us to factor the group. For if there is a non-trivial block system, then the action of the group on the points induces a well-defined action on the blocks. This induced action gives us a homomorphism from our original group G, a subgroup of Sym(X), to another group H, a subgroup of Sym(B), where B is the set of blocks.<br /><br />So as we did <a href="http://haskellformaths.blogspot.com/2010/03/transitive-constituent-homomorphism.html">last time</a>, we can find the kernel and image of the homomorphism, and thus factor the group. How do we do that?<br /><br />Well, it's simple. In the following code, the function lr takes a group element acting on the points, and returns a group element acting on the blocks (in the Left side) and the points (in the Right side) in an Either union. If we do this to all the group generators, and then find an SGS, then as the Left blocks sort before the Right points, then the SGS will split neatly into two parts:<br />- The initial segment of the SGS will consist of elements which move the Left blocks. If we restrict their action to just the blocks, we will have an SGS for the image of the homomorphism, acting on the blocks.<br />- The final segment of the SGS will consist of elements which fix all the Left blocks. These elements move points but not blocks, so they form an SGS for the kernel of the homomorphism.<br /><code></code><br /><code><pre>blockHomomorphism' gs bs = (ker,im) where<br /> gs' = sgs $ map lr gs<br /> lr g = fromPairs $ [(Left b, Left $ b -^ g) | b <- bs] ++ [(Right x, Right y) | (x,y) <- toPairs g]<br /> ker = map unRight $ dropWhile (isLeft . minsupp) gs' -- stabiliser of the blocks<br /> im = map restrictLeft $ takeWhile (isLeft . minsupp) gs' -- restriction to the action on blocks<br /><br />blockHomomorphism gs bs<br /> | bs == closure bs [(-^ g) | g <- gs] -- validity check on bs<br /> = blockHomomorphism' gs bs<br /></pre></code><br /><br />Let's try it out on our two block systems for the hexagon:<br /><code></code><br /><code>> blockHomomorphism (_D 12) [[1,4],[2,5],[3,6]]<br />([[[1,4],[2,5],[3,6]]],<br /> [[[[1,4],[2,5],[3,6]]],[[[2,5],[3,6]]]])</code><br /><br />I've formatted the output for clarity. The first line is (an SGS for) the kernel, consisting of elements of D12 which permute points within the blocks, without permuting the blocks. In this case, the kernel is generated by the 180 degree rotation, which swaps the points within each pair. The second line is (an SGS for) the image, consisting of the induced action of D12 on the blocks. In this case, we have the full permutation group S3 acting on the three pairs of points.<br /><code></code><br /><code>> blockHomomorphism (_D 12) [[1,3,5],[2,4,6]]<br />([[[1,5,3],[2,6,4]],[[2,6],[3,5]]],<br /> [[[[1,3,5],[2,4,6]]]])</code><br /><br />In this case the kernel is generated by a 120 degree rotation and a reflection, and consists of all group elements which send odd points to odd and even points to even, thus preserving the blocks. The image has only one non-trivial element, which just swaps the two blocks.<br /><br />Armed with this new tool, let's have another look at Rubik's cube. Recall that we labelled the faces of the cube as follows:<br /><a href="http://2.bp.blogspot.com/_XQ7FznWBAYE/S9Sbric1KNI/AAAAAAAAAFs/wGAb_LcSOwo/s1600/rubik.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/_XQ7FznWBAYE/S9Sbric1KNI/AAAAAAAAAFs/wGAb_LcSOwo/s320/rubik.png" /></a><br /><br />Last time, we split the Rubik cube group into two homomorphic images - a group acting on just the corner faces, and a group acting on just the edge faces. Let's look for block systems in these groups:<br /><code></code><br /><code>> :load Math.Projects.Rubik<br />> let [cornerBlocks] = blockSystems imCornerFaces<br />> let [edgeBlocks] = blockSystems imEdgeFaces<br />> cornerBlocks<br />[[1,17,23],[3,19,41],[7,29,31],[9,33,47],[11,21,53],[13,43,51],[27,37,59],[39,49,57]]<br />> edgeBlocks<br />[[2,18],[4,26],[6,44],[8,32],[12,52],[14,22],[16,42],[24,56],[28,34],[36,48],[38,58],[46,54]]</code><br /><br />It's obvious really - in the corner group, we have a block system with blocks consisting of the three corner faces that belong to the same corner piece, and in the edge group, we have a block system with blocks consisting of the two edge faces that belong to the same edge piece. Furthermore, these are the only block systems.<br /><br />So we can form the kernel and image under the block homomorphism:<br /><code></code><br /><code>> let (kerCornerBlocks,imCornerBlocks) = blockHomomorphism imCornerFaces cornerBlocks<br />> let (kerEdgeBlocks,imEdgeBlocks) = blockHomomorphism imEdgeFaces edgeBlocks</code><br /><br />If we look at the sizes of these groups, the structure will be obvious:<br /><code></code><br /><code>> orderSGS kerCornerBlocks<br />2187<br />> orderSGS imCornerBlocks<br />40320</code><br /><br />These are 3^7, and 8! respectively. The kernel is the permutations of the corner faces which leave the corner blocks where they are. It turns out that whenever you twist one corner block, you must untwist another. So when you have decided what to do with seven corners, the eighth is determined - hence 3^7. For the image, we have eight blocks, and 8! permutations of them, so this must be the full symmetry group S8 - meaning that we can perform any rearrangement of the corner blocks that is desired.<br /><code></code><br /><code>> orderSGS kerEdgeBlocks<br />2048<br />> orderSGS imEdgeBlocks<br />479001600</code><br /><br />These are 2^11 and 12! respectively. For the kernel, whenever we flip one edge piece we must also flip another. So when we have decided what to do with eleven edges, the twelfth is determined - hence 2^11. For the image, we have twelve pieces, and 12! permutations of them, so we have the full symmetry group S12 on edge blocks.<br /><br />That's it.<br /><br />Incidentally, my references for this material are:<br />- Holt, Handbook of Computational Group Theory<br />- Seress, Permutation Group Algorithms<br />both of which are very good - but expensive.<br /><br />These books, particularly the latter, go on to describe further algorithms that can be used to factor even transitive primitive groups, enabling us to arrive at a full decomposition of a group into simple groups. Unfortunately, the algorithms get a bit more complicated after this, and I haven't yet implemented the rest in HaskellForMaths.<br /><div><br /></div>DavidAhttp://www.blogger.com/profile/16359932006803389458noreply@blogger.com0