User:Michiexile/MATH198/Lecture 7
From HaskellWiki
Michiexile (Talk  contribs) 
Michiexile (Talk  contribs) 

Line 18:  Line 18:  
===Algebraic objects in categories===  ===Algebraic objects in categories===  
−  +  We recall the definition of a monoid:  
−  +  '''Definition''' A ''monoid'' is a set <math>M</math> equipped with an operation <math>\mu: M\times M\to M</math> that we call ''composition'' and an operation <math>e: 1\to M</math> that we call the identity, such that  
−  in the category of endofunctors of that category.  +  * <math>M \circ 1_M \times M = M \circ M \times 1_M</math> (associativity) 
+  * <math>M \circ 1_M \times e = M \circ e\times 1_M = 1_M</math> (unity)  
+  
+  We can move this definition out of the category of sets by defining a ''monoid object'' in a category:  
+  
+  '''Definition''' A ''monoid object'' in a category <math>C</math> with terminal object and pairwise products is an object <math>M</math> equipped with morphisms <math>\mu: M\times M\to M</math> and <math>e: 1\to M</math> such that  
+  * <math>M \circ 1_M \times M = M \circ M \times 1_M</math> (associativity)  
+  * <math>M \circ 1_M \times e = M \circ e\times 1_M = 1_M</math> (unity)  
+  
+  As an example, a monoid object in <math>Set</math> is just a monoid. A monoid object in the category of abelian groups is a ring.  
+  
+  And the composition <math>UF</math> for an adjoint pair is a monoid object in the category of endofunctors on the category.  
+  
+  The same kind of construction can be made translating familiar algebraic definitions into categorical constructions with many different groups of definitions. For ''groups'', the corresponding definition introduces a diagonal map <math>\Delta: G\to G\times G</math>, and an inversion map <math>i: M\to M</math> to codify the entire definition.  
+  
+  One framework that formalizes the whole thing, in such a way that the definitions themselves form a category is the theory of Sketches by Charles Wells. In one formulation we get the following definition:  
+  
+  '''Definition''' A ''sketch'' <math>S = (G, D, L, K)</math> consists of a graph <math>G</math>, a set of diagrams <math>D</math>, a set <math>L</math> of cones in <math>G</math> and a set <math>K</math> of cocones in <math>G</math>.  
+  
+  A ''model'' of a sketch ''S'' in a category <math>C</math> is a graph homomorphism <math>G\to C</math> such that the image of each diagram in <math>D</math> is commutative, each of the cones is a limit cone and each of the cocones is a colimit cocone.  
+  
+  A ''homomorphism of models'' is just a natural transformation between the models.  
    
−  We thus define a ''monad in a category <math>C</math>'' to be a monoid in that category.  +  We thus define a ''monad in a category <math>C</math>'' to be a monoid object in the category of endofunctors on that category. 
+  
+  We can take this definition and write it out in Haskell code, as:  
+  <haskell>  
+  class Functor m => MathematicalMonad m where  
+  return :: a > m a  
+  join :: m (m a) > m a  
+  
+   such that  
+  join . fmap return = id :: m a > m a  
+  join . return = id :: m a > m a  
+  join . join = join . fmap join :: m (m (m a)) > m a  
+  </haskell>  
+  
+  Those of you used to Haskell will notice that this is not the same as the <hask>Monad</hask> typeclass. That type class calls for a natural transformation <hask>(>>=) :: m a > (a > m b) > m b</hask> (or <hask>bind</hask>).  
+  
+  The secret of the connection between the two lies in the Kleisli category, and a way to build adjunctions out of monads as well as monads out of adjunctions.  
+  
+  ===Kleisli category===  
+  
+  We know that an adjoint pair will give us a monad. But what about getting an adjoint pair out of a monad? Can we reverse the process that got us the monad in the first place?  
+  
+  There are several different ways to do this. Awodey uses the ''EilenbergMoore category'' which has as objects the ''algebras of the monad <math>T</math>'': morphisms <math>h: Tx \to x</math>. A morphism <math>f: (\alpha: TA\to A)\to (\beta: TB\to B)</math> is just some morphism <math>f:A\to B</math> in the category <math>C</math> such that <math>f\circ\alpha = \beta\circ T(f)</math>.  
+  
+  We require of <math>T</math>algebras two additional conditions:  
+  * <math>1_A = h\circ\eta_A</math> (unity)  
+  * <math>h\circ\mu_A = h \circ Th</math> (associativity)  
+  
+  There is a forgetful functor that takes some <math>h</math> to <math>t(h)</math>, picking up the object of the <math>T</math>algebra. Thus <math>U(h:TA\to A) = A</math>, and <math>U(f) = f</math>.  
+  
+  We shall construct a left adjoint <math>F</math> to this from the data of the monad <math>T</math> by setting <math>FC = (\mu_C: T^2C\to TC)</math>, making <math>TC</math> the corresponding object. And plugging the corresponding data into the equations, we get:  
+  * <math>1_{TC} = \mu_C\circ\eta_{TC}</math>  
+  * <math>\mu_C\circ\mu_{TC} = \mu_C\circ T\mu_C</math>  
+  which we recognize as the axioms of unity and associativity for the monad.  
+  
+  (diagrams both here and above?)  
+  
+  By working through the details of proving this to be an adjunction, and examining the resulting composition, it becomes clear that this is in fact the original monad <math>T</math>. However  while the EilenbergMoore construction is highly enlightening for constructing formal systems for algebraic theories, and even for the fixpoint definitions of data types, it is less enlightening to understand Haskell's monad definition.  
+  
+  To get to terms with the Haskell approach, we instead look to a different construction aiming to fulfill the same aim: the ''Kleisli category'':  
+  
+  Given a monad <math>T</math> over a category <math>C</math>, equipped with unit <math>\eta</math> and concatenation <math>\mu</math>, we shall construct a new category <math>K(T)</math>, and an adjoint pair of functors <math>U,F</math> factorizing the monad into <math>T=UF</math>.  
+  
+  We first define <math>K(T)_0 = C_0</math>, keeping the objects from the original category.  
+  
+  Then, we set <math>K(T)_1</math> to be the collection of arrows, in <math>C</math>, on the form <math>A\to TB</math>.  
+  
+  The composition of <math>f: A\to TB</math> with <math>g: B\to TC</math> is given by the sequence  
+  <math>A\to^f TB\to^{Tg} T^2C\to^{\mu_C} TC</math>  
+  
+  The identity is the arrow <math>\eta_A: A\to TA</math>. The identity property follows directly from the unity axiom for the monad, since <math>\eta_A</math> composing with <math>\mu_A</math> is the identity.  
+  
+  Given this category, we next define the functors:  
+  * <math>U(A) = TA</math>  
+  * <math>U(f: A\to TB) = TA\to^{Tf} T^2B\to^{\mu_B} TB</math>  
+  
+  * <math>F(A) = A</math>  
+  * <math>F(g: A\to B) = A\to^{\eta_A} TA\to^{Tg} TB</math>  
+  
+  This definition makes <math>U, F</math> an adjoint pair. Furthermore, we get  
+  * <math>UF(A) = U(A) = TA</math>  
+  * <math>UF(g: A\to B) = U(Tg\circ\eta_A) = \mu_B\circ T(Tg\circ\eta_A)</math>  
+  : <math>=\mu_B\circ T^2g \circ T\eta_A</math>, and by naturality of <math>\mu</math>, we can rewrite this as  
+  : <math>=Tg \circ \mu_A\circ T\eta_A = Tg\circ 1_{TA} = Tg</math> by unitality of <math>\eta</math>.  
+  
+  Hence, the composite <math>UF</math> really is just the original monad functor <math>T</math>.  
+  
+  But what's the big deal with this? you may ask. The big deal is that we now have a monad specification with a different signature.  
+  
+  ((TALK TO VAUGHAN HERE!!))  
+  
+  
+  
+  
+  
−  
−  
−  
−  
−  
−  
<haskell>  <haskell>  
List:  List:  
Line 62:  Line 151:  
+  ===Homework===  
−  +  # Prove that the Kleisli category adjunction is an adjunction.  
−  +  # Prove that the EilenbergMoore category adjunction is an adjunction.  
+  # The ''writer'' monad <hask>W</hask> is defined by  
+  #* <hask>data Monoid m => W m x = W (x, m)</hask>  
+  #* <hask>fmap f (W (x, m)) = W (f x, m)  
+  #* <hask>return x = W (x, mempty)</hask>  
+  #* <hask>join (W (W (x, m), n)) = W (x, m `mappend` n)</hask>  
+  ## (2pt) Prove that this yields a monad.  
+  ## (2pt) Give the Kleisli factorization of the writer monad.  
+  ## (2pt) Give the EilenbergMoore factorization of the writer monad.  
Revision as of 19:10, 3 November 2009
IMPORTANT NOTE: THESE NOTES ARE STILL UNDER DEVELOPMENT. PLEASE WAIT UNTIL AFTER THE LECTURE WITH HANDING ANYTHING IN, OR TREATING THE NOTES AS READY TO READ.
Last week we saw what an adjunction was. Here's one thing we can do with adjunctions.
Now, let U be a left adjoint to F. We set T = UF. Then we have natural transformations
μ:UFUF − > UF μ_{X} = Uε_{FX}
ι:1 − > UF ι_{X} = η_{X}
such that μ is associative and ι is the unit of μ.
These requirements remind us of the definition of a monoid  and this is not that much of a surprise. To see the exact connection, and to garner a wider spread of definitions.
Contents 
1 Algebraic objects in categories
We recall the definition of a monoid:
Definition A monoid is a set M equipped with an operation that we call composition and an operation that we call the identity, such that
 (associativity)
 (unity)
We can move this definition out of the category of sets by defining a monoid object in a category:
Definition A monoid object in a category C with terminal object and pairwise products is an object M equipped with morphisms and such that
 (associativity)
 (unity)
As an example, a monoid object in Set is just a monoid. A monoid object in the category of abelian groups is a ring.
And the composition UF for an adjoint pair is a monoid object in the category of endofunctors on the category.
The same kind of construction can be made translating familiar algebraic definitions into categorical constructions with many different groups of definitions. For groups, the corresponding definition introduces a diagonal map , and an inversion map to codify the entire definition.
One framework that formalizes the whole thing, in such a way that the definitions themselves form a category is the theory of Sketches by Charles Wells. In one formulation we get the following definition:
Definition A sketch S = (G,D,L,K) consists of a graph G, a set of diagrams D, a set L of cones in G and a set K of cocones in G.
A model of a sketch S in a category C is a graph homomorphism such that the image of each diagram in D is commutative, each of the cones is a limit cone and each of the cocones is a colimit cocone.
A homomorphism of models is just a natural transformation between the models.
We thus define a monad in a category C to be a monoid object in the category of endofunctors on that category.
We can take this definition and write it out in Haskell code, as:
class Functor m => MathematicalMonad m where return :: a > m a join :: m (m a) > m a  such that join . fmap return = id :: m a > m a join . return = id :: m a > m a join . join = join . fmap join :: m (m (m a)) > m a
The secret of the connection between the two lies in the Kleisli category, and a way to build adjunctions out of monads as well as monads out of adjunctions.
2 Kleisli category
We know that an adjoint pair will give us a monad. But what about getting an adjoint pair out of a monad? Can we reverse the process that got us the monad in the first place?
There are several different ways to do this. Awodey uses the EilenbergMoore category which has as objects the algebras of the monad T: morphisms . A morphism is just some morphism in the category C such that .
We require of Talgebras two additional conditions:
 (unity)
 (associativity)
There is a forgetful functor that takes some h to t(h), picking up the object of the Talgebra. Thus , and U(f) = f.
We shall construct a left adjoint F to this from the data of the monad T by setting , making TC the corresponding object. And plugging the corresponding data into the equations, we get:
which we recognize as the axioms of unity and associativity for the monad.
(diagrams both here and above?)
By working through the details of proving this to be an adjunction, and examining the resulting composition, it becomes clear that this is in fact the original monad T. However  while the EilenbergMoore construction is highly enlightening for constructing formal systems for algebraic theories, and even for the fixpoint definitions of data types, it is less enlightening to understand Haskell's monad definition.
To get to terms with the Haskell approach, we instead look to a different construction aiming to fulfill the same aim: the Kleisli category:
Given a monad T over a category C, equipped with unit η and concatenation μ, we shall construct a new category K(T), and an adjoint pair of functors U,F factorizing the monad into T = UF.
We first define K(T)_{0} = C_{0}, keeping the objects from the original category.
Then, we set K(T)_{1} to be the collection of arrows, in C, on the form .
The composition of with is given by the sequence
The identity is the arrow . The identity property follows directly from the unity axiom for the monad, since η_{A} composing with μ_{A} is the identity.
Given this category, we next define the functors:
 U(A) = TA
 F(A) = A
This definition makes U,F an adjoint pair. Furthermore, we get
 UF(A) = U(A) = TA
 , and by naturality of μ, we can rewrite this as
 by unitality of η.
Hence, the composite UF really is just the original monad functor T.
But what's the big deal with this? you may ask. The big deal is that we now have a monad specification with a different signature.
((TALK TO VAUGHAN HERE!!))
List: return x = [x] join (l:lsts) = l ++ join lsts Maybe: return x = Just x join (Just (Just x)) = Just x join _ = Nothing
Note: not quite what Haskell claims a monad to be. Other related concepts:
 Kleisli category & factorization of monads: if we start with T a
monad, then can we find an adjunction U  F to _somewhere_ such that T = UF? And the monoidal structure is given by U e_FX and eta_X?
 From the Kleisli Category to monadic bind.
 Monads and sequencing.
3 Homework
 Prove that the Kleisli category adjunction is an adjunction.
 Prove that the EilenbergMoore category adjunction is an adjunction.
 The writer monad is defined byW
 data Monoid m => W m x = W (x, m)
 fmap f (W (x, m)) = W (f x, m)
#* <hask>return x = W (x, mempty)  join (W (W (x, m), n)) = W (x, m `mappend` n)
 (2pt) Prove that this yields a monad.
 (2pt) Give the Kleisli factorization of the writer monad.
 (2pt) Give the EilenbergMoore factorization of the writer monad.

4 Some adjunctions we already know
 initial/terminal are adjunctions.
 (co)products are adjunctions.
 Actually, all (co)limits are adjunctions.
5 Some adjunctions we don't know yet
 Existential and universal qualifiers as adjunctions.
 Powersets and im(f)  f^\inv
6 Properties of adjoints
6.1 RAPL: Right Adjoints Preserve Limits
6.2 Recognizing adjoints
Theorem (Freyd: The Adjoint Functor Theorem)