Canonical request_eqType := Eval hnf in EqType request request_eqMixin.
Record server_state :=
ServerState {
current_epoch : epoch;
current_value : value;
outstanding : seq request
}.
Definition update_tag := 0.
Definition update_response_tag := 1.
Definition read_tag := 2.
Definition read_response_tag := 3.
Definition msg_from_client ms :=
(tag ms == update_tag /\ exists e v, tms_cont ms = [:: e; v]) \/
(tag ms == read_tag /\ exists e, tms_cont ms = [:: e]).
Definition msg_from_server ms :=
(tag ms == update_response_tag /\ exists e v b, tms_cont ms = [:: e; v; b]) \/
(tag ms == read_response_tag /\
((exists e v, tms_cont ms = [:: e; v] (* success *)) \/
(exists e, tms_cont ms = [:: e] (* failure *)))).
Definition coh_msg pkt :=
if from pkt == server
then to pkt \in clients /\ msg_from_server (content pkt)
else if from pkt \in clients
then to pkt == server /\ msg_from_client (content pkt)
else False.
Definition st := ptr_nat 1.
Definition client_local_coh :=
[Pred h | h = Heap.empty].
Definition server_local_coh (ss : server_state) :=
[Pred h | h = st :-> ss].
Definition local_coh (n : nid) :=
[Pred h | valid h /\
if n == server
then exists ss, server_local_coh ss h
else n \in clients /\
client_local_coh h].
Definition soup_coh : Pred soup :=
[Pred s |
valid s /\
forall m ms, find m s = Some ms -> active ms -> coh_msg ms].

(* Specifications: *)
Lemma soup_coh_post_msg d m:
soup_coh (dsoup d) -> coh_msg m -> soup_coh (post_msg (dsoup d) m).1.