diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-03 20:23:16 +0100 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-03 20:23:16 +0100 |
commit | 9deed79e33b9380ca90fbf3f2a64234f4e17945f (patch) | |
tree | 9cbc7594b626799c4d1ee3022c33b5102c8de0f6 /provider/posts/simmons-intro-to-cat-t | |
parent | d80fc58aab38a5af024e33f91a492c908fea94e2 (diff) | |
download | dirty-haskell.org-9deed79e33b9380ca90fbf3f2a64234f4e17945f.tar dirty-haskell.org-9deed79e33b9380ca90fbf3f2a64234f4e17945f.tar.gz dirty-haskell.org-9deed79e33b9380ca90fbf3f2a64234f4e17945f.tar.bz2 dirty-haskell.org-9deed79e33b9380ca90fbf3f2a64234f4e17945f.tar.xz dirty-haskell.org-9deed79e33b9380ca90fbf3f2a64234f4e17945f.zip |
CatT 1.2.7
Diffstat (limited to 'provider/posts/simmons-intro-to-cat-t')
-rw-r--r-- | provider/posts/simmons-intro-to-cat-t/1.2.md | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/provider/posts/simmons-intro-to-cat-t/1.2.md b/provider/posts/simmons-intro-to-cat-t/1.2.md index 19d71e4..c714f81 100644 --- a/provider/posts/simmons-intro-to-cat-t/1.2.md +++ b/provider/posts/simmons-intro-to-cat-t/1.2.md | |||
@@ -148,3 +148,33 @@ $$ | |||
148 | $$ | 148 | $$ |
149 | </div> | 149 | </div> |
150 | </div> | 150 | </div> |
151 | |||
152 | <div class="exercise"> | ||
153 | Consider the category $\ca{Set_\bot}$ of pointed sets. | ||
154 | |||
155 | Show that $\ca{Set_\bot}$ and $\ca{Pfn}$ are "essentially the same" category. | ||
156 | |||
157 | <div class="proof"> | ||
158 | The idea is to identify the undefined parts of a partial functions image with $\bot$: | ||
159 | $$ | ||
160 | \begin{aligned} | ||
161 | \Phi : \ca{Pfn} & \to \ca{Set_\bot} \\ | ||
162 | A & \mapsto A \cup \{ \bot_A \} \\ | ||
163 | \begin{tikzcd} | ||
164 | A \arrow[r, "f"] & B \\ | ||
165 | \bar{A} \arrow[u, hook] \arrow[ru, "\rest{f}{\bar{A}}" description] & | ||
166 | \end{tikzcd} & \mapsto \begin{aligned} | ||
167 | \Phi(f) : A \cup \{ \bot_A \} & \to B \cup \{ \bot_B \} \\ | ||
168 | \bot_A & \mapsto \bot_B \\ | ||
169 | a & \mapsto \begin{cases} | ||
170 | f(a) & \quad x \in \bar{A} \\ | ||
171 | \bot & \quad \text{else} | ||
172 | \end{cases} | ||
173 | \end{aligned} \\ | ||
174 | \Phi^\leftarrow : \ca{Set_\bot} & \to \ca{Pfn} \\ | ||
175 | A & \mapsto A - \{ \bot \} \\ | ||
176 | f & \mapsto \rest{f}{\left ( A - \{ \bot \} \right )} | ||
177 | \end{aligned} | ||
178 | $$ | ||
179 | </div> | ||
180 | </div> | ||