pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2024-11-28 07:16:20 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow Type instead of just Set in Send and Recv

Browse source 
so that we can send fmaps
This commit is contained in:
Samuel Gruetter 2020-04-13 15:26:11 -04:00
parent 728a8255f8
commit ce1bc740c4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
MessagesAndRefinement.v
View file

@ -36,8 +36,8 @@ Inductive proc :=
(* Act like [pr], but prevent interaction with other processes through channel (* Act like [pr], but prevent interaction with other processes through channel
* [ch]. We effectively force [ch] to be *private*. *) * [ch]. We effectively force [ch] to be *private*. *)
| Send (ch : channel) {A : Set} (v : A) (k : proc) | Send (ch : channel) {A : Type} (v : A) (k : proc)
| Recv (ch : channel) {A : Set} (k : A -> proc) | Recv (ch : channel) {A : Type} (k : A -> proc)
(* When one process runs a [Send] and the other a [Recv] on the same channel (* When one process runs a [Send] and the other a [Recv] on the same channel
* simultaneously, the [Send] moves on to its [k], while the [Recv] moves on to * simultaneously, the [Send] moves on to its [k], while the [Recv] moves on to
* its [k v], for [v] the value that was sent. *) * its [k v], for [v] the value that was sent. *)
@ -106,7 +106,7 @@ Definition tester (metaInput input output metaOutput : channel) : proc :=
Record message := { Record message := {
Channel : channel; Channel : channel;
TypeOf : Set; TypeOf : Type;
Value : TypeOf Value : TypeOf
}. }.
@ -1089,7 +1089,7 @@ Proof.
invert H6. invert H6.
eapply TreeThreads_actionIs in H3; eauto; equality. eapply TreeThreads_actionIs in H3; eauto; equality.
specialize (TreeThreads_actionIs H2 H3); invert 1. specialize (TreeThreads_actionIs H2 H3); invert 1.
invert H5. invert H5. clear H.
assert (mem n t = true) by eauto. assert (mem n t = true) by eauto.
rewrite H. rewrite H.
eauto 10. eauto 10.