Skip to content
Snippets Groups Projects
Commit 44dc86c8 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Use new `|={E,E'}▷=>^n` notation at more places.

parent 97b304a0
No related branches found
No related tags found
No related merge requests found
...@@ -130,7 +130,7 @@ Qed. ...@@ -130,7 +130,7 @@ Qed.
Lemma wp_pure_step_fupd `{Inhabited (state Λ)} s E E' e1 e2 φ n Φ : Lemma wp_pure_step_fupd `{Inhabited (state Λ)} s E E' e1 e2 φ n Φ :
PureExec φ n e1 e2 PureExec φ n e1 e2
φ φ
Nat.iter n (λ P, |={E,E'}▷=> P) (WP e2 @ s; E {{ Φ }}) WP e1 @ s; E {{ Φ }}. (|={E,E'}▷=>^n WP e2 @ s; E {{ Φ }}) WP e1 @ s; E {{ Φ }}.
Proof. Proof.
iIntros (Hexec ) "Hwp". specialize (Hexec ). iIntros (Hexec ) "Hwp". specialize (Hexec ).
iInduction Hexec as [e|n e1 e2 e3 [Hsafe ?]] "IH"; simpl; first done. iInduction Hexec as [e|n e1 e2 e3 [Hsafe ?]] "IH"; simpl; first done.
......
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