Skip to content
Snippets Groups Projects
Commit 1fcdf60b authored by Ralf Jung's avatar Ralf Jung
Browse files

moar parallel function.v

parent c3027327
No related branches found
No related tags found
No related merge requests found
...@@ -24,7 +24,7 @@ Section fn. ...@@ -24,7 +24,7 @@ Section fn.
Global Instance fn_send E tys ty : Send (fn E tys ty). Global Instance fn_send E tys ty : Send (fn E tys ty).
Proof. iIntros (tid1 tid2 vl). done. Qed. Proof. iIntros (tid1 tid2 vl). done. Qed.
Global Instance fn_contractive n' E : Instance fn_contractive n' E :
Proper (pointwise_relation A (dist_later n') ==> Proper (pointwise_relation A (dist_later n') ==>
pointwise_relation A (dist_later n') ==> dist n') (fn E). pointwise_relation A (dist_later n') ==> dist n') (fn E).
Proof. Proof.
...@@ -50,6 +50,7 @@ Section fn. ...@@ -50,6 +50,7 @@ Section fn.
* iIntros "H". by iApply "H". * iIntros "H". by iApply "H".
* iIntros "H * #EQ". by iDestruct "EQ" as %[=->]. * iIntros "H * #EQ". by iDestruct "EQ" as %[=->].
Qed. Qed.
Global Existing Instance fn_contractive.
Global Instance fn_ne n' E : Global Instance fn_ne n' E :
Proper (pointwise_relation A (dist n') ==> Proper (pointwise_relation A (dist n') ==>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment