Skip to content

Commit 39cf44c

Browse files
author
sergei.winitzki
committed
minor updates
1 parent 5e7ae1c commit 39cf44c

3 files changed

Lines changed: 88 additions & 86 deletions

File tree

sofp-src/sofp-applicative.lyx

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -22870,15 +22870,15 @@ noprefix "false"
2287022870
\end_layout
2287122871

2287222872
\begin_layout Standard
22873-
We conclude this section with a proof of the
22873+
We conclude this section with a proof of one version of the
2287422874
\begin_inset Quotes eld
2287522875
\end_inset
2287622876

2287722877
unrolling trick
2287822878
\begin_inset Quotes erd
2287922879
\end_inset
2288022880

22881-
.
22881+
for recursive types:
2288222882
\begin_inset Index idx
2288322883
status collapsed
2288422884

@@ -26190,7 +26190,7 @@ If
2619026190
F^{A}\times Z & \_^{:F^{A}}\times z\rightarrow z & \bbnum 0\\
2619126191
Z\times F^{B} & z\times\_^{:F^{B}}\rightarrow z & \bbnum 0\\
2619226192
F^{A}\times F^{B} & \bbnum 0 & \text{zip}_{F}
26193-
\end{array}\quad;
26193+
\end{array}\quad.
2619426194
\end{align*}
2619526195

2619626196
\end_inset
@@ -27150,7 +27150,7 @@ toF
2715027150

2715127151
\end_inset
2715227152

27153-
For profunctors, the identity laws of
27153+
For profunctors, the right identity law of
2715427154
\begin_inset listings
2715527155
inline true
2715627156
status open
@@ -27174,15 +27174,15 @@ pure
2717427174

2717527175
\end_inset
2717627176

27177-
have the form:
27177+
has the form:
2717827178
\begin_inset Formula
2717927179
\[
2718027180
\text{zip}_{F}(a^{:F^{A}}\times\text{pu}_{F}(b^{:B}))=a\triangleright(k^{:A}\rightarrow k\times b)^{\uparrow F}\pi_{1}^{\downarrow F}\quad.
2718127181
\]
2718227182

2718327183
\end_inset
2718427184

27185-
So, we can rewrite the left-hand side of the associativity law:
27185+
So, we can rewrite the left-hand side of the associativity law like this:
2718627186
\begin_inset Formula
2718727187
\begin{align*}
2718827188
\text{left-hand side}:\quad & \text{zip}_{P}(p\times\text{zip}_{P}(q\times r))\triangleright\varepsilon_{1,23}^{\uparrow P}\tilde{\varepsilon}_{1,23}^{\downarrow P}=\bbnum 0+\gunderline{\text{zip}_{F}}\big(a\times\gunderline{\text{pu}_{F}}(\text{ex}_{H}(b)\times\text{ex}_{H}(c))\big)\triangleright\varepsilon_{1,23}^{\uparrow F}\tilde{\varepsilon}_{1,23}^{\downarrow F}\\

0 commit comments

Comments
 (0)