diff --git a/docs/tex/atomic.tex b/docs/tex/atomic.tex
index 3221a0157dff753e51ef1962d9f9ec338e2a0fee..cd107c63fefab72d30d91fa1ea74dd9116854662 100644
--- a/docs/tex/atomic.tex
+++ b/docs/tex/atomic.tex
@@ -30,13 +30,16 @@
\section{sync.v}
+\begin{align}
+ \text{synced}(R, f', f) \eqdef
+ \All P, Q, x.
+ &\hoare{ R * P(x)}{f(x)}{ v.\,R * Q(x,v) } \ra \\
+ &\hoare{ P(x)}{f'(x)}{ v.\,Q(x,v) }
+\end{align}
-\[\begin{aligned}
- \text{synced}(R, f', f) \eqdef
- \All P, Q, x.
- &\hoare{ R * P(x)}{f(x)}{ v.\,R * Q(x,v) } \ra \\
- &\hoare{ P(x)}{f'(x)}{ v.\,Q(x,v) }
- \end{aligned}\]
+Here is the "syncer spec" taken from CaReSL. Note that flat combiner in CaReSL is proven to be contextual refinement of \texttt{mkSync} here, but flat combiner doesn't directly satisfy this spec.
+
+However, there is not program refinement in Iris, so I simply have to prove the flat combiner satisfy exactly this spec directly. This will lead us to a general spec which is not tied to any specific syncer implementation.
\[
\text{is\_syncer}(R, s) \eqdef
@@ -48,6 +51,13 @@
\All R.
\hoare{R}{mk\_syncer()}{ s.\,\always (is\_syncer(R, s)} \]
+Here is my version, which is approx. splitting the Aaron’s version apart to emphasize the relationship between f and f’. If I use Aaron’s spec, I am afraid I can’t proceed in the first step of synchronization, because f’ is not applied to anything yet!
+
+Another observation is that pre- and post-conditions P, Q are universally qualified per application, that is to say, P, Q is arbitrary, depending on context.
+
+And similarly, f is universally qualified per synchronisation, which means that syncer is only parameterised by the shared resource R, it can work with any operation need to access this R.
+
+The definition below is spec for syncer constructor.
\section{atomic.v}
@@ -61,6 +71,29 @@ Logically atomic triple:
&\hoare{P}{e}{v.\, \Exists g. Q(g, v)}
\end{aligned}\]
+
+Okay, now we consider another way of specifying atomicity. This should be familiar to most of you. But here are several things to notice:
+
+1. P Q is arbitrary, depending on context
+2. The linear view shift lets us frame some non-persistent context.
+
+\includegraphics[width=0.5\textwidth]{lat}
+
+Here is a nice picture embodying the central idea … so, now we have introduced two ways of specifying atomicity. I want to give a more high-level picture next
+
+\includegraphics[width=0.5\textwidth]{ispace}
+
+Okay, here is space of my internship…. which has two dimensions.
+
+The vertical dimension is specification, which can either be given like the syncer, or the LAT style spec. The LAT is apparently more general. Actually, we can also feel the same way this from the fact that the atomic triple I derived from syncer spec, is specialised version of general LAT.
+
+Another dimension, the horizontal one, is implementation. We can either use put sequential code inside a pair of lock/unlock, or use some lock-free tricks such as CAS operation or helping to make it fine-grained.
+
+[Special effects]
+
+Okay, here are four proofs which correspond to each facet. Let’s start from \texttt{simple\_sync}.
+
+
\section{simple\_sync.v}
\begin{verbatim}
@@ -74,6 +107,10 @@ mk_sync :=
ret.
\end{verbatim}
+The one on the top is from CaReSL paper, and the one on the bottom is my version written in heap-lang. And fortunately, they are same!
+
+Okay, now the question is: can we give a LAT spec for \texttt{simple\_sync}? Actually, we can, and we can do this in a general way (i.e. not dependent on implementation of syncer).
+
\section{atomic\_sync.v}
Specialized logically atomic triple:
@@ -82,6 +119,12 @@ Specialized logically atomic triple:
{f(x)}
{v.\, \Exists g'. \ownGhost{\gname}{g'^{1/2}} * \beta(x, g, g', v)}[E_i][E_o]\]
+But what kind of LAT do we get from it? How general it is?
+
+Here is what we get. The `g`, ghost state, is of any proper type, and pre-condition alpha is a persistent predicate about state before operation. And in the post condition, we say there exists a ghost state g’ after operation, which satisfy beta , a relation over input, previous state, current state, and output
+
+The \texttt{g\_half} ghost resource is what makes g’ useful. Let’s design the invariant in like this [special effect]. The g in invariant is shared by both physical predicate phi, and the left half of agreement. And by agreeing, we can “synchronize” local ghost state and the global physical state when we open the invariant next time.
+
\begin{verbatim}
sync(mk_syncer) :=
λ: f_seq l,
@@ -99,6 +142,10 @@ sync(mk_syncer) :=
&\proves \wpre{f'(x)}[E]{ \Phi }
\end{aligned}
}\]
+
+Here is the sequential spec. pre-condition is the persistent alpha and exclusive ownership of shared state, and when it returns, we got the updated physical state g’, as well as beta.
+
+Funny thing is again that I have to apply f to l first ... because of currying and call site problem.
\[\begin{aligned}
&\text{atomic\_spec}(mk\_syncer, f\_seq, l, \phi, \alpha, \beta, E_i) \eqdef\\
@@ -112,8 +159,16 @@ sync(mk_syncer) :=
{v.\, \Exists g'. \ownGhost{\gname}{g'^{1/2}} * \beta(x, g, g', v)}[E_i][\top]}
\end{aligned} \]
+So, here is the theorem that states such derivation. Inside the blue box is the triple defined earlier, it is returned in the post-condition.
+
+The meta procedure “sync” is parameterised in Coq with any kind of syncer constructor you want to prove about. Its heap-lang parameters are sequential code closure and the location to internal state. As you can see from its definition, it partially applies \texttt{f\_seq} with l, i.e., binding operation with shared state pointer, and return a concurrent operation synchronized by newly-created syncer.
+
+Now let’s observe its two pure conditions: first, sequential code must have a spec; second, \texttt{mk\_syncer} satisfies the syncer constructor spec [review]
+
\[ (\Exists g. \phi(l, g') * \ownGhost{\gname}{g^{1/2}} * P x \]
+\includegraphics[width=0.5\textwidth]{atomic_sync}
+
\section{treiber.v}
\begin{verbatim}
@@ -142,6 +197,12 @@ iter hd f :=
\end{verbatim}
+Finally, it is time to talk about flat combiner …. oh no, not yet. We need to talk about treiber’s stack first.
+
+These push and pop are all standard lock-free implementation.
+
+We will give LAT spec for these two operations first
+
Logiall atomic spec (version 1):
\[ \lahoare{xs.\, stack(s, xs)}{push(s, x)}{stack(s, x::xs)}[heapN][\top]\]
@@ -160,6 +221,11 @@ Logiall atomic spec (version 2):
}[heapN][\top]
\]
+For these two operations, we usually will give a more abstract spec, like the one above, which talks about s and elements in it, but no more.
+
+However, we can also give one that exposes how stack is implemented (here, as a linked list). Actually, if we want to prove push spec in per-item-invariant style, we must expose enough details.
+
+Why? The intuition is that, when push some element in a per-item setting, we need to open, modify where s points to, and then close the invariant. But how can we make sure that the rest of the stack is always satisfying the per-item invariants? If we want such evidence, we need to expose something physical, such as the head pointer in this case.
\section{peritem.v}
@@ -179,6 +245,14 @@ A crappy but working spec:
\[push\_spec (\gname, s, x, RI) \eqdef
\hoare{R(x) * \knowInv\iname{\Exists xs. stack'(xs, s) * RI}}{push(s, x)}{v.\, v = () * (\Exists hd. ev(\gname, hd, x))}\]
+Okay, but in per-item spec, why do you need to make sure that the stack is growth-only, and governed by a global invariant?
+
+Answer: because we need to iterate thought it non-atomically. I mean, the process of iteration is not atomic. The single operation f still needs to atomically access any resource related x.
+
+So, having already talked a lot about per-item spec… here is how it looks like in my implementation. Well, I agree with you that this is a bit messy.
+
+note that global inv of stack is parametrised by per-item predicate R
+
\section{flat.v}
\begin{verbatim}
@@ -221,12 +295,33 @@ mk_flat :=
r.
\end{verbatim}
+
+Let’s go to my flat combiner code now.
+
+Compared to CaReSL, here are several notable differences:
+
+I break them down into five procedures, instead of nesting them inside the constructor. It is easier to specify.
+CaReSL’s flat constructor takes f; this doesn’t, which makes it more flexible.
+CaReSL’s install utilize TLS to avoid blowup of space use. I push in a new slot every time, which is terrible in practice, but follows the same spec.
+
+Also, another problem that exist both in my, CaReSL, and FCSL’s example code, is that we never recycle the slots.
+
\[p \mapsto \injR(-)\]
\[p \mapsto \texttt{injL}(f, x)\]
\[p \mapsto \injR(y)\]
\[\circ_i, \bullet_i, \dia_i, \bdia, \dia_i \circ_i, \dia_i \bullet_i, \bdia \bullet_i\]
+\includegraphics[width=0.5\textwidth]{helping}
+
+This is the protocol of helping …
+
+The black diamond is a token owned by server lock.
+The other three kinds of token are all tagged with i, which should be similar to thread id in CaReSL’s reasoning, but in my case, it is the slot address (Is it more flexible than using tid to index?). And the indexing is essentially done through a ghost map in invariant.
+
+Note that this graph is heavily simplified to reflect how I encode protocol with bare exclusive monoids. Next slide gives the detailed invariant construction
+
+
\begin{align*}
&\Exists y. &&p \fmapsto[1/2] \injR(-) * \dia_i * \circ_i\\
\lor &\Exists f, x, P, Q. &&p \fmapsto[1/2] \injL(f, x) * \ownGhost{\gname}{x^{1/2}} *
@@ -235,6 +330,12 @@ mk_flat :=
\lor &\Exists x, y. &&p \fmapsto[1/2] \injR(y) * \ownGhost{\gname}{x^{1/2}} * \gamma \mapstoprop Q(x) * Q(x, y) * \dia_i * \bullet_i
\end{align*}
+Here is the per-item (i.e. request slot) invariant, which have four branches.
+
+Note how f x P Q are all hidden under existential qualification, while (Q x) is saved under some name. It means that only post-condition matter to waiting client.
+
+This is basically the core of flat combiner proofs. There are just a couple of critical points, the rest are all boilerplates like open/close invariant. A nicer per-item spec could improve it I guess.
+
\[\alpha = \alpha_a * \alpha_o, \alpha = \alpha_a' * \alpha_o\]
\[\alpha = \alpha_o * \alpha_a, \alpha_a' * \alpha_o = \beta\]
\[\alpha = \alpha_a * \alpha_o, \alpha = \alpha_a' * \alpha_o\]
diff --git a/docs/tex/atomic_sync.png b/docs/tex/atomic_sync.png
new file mode 100644
index 0000000000000000000000000000000000000000..9f08d80235baac52dd65081224f989b9ec7fb8e0
Binary files /dev/null and b/docs/tex/atomic_sync.png differ
diff --git a/docs/tex/helping.png b/docs/tex/helping.png
new file mode 100644
index 0000000000000000000000000000000000000000..f588a2f7adbfa6b36c20ffd1f44f2f8b596e7659
Binary files /dev/null and b/docs/tex/helping.png differ
diff --git a/docs/tex/ispace.png b/docs/tex/ispace.png
new file mode 100644
index 0000000000000000000000000000000000000000..7f89dfba2367c74ef0c14d6c29b2d01748b5b0e8
Binary files /dev/null and b/docs/tex/ispace.png differ
diff --git a/docs/tex/lat.png b/docs/tex/lat.png
new file mode 100644
index 0000000000000000000000000000000000000000..02e0922ba7c959a9c1bd47c1341883727df52f74
Binary files /dev/null and b/docs/tex/lat.png differ