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

remove some unnecessary scope annotations

parent d5b9382b
No related branches found
No related tags found
No related merge requests found
...@@ -12,7 +12,7 @@ Section tests. ...@@ -12,7 +12,7 @@ Section tests.
l #n -∗ l #n -∗
proph p vs -∗ proph p vs -∗
WP Resolve (CmpXchg #l #n (#n + #1)) #p v @ E WP Resolve (CmpXchg #l #n (#n + #1)) #p v @ E
{{ v, v = (#n, #true)%V vs, proph p vs l #(n+1) }}%I. {{ v, v = (#n, #true)%V vs, proph p vs l #(n+1) }}.
Proof. Proof.
iIntros "Hl Hp". wp_pures. wp_apply (wp_resolve with "Hp"); first done. iIntros "Hl Hp". wp_pures. wp_apply (wp_resolve with "Hp"); first done.
wp_cmpxchg_suc. iIntros (ws ->) "Hp". eauto with iFrame. wp_cmpxchg_suc. iIntros (ws ->) "Hp". eauto with iFrame.
...@@ -23,7 +23,7 @@ Section tests. ...@@ -23,7 +23,7 @@ Section tests.
Lemma test_resolve2 E (l : loc) (n m : Z) (p : proph_id) (vs : list (val * val)) : Lemma test_resolve2 E (l : loc) (n m : Z) (p : proph_id) (vs : list (val * val)) :
proph p vs -∗ proph p vs -∗
WP Resolve (#n + #m - (#n + #m)) #p #() @ E {{ v, v = #0 vs, proph p vs }}%I. WP Resolve (#n + #m - (#n + #m)) #p #() @ E {{ v, v = #0 vs, proph p vs }}.
Proof. Proof.
iIntros "Hp". wp_pures. wp_apply (wp_resolve with "Hp"); first done. iIntros "Hp". wp_pures. wp_apply (wp_resolve with "Hp"); first done.
wp_pures. iIntros (ws ->) "Hp". rewrite Z.sub_diag. eauto with iFrame. wp_pures. iIntros (ws ->) "Hp". rewrite Z.sub_diag. eauto with iFrame.
......
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