Commit ce20ffb1 authored by Ralf Jung's avatar Ralf Jung

make variable names a bit more consistent between Coq and LaTeX

parent 8f443ec0
Pipeline #17542 passed with stage
in 13 minutes and 48 seconds
This diff is collapsed.
...@@ -114,7 +114,7 @@ Qed. ...@@ -114,7 +114,7 @@ Qed.
End adequacy. End adequacy.
(** Iris's generic adequacy result *) (** Iris's generic adequacy result *)
Theorem wp_strong_adequacy Σ Λ `{!invPreG Σ} e σ1 n κs t2 σ2 φ : Theorem wp_strong_adequacy Σ Λ `{!invPreG Σ} e1 σ1 n κs t2 σ2 φ :
( `{Hinv : !invG Σ}, ( `{Hinv : !invG Σ},
(|={}=> (|={}=>
(s: stuckness) (s: stuckness)
...@@ -122,7 +122,7 @@ Theorem wp_strong_adequacy Σ Λ `{!invPreG Σ} e σ1 n κs t2 σ2 φ : ...@@ -122,7 +122,7 @@ Theorem wp_strong_adequacy Σ Λ `{!invPreG Σ} e σ1 n κs t2 σ2 φ :
(Φ fork_post : val Λ iProp Σ), (Φ fork_post : val Λ iProp Σ),
let _ : irisG Λ Σ := IrisG _ _ Hinv stateI fork_post in let _ : irisG Λ Σ := IrisG _ _ Hinv stateI fork_post in
stateI σ1 κs 0 stateI σ1 κs 0
WP e @ s; {{ Φ }} WP e1 @ s; {{ Φ }}
( e2 t2', ( e2 t2',
(* e2 is the final state of the main thread, t2' the rest *) (* e2 is the final state of the main thread, t2' the rest *)
t2 = e2 :: t2' - t2 = e2 :: t2' -
...@@ -140,7 +140,7 @@ Theorem wp_strong_adequacy Σ Λ `{!invPreG Σ} e σ1 n κs t2 σ2 φ : ...@@ -140,7 +140,7 @@ Theorem wp_strong_adequacy Σ Λ `{!invPreG Σ} e σ1 n κs t2 σ2 φ :
one can use [fupd_intro_mask'] or [fupd_mask_weaken] to introduce the one can use [fupd_intro_mask'] or [fupd_mask_weaken] to introduce the
fancy update. *) fancy update. *)
|={,}=> φ ))%I) |={,}=> φ ))%I)
nsteps n ([e], σ1) κs (t2, σ2) nsteps n ([e1], σ1) κs (t2, σ2)
(* Then we can conclude [φ] at the meta-level. *) (* Then we can conclude [φ] at the meta-level. *)
φ. φ.
Proof. Proof.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment